Microsoft 365 Création de segments se basant sur plusieurs colonnes

[ralph45]

Bonjour ami.e.s excelien.ne.s,

Dans le tableau fictif joint, je désirerai créer 2 segments se basant sur plusieurs colonnes :

- 1 segment "Représentants légaux" qui serait la fusion des 2 colonnes "Représentant légal 1" et "Représentant légal 2" au niveau des patronymes.
- 1 segment "Élèves" qui serait la fusion des 3 colonnes "Élève 1", "Élève 2" et Élève 3" au niveau des patronymes.

Merci de votre aide et bonne soirée !

R@lph45

 

[Hecatonchire]

Bonsoir

Selon https://fr.wiktionary.org/wiki/patronyme#fr
patronymes : (Anthropologie) Nom de famille hérité du père

Il suffit de prendre le 1ère colonne.

Sinon par Segment ça ne me parait pas faisable mais peut être en générant des listes déroulantes via des fonctions dans une feuille annexe et une fonction FILTRE renvoyant le résultat sous les listes déroulantes.

 

[Bernard_XLD]

Bonjour ralph45, hecatonchire, le forum

deux colonnes cachées qui font les fusions par formule, segments appliqués dessus et ça fonctionnera.

Cordialement,
Bernard_XLD

 

[Hecatonchire]

Bonjour Bernard_XLD,

Je n'ai peut être pas compris la demande de ralph45 ou ta proposition mais je ne vois pas comment un segment pourrait filtrer, de manière utilisable, ce tableau même avec une colonne en plus.

Par exemple : si je veux sélectionner le représentant légal "Garcia", je vais devoir sélectionner dans le segment toutes les entrées correspondantes comme "Garcia", "GarciaRobert", "RobertGarcia", "BernardGarcia"... (les entrées ici représentent les noms de 2 représentants fusionnés) !

Les inversions du type "GarciaRobert" et "RobertGarcia" pourraient être résolues avec un tri avant fusion mais que faire avec les autres entrées comme "BernardGarcia" ?

 

[ralph45]

Bonjour @Hecatonchire @Bernard_XLD et le forum.

Merci de vous être penchés sur cette interrogation.
Afin d'être plus clair, j'ai fait un complément dans le fichier joint.

> En colonnes M et N, le résultat attendu en liste des segments voulus...

R@lph45

 

[JHA]

Bonjour à tous,

Cela ne correspond pas à la demande mais tu peux fusionner les listes avec Power Query mais elles ne seront pas utilisables pour le tableau.
Il te faudra passer par des formules ou par VBA pour intervenir sur le tableau.

JHA

 

[Hecatonchire]

Bonjour à tous,

@ralph14 : Le "résultat" pourra être en lecture seule (simple outil de consultation) ou devra permettre une mise à jour des données ?

 

[job75]

Bonjour le forum,

Voyez le fichier joint et le code de la feuille :

Option Explicit
Option Compare Text 'la casse est ignorée
Dim T, ncol%, a(), n& 'mémorise les variables

Private Sub OptionButton1_Change()
ComboBox1_GotFocus
ComboBox1_Change
End Sub

Private Sub ComboBox1_GotFocus()
Dim tablo, i&, j%, k%
With [Tableau1]
    T = .Value 'matrice, plus rapide
    ncol = .Columns.Count
    tablo = IIf(OptionButton1, .Resize(, 2), .Columns(3).Resize(, 3))
End With
Erase a: n = 0
For i = 1 To UBound(tablo)
    For j = 1 To UBound(tablo, 2)
        If tablo(i, j) <> "" Then
            n = n + 1
            ReDim Preserve a(1 To 2, 1 To n)
            a(1, n) = tablo(i, j)
            a(2, n) = i 'mémorise la ligne
        End If
Next j, i
If n Then ComboBox1.List = Application.Index(a, 1, 0) Else ComboBox1.Clear
End Sub

Private Sub ComboBox1_Change()
Dim crit$, d As Object, resu(), i&, j%, lig&, col%
crit = "*" & ComboBox1 & "*"
If n Then
    Set d = CreateObject("Scripting.Dictionary")
    ReDim resu(1 To UBound(T), 1 To ncol)
    For i = 1 To UBound(a, 2)
        If a(1, i) Like crit Then
            If Not d.exists(a(2, i)) Then
                d(a(2, i)) = 0
                lig = lig + 1
                For col = 1 To ncol
                    resu(lig, col) = T(a(2, i), col)
                Next col
            End If
        End If
    Next i
End If
'---restitution---
With [Tableau2] 'tableau structuré
    If lig Then .Resize(lig, ncol) = resu
    If .ListObject.DataBodyRange Is Nothing Then Exit Sub
    If lig < .Rows.Count Then .Rows(lig + 1).Resize(.Rows.Count - lig).Delete xlUp
End With
End Sub

La ComboBox permet de faire une recherche intuitive dans les colonnes choisies.

A+