teodormircea
XLDnaute Occasionnel
j'ai ce code qui remplit une colonne avec du texte
Ça marche mais il m'écrase le sous total, comment je pourrais arreter la macros avant la cellule du sous total
Code:
Sub FillNR()
Dim r As Range
'(auteur: jindon)
Application.ScreenUpdating = False
Dim x As Integer
'Dim X As String
x = xcl
If MsgBox("Code N>R correspondant a RETIRED ASSETS", vbYesNo, "Continuer pour MARQUER") = vbYes Then
For Each r In Range(Cells(2, x), Cells(Rows.Count - 1, x).End(xlUp))
r.Value = "N>R"
Next
Application.ScreenUpdating = True
End If
End Sub