Rajouter valeur a aprtir d'un text BOX

[teodormircea]

j'ai ce code qui remplit une colonne avec du texte

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

Ça marche mais il m'écrase le sous total, comment je pourrais arreter la macros avant la cellule du sous total

 

[Dull]

Re : Rajouter valeur a aprtir d'un text BOX

Salut teodormircea, le Forum

Peut être qu'avec un extrait de ton fichier on pourrait voir le souci car avec le code il faudrait reconstruire ton fichier et là c'estpasgagnésansdonnées 😉

Bonne Journée

 

[teodormircea]

Re : Rajouter valeur a aprtir d'un text BOX

OK tout a fait, voila un fichier pour exemple ,
Le code doit pas écraser le sous total

 

[youky(BJ)]

Re : Rajouter valeur a aprtir d'un text BOX

Bonjour,
Pense à renseigner xcl
A tester

Sub FillNR()
If MsgBox("Code N>R correspondant a RETIRED ASSETS", vbYesNo, "Continuer pour MARQUER") = vbYes Then
'xcl = 2 'ici j'indique la variable qui n'était pas renseignée dans ta macro
x = xcl 'x doit renvoyer le N° de colonne
k = Range(Cells(Rows.Count, x).Address).End(xlUp).Row - 1
Range(Cells(2, x), Cells(k, x)) = "N>R"
End If
'c'est tout sans boucle
End Sub

 

[teodormircea]

Re : Rajouter valeur a aprtir d'un text BOX

Merci ,

J'ai une erreur sur la ligne
k = Range(Cells(Rows.Count, x).Address).End(xlUp).Row - 1
concernant xcl , la colonne est donne par un textbox userform

 

[teodormircea]

Re : Rajouter valeur a aprtir d'un text BOX

a koi sert k ici?

 

[teodormircea]

Re : Rajouter valeur a aprtir d'un text BOX

Ah j'ai trouve il fallait juste declare la variable X