Code pour limiter l'exécution de ma macro

Bonjour,

Je souhaite pouvoir adapter ma macro à tout type de fichier, quel que soit le nombre de lignes à traiter et éviter de la faire traiter des lignes vides.

J'ai défini au début de la macro une variable qui correspond au nombre de lignes à traiter. Je souhaiterais ne plus avoir à renseigner manuellement cette variable.

Pourriez vous svp m'indiquer un code qui permet de connaitre le numéro de la ligne à partir de laquelle au moins trois lignes sont vierges? Je dis trois lignes pour éviter que la macro s'arrête au cas ou une ligne vierge se soit immiscée dans le fichier

Merci d'avance !!

Amicalement,

Vincent

Bonjour,

Voici un petit exemple bien simple

Public Sub ParcourtLigne()
    Dim NbVide As Integer

    NbVide = 0

    Do While NbVide < 3
        If ActiveCell = "" Then 
              NbVide = NbVide + 1
        Else
              NbVide = 0
        End If

        'Ton traitement

        ActiveCell.Offset(1, 0).Select
    Loop

End Sub

Bonsoir à tous,

Autre façon, tu mets la variable Lg sur une colonne remplie

Sub essai()
Dim Lg%, i%
Lg = Range("A65536").End(xlUp).Row
    For i = 2 To Lg
        If Range("a" & i) <> "" Then
            '**** ton traitement ****
        End If
    Next i
End Sub

Amicalement

Claude