XL 2016 Formule qui ajoute/concatenne des informations de plusieurs cellule séparé d'un éléments

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

onyirimba

XLDnaute Occasionnel
Supporter XLD
Bonjour,

Est ce que je pourrai obtenir une formule qui me donnerai l'information de la cellule C11 à partir des cellules B11 à B16 ?
c'est-à-dire qui ajoute les informations des cellules B11 à B16 séparé du "|" (touche 6 du clavier)

J'ai joint un fichier Excel qui illustre ma demande.

Merci d'avance de votre aide.

Cdlt.

1737477729980.png
 

Pièces jointes

Solution
Re,
C'est une fonction. Pourquoi vouloir l'encapsuler dans une sub ?
Voir PJ.
On crée une fonction. Elle est ensuite utilisable comme toute fonction XL.
Dans une cellule vous mettez : =Assemble(C4:C9) ... et ça marche.
Bonsoir onyirimba,
Le plus simple avec votre PJ ( qui n'est pas votre exemple ) :
VB:
=C4&"|"&C5&"|"&C6&"|"&C7&"|"&C8&"|"&C9
Si la liste est plus longue alors peut être une macro VBA comme par ex :
Code:
Function Assemble(Plage)
For Each C In Plage
    Assemble = Assemble & C.Value & "|"
Next C
Assemble = Mid(Assemble, 1, Len(Assemble) - 1)
End Function
Syntaxe : =Assemble(C4:C9)
 
Bonsoir onyirimba,
Le plus simple avec votre PJ ( qui n'est pas votre exemple ) :
VB:
=C4&"|"&C5&"|"&C6&"|"&C7&"|"&C8&"|"&C9
Si la liste est plus longue alors peut être une macro VBA comme par ex :
Code:
Function Assemble(Plage)
For Each C In Plage
    Assemble = Assemble & C.Value & "|"
Next C
Assemble = Mid(Assemble, 1, Len(Assemble) - 1)
End Function
Syntaxe : =Assemble(C4:C9)
bonjour,

cela ne fonctionne pas quand je rentre la macro dans le fichier excel :

j'ai joint le fichier excel

1737479482846.png
 

Pièces jointes

Re,
C'est une fonction. Pourquoi vouloir l'encapsuler dans une sub ?
Voir PJ.
On crée une fonction. Elle est ensuite utilisable comme toute fonction XL.
Dans une cellule vous mettez : =Assemble(C4:C9) ... et ça marche.
 

Pièces jointes

- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
4
Affichages
602
Retour