VBA: concatener cellules d'1 plage dynamique

Pierrot93

XLDnaute Barbatruc

• 5 Février 2010

• #2

Re : VBA: concatener cellules d'1 plage dynamique

Bonjour,

essaye peut être ainsi :

Code:

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
@+

 

Vote positif 0 Vote négatif

tototiti2008

XLDnaute Barbatruc

• 5 Février 2010

• #3

Re : VBA: concatener cellules d'1 plage dynamique

Bonjour ZG1142,

Code:

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 😉

 

Vote positif 0 Vote négatif

Z

ZG1142

Guest

• 5 Février 2010

• #4

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?

 

Vote positif 0 Vote négatif

Z

ZG1142

Guest

• 5 Février 2010

• #5

Re : VBA: concatener cellules d'1 plage dynamique

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

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 5 Février 2010

• #6

Re : VBA: concatener cellules d'1 plage dynamique

Re bonjour toto,

modifie comme suit :

Code:

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

 

Vote positif 0 Vote négatif

Z

ZG1142

Guest

• 5 Février 2010

• #7

Re : VBA: concatener cellules d'1 plage dynamique

Merci c'est royal

Bon appetit

 

Vote positif 0 Vote négatif

I

ISA94

Guest

• 12 Février 2010

• #8

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 !!

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 12 Février 2010

• #9

Re : VBA: concatener cellules d'1 plage dynamique

Bonsoir,

modifie comme suit :

Code:

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)

@+

 

Vote positif 0 Vote négatif

I

ISA94

Guest

• 12 Février 2010

• #10

Re : VBA: concatener cellules d'1 plage dynamique

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

 

Vote positif 0 Vote négatif