VBA: concatener cellules d'1 plage dynamique

[ZG1142]

Bonjour

J'aurais besoin d'un coup de main. qq'un aurait-il 5 min?
Dans le developpement de ma macro je me retrouve avec une plage selectionnée type:
Range(Selection, Selection.End(xlToRight))
Dans chacune des cellules selectionée il y a du texte.
Mon souhait serait de concatener dans une autres cellules, les valeurs de chacunes des cellules selectionées en les séparant d'une virgules. le but étant de m'en servir dans un msgbox...

J'ai beau chercher sur les forums, je n'ai pas trouvé de discussion concernant mon problème...
Qq'un aurait il une idée?

Merci

 

[Pierrot93]

Re : VBA: concatener cellules d'1 plage dynamique

Bonjour,

essaye peut être ainsi :

Dim c As Range, message As String
For Each c In Selection
    message = message & c.Value & ", "
Next c
MsgBox Mid(message, 1, Len(message) - 2)

bon après midi
@+

 

[tototiti2008]

Re : VBA: concatener cellules d'1 plage dynamique

Bonjour ZG1142,

Sub test()
Dim Cellule As Range, Texte As String
    Texte = ""
    For Each Cellule In Range(Selection, Selection.End(xlToRight))
        Texte = Texte & Cellule.Value & ","
    Next Cellule
    If Len(Texte) > 0 Then Texte = Left(Texte, Len(Texte) - 1)
    MsgBox Texte
End Sub

Edit : Bonjour Pierrot 😉

 

[ZG1142]

Re : VBA: concatener cellules d'1 plage dynamique

Pierrot

C'est encore toi qui me sort de la merde!! merci bcp!!!! ca marche tres bien!!!!
Par contre, saurais tu comment dasn ce msgbox je pourrait lui donner un titre, et mettre un warning genre vb critical?

 

[ZG1142]

Re : VBA: concatener cellules d'1 plage dynamique

merci également à TOTOTITI2008
votre aide est précieuse!!!!!

 

[Pierrot93]

Re : VBA: concatener cellules d'1 plage dynamique

Re bonjour toto,

modifie comme suit :

MsgBox Mid(Message, 1, Len(Message) - 2), vbCritical, "mon titre"

 

[ZG1142]

Re : VBA: concatener cellules d'1 plage dynamique

Merci c'est royal

Bon appetit

 

[ISA94]

Re : VBA: concatener cellules d'1 plage dynamique

Bonjour

J'ai utilisé la macro. Elle est parfaite pour faire apparaître le résultat dans une box. Mais moi je cherche à faire apparaître le résultat dans une cellule du fichier Excel.
Quelqu'un peut m'aider ?

Merci !!

 

[Pierrot93]

Re : VBA: concatener cellules d'1 plage dynamique

Bonsoir,

modifie comme suit :

Dim c As Range, message As String
For Each c In Selection
    message = message & c.Value & ", "
Next c
range("A1").value = Mid(message, 1, Len(message) - 2)

@+

 

[ISA94]

Re : VBA: concatener cellules d'1 plage dynamique

Je viens de tester. C'est super !
Merci beaucoup !!!