Titre du sujet : Re: Répartir des informations à partir d'un compteur
par Eric le 30/07/2011 12:10:08
Bonjour à tous
Bonjour Titom
Une petite explication du code :
Sub copie_sur_Feuil2()
'déclaration des variables
Dim a As Integer 'ou long si a>32 767 (dans le cas présent plus de 98301 lignes)
Dim i As Integer 'ou long si + de 32 767 lignes
Dim derlign As Integer 'ou long si + de 32 767 lignes
Dim tablo() 'déclaration d'une variable tableau
derlign = Sheets("Feuil1").Range("a65536").End(xlUp).Row 'récupération de la derlign de la colonne "A"
ReDim tablo(derlign, 2) 'redimensionnement de "tablo" en bidimensionnel
For i = 1 To derlign Step 3 'boucle de lecture de la colonne "A" avec un pas de trois
tablo(a, 0) = Cells(i, 1) 'affectation de la valeur de la cellule (i,1) à tablo(a, 0)
tablo(a, 1) = Cells(i + 1, 1) ' ..... i+1
tablo(a, 2) = Cells(i + 2, 1) ' ..... i+2
a = a + 1 'on incrémente "a" de 1
Next i
Sheets("Feuil2").Range("a1:c" & derlign / 3) = tablo() 'copie de "tablo" sur la feuille 2
' derlign / 3 => dans ce cas derlign est un multiple de 3
End Sub
si tu veux +, dis nous
Bon WE à tous
Eric
|
Didier FOURGEOT