Macro Concaténer avec des parenthèses

[CHTING]

Bonjour,

Je souhaiterais, avec une macro, concaténer des cellules de deux colonnes avec des parenthèses pour les mots de la deuxième cellule.
ex : cellule 1 = A, Cellule 2 = B ==> Résultat dans la cellule 3 = A (B)
Ci_joint un exemple sur fichier Excel.

Merci par avance

 

[DoubleZero]

Re : Macro Concaténer avec des parenthèses

Bonjour, CHTING, le Forum,

Peut-être ainsi :

Option Explicit
Sub Parenthèses()
    Dim i As Long
    With Application
        .ScreenUpdating = 0
        .Calculation = xlCalculationManual
    End With
    For i = 3 To Range("A65536").End(xlUp).Row
        If Range("A" & i).Value <> "" And Range("A" & i).Offset(, 1).Value <> "" Then
            Range("A" & i).Offset(, 3).Value = Range("A" & i).Value & " (" & Range("A" & i).Offset(, 1).Value & ")"
        End If
    Next
    With Application
        .ScreenUpdating = -1
        .Calculation = xlCalculationAutomatic
    End With
End Sub

A bientôt 🙂

 

[phlaurent55]

Re : Macro Concaténer avec des parenthèses

Bonjour à tous

une solution par formule à recopier vers le bas

=A3&" ("&B3&")"

à+
Philippe

 

[CHTING]

Re : Macro Concaténer avec des parenthèses

Bonjour à tous,

Merci pour vos réponses.

Ca marche très bien,
je souhaite également concatener 3 colonnes
par exemple colonne A, D, et G sur la colonne H

par avance merci.

 

[DoubleZero]

Re : Macro Concaténer avec des parenthèses

Bonjour, CHTING, Philippe 🙂, le Forum,

Une autre macro basée sur l'idée de Philippe :

Option Explicit
Sub Valeurs_A_D_G_concatener()
    With Range("h3:h" & Range("a65536").End(xlUp).Row)
        .FormulaR1C1 = "=RC[-7]&"" - ""&RC[-4]&"" - ""&RC[-1]"
        .Value = .Value
    End With
End Sub

A bientôt 🙂