concatener cellules sans prise en compte des vides

[gilles72]

Bonjour,
Un petit coup de main SVP...
J'ai une formule toute bête pour concatener des cellules
=CONCATENER(A2;", ";B2;", ";C2;", ";D2;", ";E2;", ";F2;", ";G2;", ";H2;", ";I2;", ";J2;", ";K2;", ";L2;", ";M2)
Mais je pense avoir en final 30 cellules à concatener.
et il est possible que seules les premières et les dernières soient utilisées.
j'ai donc un résultat qui ressemble à ça:
AAA, , , , , , , , , , , ZZZZ,
Donc j'aimerai trouvé une formule ou un code VBA qui permette de ne prendre QUE les cellules remplies
pour obtenir ça:
AAA, ZZZZ,
Est-ce que kelqu'un aurait un idée?
Merci de votre aide
Gilles72

 

[sousou]

Re : concatener cellules sans prise en compte des vides

Bonjour gilles72
Je te proposes une fonction =conc(zone)
dans le fichier joint

 

[gilles72]

Re : concatener cellules sans prise en compte des vides

Merci sousou
c'est exactement ce que je cherchais
je te remercie encore
et chapeau pour l'efficacité!
à+
gilles72

 

[Paritec]

Re : concatener cellules sans prise en compte des vides

Bonjour Gilles72 le forum
voilà ton fichier en retour
a+
Papou

EDIT: Bonsoir Sousou même idée mais en retard a+ Papou

 

[gilles72]

Re : concatener cellules sans prise en compte des vides

Merci PAPOU
effectivement vous avez eu la même idée
j'étais parti avec une private sub
mais ça n'allait pas fort
vous n'avez pas utilisé la même syntaxe
LEN
MID
différence?
Merci encore
gilles72

 

[sousou]

Re : concatener cellules sans prise en compte des vides

Bonjour
mid(chaine,start,lenght)
MID(Chaine,Numéro du premier caractère à envoyer, longueur de la chaine si omis toute la chaine)
right( chaine, nombre de caractère) extraire un nombre de caractère à partir de la droite
len(chaine) longueur d'une chaine

 

[Raffa]

Bonjour,
j'ai essayé de l'appliquer mais même en prenant un classeur vierge et en recopiant les données et le code je n'ai pour résultat que : #NOM?
Il doit me manquer la fameuse poudre de perlimpimpin qui fait tout fonctionner...
Quelqu'un pourrait m'aider?
Merci d'avance

 

[Paritec]

Bonjour Raffa le forum
Oui passe ton fichier on te dira ce qui ne va pas
A plus
Papou

 

[Raffa]

Merci, c'est juste la copie sur un nouveau classeur mais ça ne fonctionne pas là, je vais avoir du mal à ce que ça fonctionne sur le bon fichier lol ;+)

 

[Paritec]

Ré Raffa le forum
La je ne suis plus devant un PC mais cet après midi je regarde ça
A plus
Papou

 

[Raffa]

Oui, c'est mieux devant, derrière on voit pas bien lol

 

[Paritec]

bonsoir Raffa le forum
Je pense effectivement que tu devais être derrière le PC, quand tu as recopié la fonction !!!
bonne soirée
Papou

 

[Raffa]

oh tu peux même dire en dessous, au 36 ème en dessous...
Je ne comprend pas, j'ai recopié les codes sur ma feuille, le résultat est toujours le même ; #NOM?
Sur celle que tu m'as envoyé ça fonctionne très bien, dès que j'y touche... Adios
Comprend pas, je met le fichier mais je n'ai fait que copier/coller et vérifier que la colle est pris!!!

 

[Paritec]

Bonsoir Raffa, le forum
bon je t'ai laissé mariné un peu, alors voilà ton fichier avec les explications
voilà je pense que tu vas comprendre en lisant mon fichier V2
autrement redis moi je t'expliquerai en détail
a+
Papou

 

[Raffa]

Ah la vieille école... On ne donne pas du poisson à un pauvre, on lui apprend à pêcher...
Et ça fonctionne toujours, j'ai mariné, marné mais j'ai trouvé et j'ai su l'appliquer sur la feuille où j'en avais besoin ;+)

Bon, c'est pas facile pour moi, j'ai un meilleur sens de l'humour que le sens logique d'excel (heureusement parce que ce serait la sinistrose à la maison lol)

Un grand merci papou pour les fichiers et ton sens de l'humour ;+)

A très bientôt... pour de nouvelles aventures mdr

Henri