!!! concaterner !!!

[fabrice]

Bonjour tout le monde!!

Juste une question (qui risque de vous sembler simple!!!). Je souhaite regrouper les données de plusieures cellules dans une seule cellule, mais avec le caractere ";" entre les valeurs celulles.

J'ai essayé avec la formule concatener mais les valeurs sont toutes collées!!!

est ce que vous avez une piote solution ???

Merci de votre aide,
FAb

 

[Vériland]

oups !

J'viens de relire le fil et je n'ai pas fais attention au problème de Fabrice qui ne voulait pas des ;; lors de cellules vides dans la liste...

donc pour y remédier voici la correction de la fonction...

Function SuperConcate(Plage As Range) As String
Dim Cellule As Range
For Each Cellule In Plage
If Cellule <> "" Then SuperConcate = SuperConcate & Cellule.Text & "; "
Next
End Function

Pour la formule, tu la places où tu veux dans une cellule en inscrivant :

=SuperConcate(Taplage)

Mais bien entendu la fonction proposée est à placer dans un module VBA...

PS : Macro à copier depuis le forum auquel cas tu risques d'avoir les attributs gras du post dedans...

 

[fabrice]

re à tous ;=)

Merci bcq vériland, je regarde ca et te tiens au courant d'ici demain!!!

Merci encore à vous et bonne nuit à tous,

FAb, qui est crevé par sa journée ;=)

 

[Vériland]

C'est sûr qu'avec toutes les propositions de concatener dans ce fil tu as de quoi faire...

Mais si tu n'arrives pas à dormir, au lieu de compter les moutons, je te suggère de compter les "SI" de Monique...hi hi hi

Bonne nuit