VBA Concaténer une plage de cellules

[Mappie]

Bonjour,

Je voudrais s'il était possible, sous forme de macro, de concaténer une plage de cellules contenant des cellules vides et de taille variable en séparant et en mettant à la ligne chaque résultat au lieu d'utiliser la formule & puis copier-coller valeur et mettre en forme.

Je vous remercie par avance pour votre aide.

 

[phlaurent55]

Re : VBA Concaténer une plage de cellules

bonjour Mappie,

voir fichier joint

à+
Philippe

 

[eriiic]

Re : VBA Concaténer une plage de cellules

Bonjour à tous,

et sous forme de fonction personnalisée.

eric

 

[sousou]

Re : VBA Concaténer une plage de cellules

Bonjour Mappie
A minima et sous réserve que ta structure de phrase soit bien celle du fichier, tu peux utiliser ce qui suit.

Sélectionne la zone à concaténer, et lance la macro Ici zone rangement en 12
Sub conc()
For Each i In Selection

If i <> "" Then
s = InStr(i, Chr(10))
p1 = Left(i, s - 1)
p2 = Right(i, Len(i) - s)
phrase = phrase & p1 & Chr(10) & p2 & Chr(10) & Chr(10)
End If
Next
Range("c12") = phrase
End Sub

plein de réponses!!!!

 

[Mappie]

Re : VBA Concaténer une plage de cellules

Je vous remercie phlaurent55, eriiiic , sousou pour votre aide!

C'est exactement ce que je recherchais!

Bonne soirée