Arrêter une macro à chaque "fin" de ligne

Question

Bonjour, 

j'ai fait une macro qui rempli les cellules, et elle se fait sur plusieurs lignes. Cependant j'aimerai qu'elle s'arrête à la "fin" de chaque ligne c'est-à-dire au niveau de la colonne "AF" ou 32.

Merci d'avance, bonne journée! :)

cs_Le Pivert · Answer

bonjour,

voir ceci:

https://www.developpez.net/forums/d605223/logiciels/microsoft-office/excel/contribuez/boucles-parcourir-colonne-ligne-plage-donnees-2-methodes/ 
 
ce qui donne cet exemple:

Option Explicit
Sub For_Each_Next_Plage()
Dim FL1 As Worksheet, Cell As Range, Plage As Range
Dim i As Integer
i = 1
  Set FL1 = Worksheets("Feuil1")
    With FL1
        'Détermination de la plage de cellules à lire
        'Peut s'écrire en utilisant l'objet range de la plage
        'For Each Cell In .Range("B3:E15")
        'ou en utilisant l'objet Plage (range) de la plage
        Set Plage = .Range("A1:AF20")
        For Each Cell In Plage
       Cell.Value = i
       i = i + 1
       If Cell.Column = 32 Then
       MsgBox "Fin de ligne"
       End If
        Next
    End With
    Set FL1 = Nothing
    Set Plage = Nothing
End Sub

Voilà c'est tout simple

Patrice33740 · Answer

Bonjour,

Ou encore :
Sub For_Each_Ligne_Dans_Plage()
Dim Plage As Range, Ligne As Range, Cell As Range
  With Worksheets("Feuil1")
    Set Plage = .Range("A1:AF20")
    For Each Ligne In Plage.Rows
      For Each Cell In Ligne.Cells
        Cell.Value = "x"
      Next
      MsgBox "Fin de ligne"
    Next
  End With
End Sub

Arrêter une macro à chaque "fin" de ligne

2 réponses

Votre réponse

Discussions similaires