XL 2019 VBA concaténer et copier

desireles

XLDnaute Nouveau
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.
 

Pièces jointes

  • test1.xlsm
    779.7 KB · Affichages: 3

Phil69970

XLDnaute Barbatruc
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
 

Pièces jointes

  • Copie et assemble V2.xlsm
    844.5 KB · Affichages: 3
Dernière édition:

Cousinhub

XLDnaute Barbatruc
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 :
VB:
=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 :

Code:
=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
 

Cousinhub

XLDnaute Barbatruc
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...
 

Discussions similaires

Réponses
24
Affichages
1 K

Statistiques des forums

Discussions
311 720
Messages
2 081 886
Membres
101 830
dernier inscrit
sonia poulaert