Decalage step

[anber]

Bonjour le Forum,

Un petit bout de code :

For cpt = 2 To 500 Step 22 'recupere une information toutes les 22 lignes
For lin = 1 To 500 step 9 'senser écrire toutes les 9 lignes
B.Cells(lin, 2) = A.Cells(cpt, 2)
Next
Next

Mon problème : recuprer des informations toutes les 22 lignes contenues dans une feuille et les reporter dans une autre feuille, mais toutes les 9 lignes, je n'obtiens pas le résultat souhaité, quelle est ma bourde ?

Merci

 

[James007]

Re : Decalage step

Bonjour,

Tu peux essayer le code suivant :

Sub Copy()
Dim cpt As Integer
Dim lin As Integer
Dim x As Integer
x = 2
For cpt = 2 To 500 Step 22
    lin = (x - 1) * 9
    Sheet1.Cells(cpt, 1).Copy Destination:=Sheet2.Cells(lin, 1)
    x = x + 1
Next cpt
End Sub

A +

 

[pierrejean]

Re : Decalage step

Bonjour anber

A tester:

lin=1 'depart de l'ecriture
For cpt = 2 To 500 Step 22 'recupere une information toutes les 22 lignes
B.Cells(lin, 2) = A.Cells(cpt, 2)
lin=lin+9
Next

Edit : salut James

 

[anber]

Re : Decalage step

Bonsoir pierrejean, James007

Merci pour vos réponses, c'est OK