Microsoft 365 Liste alphabétique

[ff145bv]

Bonjour,
J'ai deux listes alphabétiques sur deux colonnes distinctes, toutes deux pouvant accueillir au maximum 20 noms (mais parfois moins).
Je voudrais ne constituer qu'une seule liste alphabétique à partir de ces deux listes, sachant donc qu'il est tout à fait possible que chaque liste contienne moins de 20 noms.
Or je m'emmêle depuis deux jours avec les formules PETITE.VALEUR, NB.SI, INDEX, EQUIV.
Pourriez-vous m'aider ?
Merci infiniment par avance pour votre aide et votre talent.

 

[Cousinhub]

Bonjour,
Supposant les deux zones (A1:A20) et (B1:B20) (remplies ou non)
En C1 :

=LET(a;ASSEMB.V(A1:A20;B1:B20);TRIER(UNIQUE(FILTRE(a;a<>""))))

Ou

=TRIER(UNIQUE(FILTRE(ASSEMB.V(A1:A20;B1:B20);ASSEMB.V(A1:A20;B1:B20)<>"")))

Nota, Unique peut être supprimé s'il n'y a pas de doublons

 

[ff145bv]

Merci infiniment. Je découvre plein de fonctions que je n'utilise jamais.
Je vais finalement utiliser votre deuxième proposition car la première se conclue par "Propagation".
Encore un grand merci !

 

[Cousinhub]

Merci infiniment. Je découvre plein de fonctions que je n'utilise jamais.
Je vais finalement utiliser votre deuxième proposition car la première se conclue par "Propagation".
Encore un grand merci !

Re-,
si la première se conclue par "Propagation", c'est parce qu'elle n'a pas assez de cellules dessous pour se "propager"
Libère les cellules dessous, ou mets cette formule dans une autre cellule disposant d'au moins 40 (max) cellules vides dessous
Bonne journée

 

[sylvanu]

Bonjour,

Or je m'emmêle depuis deux jours avec les formules PETITE.VALEUR, NB.SI, INDEX, EQUIV

On peut aussi faire :

=SI(LIGNE()<=NBVAL(A$1:A$20); INDEX(A$1:A$20; LIGNE()); SI(LIGNE()<=NBVAL(A$1:A$20)+NBVAL(B$1:B$20); INDEX(B$1:B$20; LIGNE()-NBVAL(A$1:A$20)); ""))

 

[job75]

Bonjour à tous,

Ne pas oublier que VBA est toujours là pour apporter une solution :

Private Sub Worksheet_Change(ByVal Target As Range)
Dim P As Range, n&
Application.ScreenUpdating = False
Application.EnableEvents = False 'désactive les évènements
With ActiveSheet
    If .FilterMode Then .ShowAllData 'si la feuille est filtrée
    Set P = .UsedRange
    P.Columns(4).Offset(1).ClearContents 'RAZ
    n = P.Rows.Count
    P(2, 4).Resize(n) = P.Columns(1).Offset(1).Value 'copie les valeurs
    P(2 + n, 4).Resize(n) = P.Columns(2).Offset(1).Value 'copie les valeurs
    With P(2, 4).Resize(2 * n)
        .Sort .Cells, xlAscending, Header:=xlNo 'tri de la 4ème colonne
        .RemoveDuplicates 1, xlNo 'supprime les doublons
        .SpecialCells(xlCellTypeBlanks).Delete xlUp 'supprime les cellules vides
    End With
    .UsedRange 'actualise la barre de défilement verticale
End With
Application.EnableEvents = True 'réactive les évènements
End Sub

La macro est dans le code de la feuille et s'exécute quand on modifie ou valide une cellule quelconque.

A+

 

[job75]

Notez que chez moi la macro précédente est 3 fois plus rapide qu'une macro utilisant des tableaux VBA, le Dictionary et Quick sort.