annee 2017

EXCEL ANNEE 2017

L'heure est venue de vous presenter

Une excel et bonne annee 2017 !

De la part de toute l equipe de VeriTi

Image 1

Bienvenue

sur le site des amis d'Excel

excel.veriti.net ou fr

Image 2

Musee

Visitez le "Musee VeriTi" 24h/24 - 7j/7, des "pepites" vous y attendent

Voir la suite
Image 3

Hommage

Thierry POURTIER alias 'Ti'
s'en est alle brutalement le samedi 13 novembre 2010...

Voir la suite
Image 4

Historique

Juillet 2013 : A l'occasion du 10eme anniversaire de VeriTi, j'ai décide de réparer et de remettre en ligne le site, avec une nouvelle version plus structurée tout en gardant les mêmes fichiers Excel

Voir la suite

Membre

+ Enregistrement
Articles >Cel / Col / Lig > Remplir un tableau

Remplir un tableau

Publié par veriland le 09-Aug-2013 22:40 (1473 lectures)

Deux exemples qui permettent de compléter un tableau d'après les valeurs d'une plage (ici A1 A12) ...

 

TableauUneDimension :

effectue une boucle sur la zone A1 / A12 et affiche les valeurs de celles-ci dans la

colonne E ... Cells(i, 5) = Tablo(i, 1)

 

TableauDeuxDimensions :

effectue une boucle sur la zone A1 / B12 et affiche ces valeurs dans la

colonne F et G... Cells(i, j + 5) = Tablo(i, j)

 

Code à placer dans un module

 

module


 

Option Explicit

'remplir des tableaux avec les valeurs d'une plage

Sub TableauUneDimension()
'VeriTi : http://www.excel.veriti.net
Dim Tablo As Variant
Dim i As Integer
  
  'affectation en une seule passe des valeurs de la plage A1:A12
  Tablo = ActiveSheet.Cells(1, 1).Resize(12, 1).Value
  
   'restitution du tableau
  For i = LBound(Tablo, 1) To UBound(Tablo, 1)
    Cells(i, 5) = Tablo(i, 1)
   Next
  
End Sub


Sub TableauDeuxDimensions()
'VeriTi : http://www.excel.veriti.net
Dim Tablo As Variant
Dim i As Integer
Dim j As Integer
'affectation en une seule passe des valeurs de la plage A1:B12
  Tablo = ActiveSheet.Cells(1, 1).Resize(12, 2).Value
  
  'restitution du tableau
  For i = LBound(Tablo, 1) To UBound(Tablo, 1)
     For j = LBound(Tablo, 2) To UBound(Tablo, 2)
      Cells(i, j + 5) = Tablo(i, j)
     Next j
  Next i
  
End Sub


Naviguer à travers les articles
Article précédent Lettre colonne
Note 0.00/5
Note: 0.0/5 (0 votes)
Les votes sont désactivés !
Les commentaires appartiennent à leurs auteurs. Nous ne sommes pas responsables de leur contenu.
Auteur Commentaire en débat

Astuces
Sélection d'articles par Catégorie
Userform
Feuille
Cel / Col / Lig
Souris
Impression
Images
Commentaires
Evènements
Fichier
Trucs et astuces
Divers
FAQ Acyd
carte des membres

Carte des membres

Menu Principal
Haut de page des téléchargements
Copyright 2013 Powered by XOOPS © 2001-2013