Encore une boucle ?

[Hulk]

Hello tout le monde,

Je me rends à l'évidence que j'ai encore besoin de vos compétences, les miennes étant encore trop limitées 😱

Difficile d'expliquer comme ça, le mieux est de jeter un oeil.

Encore une fois, mille merci !

Cdt, Hulk.

 

[Papou-net]

Re : Encore une boucle ?

Bonsoir Hulk,

Tu peux solutionner ton problème avec ce genre de boucle :

Private Sub CommandButton1_Click()
l = 1
For lg = 1 To Range("A65536").End(xlUp).Row Step 2
  Cells(l, 6) = Cells(lg, 1)
  Cells(l, 7) = Cells(lg + 1, 1)
  l = l + 1
Next
End Sub

Cordialement.

 

[Hulk]

Re : Encore une boucle ?

Slt,

Impec Papou-net, t'es un as !

Merci pour ton aide.

Bonne journée à tous, Hulk.