XL 2019 Rassembler le texte de trois cellule dans une seule cellule

[bolbol]

Bonsoir,
je veux faire une macro qui rassemble le texte de trois cellule dans une seule cellule avec des séparateurs (-).

exemple:
cellule 1: 458
cellule 2: 5417
cellule 3: ciel

résultat: 458-5417-ciel
comment écrire ce macro ?

merci d'avance.

 

[Claudy]

Bonsoir,
=CONCATENER(A1; "-";A2;"-";A3)
A+
Claudy

 

[bolbol]

Bonsoir,
=CONCATENER(A1; "-";A2;"-";A3)
A+
Claudy

Bonsoir,

ça marche merci beaucoup

 

[bolbol]

est il possible de transformer le resultat de la formule =CONCATENER(A1; "-";A2;"-";A3) en simple texte ?

 

[Claudy]

est il possible de transformer le resultat de la formule =CONCATENER(A1; "-";A2;"-";A3) en simple texte ?

A la mimine: copier Coller Valeur

Caudy

 

[bolbol]

A la mimine: copier Coller Valeur

Caudy

merci beaucoup

 

[Staple1600]

Bonsoir le fil

Pour le fun, et pour garder les mains dans les poches 😉

Sub Pas_à_la_mimine()
Dim anche, a_Bamako$
If Selection.Columns.Count > 1 Then Exit Sub
anche = Application.Transpose(Selection)
a_Bamako = Join(anche, "-")
Selection.Item(1).Offset(, 1) = a_Bamako
End Sub

Mettre des données dans une colonne, puis sélectionner ces données (une seule colonne)
Enfin, lancer cette petite macro et observer le résultat 😉