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

LauLauR · 18 Janvier 2021

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.

pierrejean · 18 Janvier 2021

Bonjour Laurence R
Un essai
Edit Salut Dudu2

Dudu2 · 18 Janvier 2021

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 · 18 Janvier 2021

Bonjour Laurence R
Un essai
Edit Salut Dudu2

sylvanu · 18 Janvier 2021

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

Dudu2 · 18 Janvier 2021

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

LauLauR · 19 Janvier 2021

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 !

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

LauLauR

XLDnaute Nouveau

Pièces jointes

pierrejean

Dudu2

XLDnaute Barbatruc

pierrejean

XLDnaute Barbatruc

Pièces jointes

sylvanu

XLDnaute Barbatruc

Pièces jointes

Dudu2

XLDnaute Barbatruc

LauLauR

XLDnaute Nouveau

Discussions similaires