Concatener et remplacer

[pierrof]

Bonjour
J'aimerai a l'aide d'une Macro contenu dans un bouton, concatener deux cellules en rajoutant un 0 au milieu.

Je vous laisse un fichier pour plus d'explication.
le nombre de ligne peut varié

Merci de votre aide
A+

 

[natorp]

Re : Concatener et remplacer

bjr pierrof

en C2 tu mets =A2&"0"&B2 et tu tires vers le bas

cordialement, Gérard

 

[pierrejean]

Re : Concatener et remplacer

bonjour pierrof

Teste

Sub test()
For n = 2 To Range("A65536").End(xlUp).Row
Range("A" & n) = Range("A" & n) & "0" & Range("B" & n)
Next n
End Sub

 

[pierrof]

Re : Concatener et remplacer

Merci
C'est parfait encore une fois
A+