Rajouter du texte dans une série de cellule

bonjour,

j'aurais besoin de savoir si il y aurait une facon automatisée de rajouter du texte sur chaque cellule d'une colone entière, ayant 1500 lignes, il faudrait ajouter un texte en plus de celui qui est déjà dans la cellule, avec une tabulation ou autre, si quql a une idée merci d'avance

cordialement

Bonjour,

à tester,

Sub test()
Montexte = "blabla"
For i = 2 To Cells(Rows.Count, 1).End(xlUp).Row
    Cells(i, 1) = Cells(i, 1) & "  " & Montexte
Next i
End Sub

[quote=i20100 post_id=773312 time=1561035464 user_id=47027]

Bonjour,

à tester,

[code]Sub test()

Montexte = "blabla"

For i = 2 To Cells(Rows.Count, 1).End(xlUp).Row

Cells(i, 1) = Cells(i, 1) & " " & Montexte

Next i

End Sub[/code

merci pour votre rponse, cela marche bien, y'a t'il une manière d'ajouter le texte, non a la suite, mais avec une tabulation, a la ligne?

lucascharrier a écrit :

merci pour votre rponse, cela marche bien, y'a t'il une manière d'ajouter le texte, non a la suite, mais avec une tabulation, a la ligne?

à tester,

Sub test2()
Montexte = "blabla"
For i = 2 To Cells(Rows.Count, 1).End(xlUp).Row
    Cells(i, 1) = Cells(i, 1) & " " & vbCrLf & Montexte
Next i
End Sub