Agir jusqu’à la dernière ligne non vide

Bonjour!

Dans mon programme, je met des traits entre chaque demandes de mesures sous certaines conditions, cela marche bien mais comme je le fais jusqu'a la ligne 50, cela est un peu long... J'aimerais pouvoir agir de i=4 à i=La dernière ligne non vide.

Tout en sachant qu'il faut se référer à la colonne D.

Mon code est celui ci:

 For i = 4 To 50
        If Sheets("Demande").Range("D" & i).Value <> "" And Sheets("Demande").Range("B" & i + 1).Value <> "" Then
            With Range("A" & i & ":I" & i).Borders(xlEdgeBottom)
                .LineStyle = xlContinuous
                .ColorIndex = 0
                .TintAndShade = 0
                .Weight = xlThin
            End With
        ElseIf Sheets("Demande").Range("D" & i).Value = "" Then
        Range("A" & i & ":I" & i).Borders(xlEdgeBottom).LineStyle = xlNone
        End If
    Next i

Merci de votre temps!

Bonjour,

Tu peux tester l'instruction suivante ...(pour remplacer 50 )

Sheets("Demande").Cells(Rows.Count, "D").End(xlUp).Row

En espèrant que cela t'aide

Super ça marche! Merci à toi!

Super ça marche! Merci à toi!

Merci pour tes remerciements ...

Rechercher des sujets similaires à "agir derniere ligne vide"