|
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 
Option Explicit
'remplir des tableaux avec les valeurs d'une plage
Sub TableauUneDimension()
'VeriTi : http://www.veriti.fr
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.veriti.fr
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
Date de création : 24/05/2005 - 19:12
Dernière modification : 25/05/2005 - 20:48
Catégorie : Cel / Col / Lig
Page lue 4873 fois
 Prévisualiser la page
 Imprimer la page
|
|
OOo
OOo
Membres: 1660
Membre en ligne: 0
Anonymes en ligne: 46
Haut 
