XL 2010 Concaténer des cellules si une intersection est non-vide

  • Initiateur de la discussion Initiateur de la discussion LauLauR
  • Date de début Date de début

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 !

LauLauR

XLDnaute Nouveau
Bonjour,

J'ai cherché la réponse à ma question sur sur ce forum mais les solutions ne correspondent pas exactement à mon problème.
J'ai un fichier qui reprend les types et le nombre de filtres de centrales d'air. Le numéro de centrale est en colonne A et les types de filtres sont en ligne.
S'il y a un nombre dans l'intersection du type de filtre et de la centrale, je voudrais concaténer. Si l'intersection est vide, on ne fait rien.

Je joint un fichier test pour que ça soit plus clair. Le vrai fichier contient beaucoup plus de centrales d'où ma demande.

Merci d'avance pour votre aide.
 

Pièces jointes

Bonjour Laurence, Dudu, PierreJean,
En PJ un essai avec une fonction perso :
VB:
Function Concatene(PlageN, Lnom, Ltype)
'Ecrire 4xG4 : 592*592 / 4xF9 : 592*592 / 4xH14 : 610*619*292
Dim N, L%, C%, Nom$, TypeC$
For Each N In PlageN
    L = N.Row: C = N.Column
    Nom = Cells(Lnom, C): TypeC = Cells(Ltype, C)
    If Cells(L, C) <> "" Then
        Concatene = Concatene & Cells(L, C) & "x" & TypeC & " : " & Nom & " / "
    End If
Next
If Len(Concatene) > 0 Then
    Concatene = Mid(Concatene, 1, Len(Concatene) - 2) ' Supprime le dernier /
Else
    Concatene = ""
End If
End Function
 

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

Retour