copie incréméntée

  • Initiateur de la discussion alain
  • Date de début
A

alain

Guest
J'ai un liste de 3000 données numériques.
Comment faire pour copier les données de la première liste avec un pas de 5.
Autrement formulé , je veux étalir une deuxiéme liste qui sera constituée par les données de la première liste choisies toutes les 5 lignes.
Merci par avance
 
A

alain

Guest
Bonsoir,

Supposons que la 1ère liste commence en "A1" et la 2ème liste en "B1"

Sub Recopie()
j = 0
For i = 0 To 3000 Step 5
Range("B1").Offset(j, 0) = Range("A1").Offset(i, 0)
j = j + 1
Next
End Sub

@+.
 

Discussions similaires

Statistiques des forums

Discussions
311 707
Messages
2 081 734
Membres
101 809
dernier inscrit
HADER2024