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!