Code VBA pour boucle

[gourdin]

Bonsoir,

La macro doit réaliser la même action pour chaque cellule non vide d'une colonne
Voir petit exemple en fichier joint

Merci

 

[Staple1600]

Bonsoir à tous

Sans passer par une boucle

Sub Macro2()
Range(Cells(6, 2), Cells(6, 2).End(xlDown)).Offset(, 1).Value = _
Range(Cells(6, 2), Cells(6, 2).End(xlDown)).Value
End Sub

 

[gourdin]

Merci ce code fonctionne dans mon exemple fourni en pièce jointe mais en fait dans mon fichier de travail les actions a répéter sont plus complexes que dans mon fichier joint.
Je cherche donc à connaître le code VBA d'une boucle qui répète la même action tant que les cellules d'une colonne ne sont pas vides (comme dans fichier joint).

 

[mapomme]

Bonjour gourdin, Staple1600,

Essayer:

Sub boucle()
Dim derlig&, i&
  Application.ScreenUpdating = False
  With Feuil1
    derlig = .Cells(.Rows.Count, "b").End(xlUp).Row
    For i = 6 To derlig
      'on fait ce qu'on doit faire
    Next i
  End With
End Sub

 

[gourdin]

Merci
Bonne journeé