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

[LauLauR]

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.

 

[Dudu2]

Bonjour,

S'il y a un nombre dans l'intersection du type de filtre et de la centrale, je voudrais concaténer.

Tu voudrais concaténer quoi avec quoi et placer la concaténation où ? Ce matin ma boule de cristal est un peu brouillée.

 

[pierrejean]

Bonjour Laurence R
Un essai
Edit Salut Dudu2

 

[sylvanu]

Bonjour Laurence, Dudu, PierreJean,
En PJ un essai avec une fonction perso :

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

 

[Dudu2]

Bonjour @sylvanu, @pierrejean,
Bien joué pour vos réponses. Je vais nettoyer ma boule de cristal

 

[LauLauR]

Bonjour,

Je vous remercie vraiment de vos deux réponses pierrejean et sylvanu.
Elles correspondent parfaitement à ma demande et j'ai compris les formules utilisées.
Vraiment au top !

ça me sauvera des heures de remplissage.

Merci encore et bonne journée !