Concatener une plage de cellule
Bonjour,
J'aimerai concatener une plage de cellule sous excel afin que mes données contenues dans des cellules différentes soient regroupées dans une seule case et séparées par une virgule.
Mes données sont des nombres avec des décimaux séparés par un point (ex : 5.45) et j'aimerais qu'ils le restent dans le processus.
Je voulais faire une Inputbox pour sélectionner la plage de cellule que je veux fusionner en une mais je bloque complétement et je n'arrive pas à faire marcher cette macro !
Quelqu'un aurait une idée ?
Merci d'avance.
J'aimerai concatener une plage de cellule sous excel afin que mes données contenues dans des cellules différentes soient regroupées dans une seule case et séparées par une virgule.
Mes données sont des nombres avec des décimaux séparés par un point (ex : 5.45) et j'aimerais qu'ils le restent dans le processus.
Je voulais faire une Inputbox pour sélectionner la plage de cellule que je veux fusionner en une mais je bloque complétement et je n'arrive pas à faire marcher cette macro !
Quelqu'un aurait une idée ?
Merci d'avance.
2 réponses
-
Bonjour,
Essaie comme celaSub Test()
Dim ref As Range, Cel As Range
Dim Texte As String
Set ref = Application.InputBox("Veuillez sélectionner les cellules sur la feuille", Type:=8)
For Each Cel In ref
Texte = Texte & Cel.Value & ", "
Next Cel
MsgBox "Valeurs concaténées : " & Left(Texte, Len(Texte) - 2)
End Sub
A+-
-
@MalgvenJe n'ai pas indiqué le résultat dans une cellule parce que je ne sais pas dans quelle cellule tu souhaites le placer.
Exemple avec le résultat dans A1 :
Tu remplaces
MsgBox "Valeurs concaténées : " & Left(Texte, Len(Texte) - 2)
par
Range("A1")=Left(Texte, Len(Texte) - 2)
A+ -
@GyrusOui ça marche merci beaucoup !
Et pour faire en sorte que la box mette le résultat dans la cellule active ? :o -
-
@GyrusPff ! C'est parfait !
Merci beaucoup.
Toute seule, je me suis vraiment rendue folle pour des solutions simples au final.
Encore merci !
-
-
Bonjour,
Le sujet est un peu ancien mais j'aurais une question.
J'aimerais à la place de mettre une "," entre les cellules concaténées, un saut de ligne ALT+ENTRÉE.
Comment faire s'il vous plaît ?
