Code VBA pour boucle

Staple1600

XLDnaute Barbatruc

• 12 Août 2016

• #2

Bonsoir à tous

Sans passer par une boucle

VB:

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

 

Vote positif 0 Vote négatif

gourdin

XLDnaute Impliqué

• 13 Août 2016

• #3

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).

 

Vote positif 0 Vote négatif

mapomme

XLDnaute Barbatruc

Supporter XLD

• 13 Août 2016

• #4

Bonjour gourdin, Staple1600,

Essayer:

VB:

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

 

Vote positif 0 Vote négatif

gourdin

XLDnaute Impliqué

• 14 Août 2016

• #5

Merci
Bonne journeé

 

Vote positif 0 Vote négatif