XL 2019 VBA concaténer et copier

[desireles]

Bonjour,
voici mon soucis.
.Je désire copier les cellules B7 à B19 de ma feuille 1 vers B4 de ma feuille 2. La difficulté que je rencontre c'est qu'il faudrait que la macro concatènne ces cellules en les séparant par une virgule et un espace. Et qu'elle ne prenne en compte que les cellules remplies entre B7 et B30 de la feuille 1.
Afin que je puisse utiliser cette macro sur d'autre feuille (ce sont chaque fois des articles différents, chaque fois je crée une nouvelle feuille où ces nouveaux articles apparaissent et j'y place le bouton avec la macro.

Je vous remercie de votre aide et je joins un exemple.

 

[Phil69970]

Bonjour @desireles et bienvenu sur XLD

Je te propose ce fichier

Créer une nouvelle feuille à chaque fois j'y vois plutôt comme une erreur de conception ....
Mais je dis ça , je dis rien !!!!

Merci de ton retour

Edit : Modif du fichier à 13h05

@Phil69970

 

[Cousinhub]

Bonjour,
Pourquoi une macro?
Sous 2019, il y a une fonction qui le fait très bien.
Il faut d'abord que tu modifies ta formule dans la colonne B (de B7 à B47) comme ceci :

=SIERREUR(RECHERCHEV($A20;'N:\SANS T\[Calcul nutriments OK2.xls]compo (2)'!$A$2:$BZ$2514;B$1);"")

Et dans ta cellule, tu mets cette formule :

=JOINDRE.TEXTE(", ";VRAI;Feuil1!B7:B47)

1er argument, le séparateur (ici virgule + espace)
2ème, on ignore les valeurs nulles
3ème la plage à concaténer..
Et c'est tout!!!
Bonne apm

 

[Phil69970]

Bonjour @bhbh

Pourquoi une macro?

Parce que j'ai seulement Excel 2010 😉

@Phil69970

 

[Cousinhub]

Bonjour @bhbh



Parce que j'ai seulement Excel 2010 😉

@Phil69970

Hello,
Ma question était plutôt destinée à desireles... 😉

 

[desireles]

Merci bHbH, en fait ça fonctionne bien avec =JOINDRE.TEXTE(", ";VRAI;Feuil1!B7:B47), juste alors comment puis-je faire pour que dans les cellules vides n'y apparaissent pas 0 ou Ref ?

 

[Cousinhub]

Re-,
Euh, est-ce que tu as regardé la formule que je te propose pour la colonne B?
Je rajoute juste "SIERREUR", et garde ta formule de recherche d'origine...
Seulement, si la valeur n'est pas trouvée, on met des "" au lieu d'un 0 ou d'un message d'erreur
Donc, pas de modifications du tout...

 

[Cousinhub]

Re-,
Ton fichier modifié (uniquement les cellules vides, sinon on perd les données validées...)

 

[Phil69970]

@desireles

Merci de ton retour

Suis je invisible ? 😳

@Phil69970

 

[desireles]

Merci à toi PHIL69970 et bhbh, ça fonctionne, super forum