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

  • Initiateur de la discussion Initiateur de la discussion esstin
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

esstin

XLDnaute Nouveau
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 😉😉
 

Pièces jointes

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

bonjour esstin,

voici une macro :
Code:
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+
 
Re : Ajouter une chaine de caractère à la fin d'une autre chaine

Bonjour,
Code:
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
 
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
Code:
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
 
Dernière édition:
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
5
Affichages
472
Réponses
4
Affichages
231
Réponses
14
Affichages
584
Retour