Titre du sujet : Re: Répartir des informations à partir d'un compteur par Eric le 29/07/2011 20:01:40
Bonsoir à tous
Bonsoir Titom1978
Juste pour la partie "copie", essaie ceci :
Sub copie_sur_Feuil2()
Dim a As Integer 'ou long
Dim i As Integer 'ou long
Dim derlign As Integer 'ou long
Dim tablo()
derlign = Sheets("Feuil1").Range("a65536").End(xlUp).Row
ReDim tablo(derlign, 2)
For i = 1 To derlign Step 3
tablo(a, 0) = Cells(i, 1)
tablo(a, 1) = Cells(i + 1, 1)
tablo(a, 2) = Cells(i + 2, 1)
a = a + 1
Next i
Sheets("Feuil2").Range("a1:c" & derlign / 3) = tablo() 'dans ce cas derlign est un multiple de 3
End Sub
si j'ai compris
Dis nous
Eric
|