Combiner plusieurs données dans une cellule avec un filtre

7classeur1.xlsx (8.60 Ko)

Bonjour,

Je fais appelle à vous pour vous demander de combiner plusieurs données dans une cellule avec un filtre.

Je m'explique :

Dans le fichier excel (ci-joint), 2 onglets sont présents :

  • N° intervention
  • Etat des lieux

Dans l'onglet n° intervention, un numéro d'intervention est donné pour chaque intervention sur un équipement (A/B/C/D ...)

Dans l'onglet état des lieux, il y a les équipements avec les n° intervention.

Ce que j'aimerai avoir c'est de combiner les n° intervention par équipements.

Cela est-il possible?

Par avance, merci à vous,

Storm28

Bonjour,

Rien à voir avec un filtre !

Proposition de fonction personnalisée :

Function RECHMULT(Eqp As String, PlgEqp As Range, PlgItv As Range) As String
    Dim NumItv(), n%, i%
    Application.Volatile
    With PlgEqp
        For i = 1 To .Cells.Count
            If .Cells(i) = Eqp Then
                ReDim Preserve NumItv(n)
                NumItv(n) = PlgItv.Cells(i)
                n = n + 1
            End If
        Next i
    End With
    Select Case n
        Case 0: RECHMULT = ""
        Case 1: RECHMULT = NumItv(0)
        Case Else: RECHMULT = Join(NumItv, " ; ")
    End Select
End Function

voir utilisation dans fichier.

Cordialement.

Re,

Merci pour l'information.

Mais lorsque j'alimente mon fichier, rien ne se met en automatique.

Pourrait-on faire cela, s'il vous plaît ?

Merci à vous,

Storm28

Ce que j'ai fourni, c'est une fonction, utilisable comme les fonctions d'Excel...

Cordialement.

Rechercher des sujets similaires à "combiner donnees filtre"