Ajouter une chaine de caractère à la fin d'une autre chaine

[esstin]

Bonjour,
Je souhaiterais faire une macro qui ajoute des caractères présent dans une cellule à la fin d'une chaine de caractère.

Merci pour vos réponses et votre aide 😉😉

 

[mromain]

Re : Ajouter une chaine de caractère à la fin d'une autre chaine

bonjour esstin,

voici une macro :

Sub test()
For Each curCell In Range(Range("B1"), Range("B1").End(xlDown)).Cells
    curCell.Value = curCell.Value & curCell.Offset(0, 2).Value
Next curCell
End Sub

a+

 

[RENAUDER]

Re : Ajouter une chaine de caractère à la fin d'une autre chaine

Bonjour,

Sub Concatene()
    Range([B1], [B65536].End(xlUp)).Select
    For Each Cell In Selection
        Cell.Value = Cell.Value & Cell.Offset(0, 2).Value
    Next Cell
End Sub

 

[esstin]

Re : Ajouter une chaine de caractère à la fin d'une autre chaine

Merci pour vos réponses, ca marche😎😎

 

[vbacrumble]

Re : Ajouter une chaine de caractère à la fin d'une autre chaine

Bonjour


Pourquoi passer par une macro ?

1) en colonne A
=B1&D1 (puis recopie vers le bas)
2) Edition/Collage Spécial/Valeurs
3)Selection colonne A/Insertion colonne

Tu te retrouves avec ce que tu souhaites en colonne B 😉

PS: si vraiment macro il te faut, voici l'équivalent de ce que je écris plus haut en macro

Sub Macro1()
'
' Macro1 Macro
' Macro enregistrée le 02/05/2009 par VBACrumble
'
Dim fin&
fin = [B65536].End(xlUp).Row
With Range("A1")
    .FormulaR1C1 = "=RC[1]&RC[3]"
    .AutoFill Destination:=Range("A1:A" & fin)
    .Resize(fin).Value = .Resize(fin).Value
End With
Columns("A:A").Insert Shift:=xlToRight
End Sub