Améliorer macro for next
Bonjour à tous,
J'espère que vous allez bien en ce vendredi,
j'ai une simple question. J'aimerai améliorer ma macro en remplaçant 10000 par un valeur idéfini car je ne sais jamais mon nombre de ligne.
x = 4
Do While Cells(x, 3) <> ""
For j = 4 To 10000
If Range("A" & j).Value = "" Then
Range("A" & j & ":F" & j).Select
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.ThemeColor = xlThemeColorAccent3
.TintAndShade = 0.799981688894314
.PatternTintAndShade = 0
End With
Range("F" & j).Font.Bold = True
Range("G" & j).FormulaR1C1 = "=RC[-1]*2"
End If
Next j
Loop
End Sub
merci à vous
Bonjour
tu peux ajour quelque chose dans le genre
Dim nbLigne as integer
nbLinge = thisworkbook.sheets("TaFeuille").range("A" & Rows.count).end(xlUp).row ' j'ai mis la colonne A mais ça peut être une colonne autre
ça te renvois le N° de la derniere ligne rempli
et dans ta boucle for j=4 to nbLigne