Comment extraire dynamiquement une liste de valeurs uniques à partir d'une plage de colonnes dans Excel ?

Pour une plage de colonnes dont les valeurs changent régulièrement, et où vous devez toujours obtenir toutes les valeurs uniques de la plage, peu importe comment elle a changé. Comment créer une liste dynamique de valeurs uniques ? Cet article vous montrera comment y parvenir.

Extraire dynamiquement une liste de valeurs uniques à partir d'une plage de colonnes avec une formule
Extraire dynamiquement une liste de valeurs uniques à partir d'une plage de colonnes avec du code VBA

Extraire dynamiquement une liste de valeurs uniques à partir d'une plage de colonnes avec une formule

Comme le montre la capture d'écran ci-dessous, vous devez extraire dynamiquement une liste de valeurs uniques de la plage B2:B9. Veuillez essayer la formule matricielle suivante.

1. Sélectionnez une cellule vide comme D2, entrez la formule ci-dessous dedans et appuyez simultanément sur les touches Ctrl + Shift + Enter. (B2:B9 est la plage de données de la colonne à partir de laquelle vous souhaitez extraire les valeurs uniques, D1 est la cellule située au-dessus où se trouve votre formule)

=SIERREUR(INDEX($B$2:$B$9; EQUIV(0;NB.SI($D$1:D1; $B$2:$B$9); 0));"")

2. Continuez à sélectionner la cellule D2, puis faites glisser la poignée de recopie vers le bas pour obtenir toutes les valeurs uniques de la plage spécifiée.

Maintenant, toutes les valeurs uniques de la plage de colonnes B2:B9 sont extraites. Lorsque les valeurs de cette plage changent, la liste des valeurs uniques sera immédiatement mise à jour de manière dynamique.

Extraire dynamiquement une liste de valeurs uniques à partir d'une plage de colonnes avec du code VBA

Vous pouvez également extraire une liste de valeurs uniques dynamiquement à partir d'une plage de colonnes avec le code VBA suivant.

1. Appuyez simultanément sur les touches Alt + F11 pour ouvrir la fenêtre Microsoft Visual Basic pour Applications.

2. Dans la fenêtre Microsoft Visual Basic pour Applications, cliquez sur Insertion > Module. Ensuite, copiez et collez le code VBA ci-dessous dans la fenêtre Module.

Code VBA : Extraire une liste de valeurs uniques d'une plage

Sub CreateUniqueList()
Dim xRng As Range
Dim xLastRow As Long
Dim xLastRow2 As Long
Dim I As Integer
On Error Resume Next
Set xRng = Application.InputBox("Please select range:", "Kutools for Excel", Selection.Address, , , , , 8)
If xRng Is Nothing Then Exit Sub
On Error Resume Next
xRng.Copy Range("D2")
xLastRow = xRng.Rows.Count + 1
ActiveSheet.Range("D2:D" & xLastRow).RemoveDuplicates Columns:=1, Header:=xlNo
xLastRow2 = Cells(Rows.Count, "B").End(xlUp).Row
For I = 1 To xLastRow2
  If ActiveSheet.Range("D2:D" & xLastRow2).Cells(I).Value = "" Then
     ActiveSheet.Range("D2:D" & xLastRow2).Cells(I).Delete
  End If
Next
End Sub

Remarque : Dans le code, D2 est la cellule où vous placerez la liste des valeurs uniques. Vous pouvez la modifier selon vos besoins.

3. Revenez à la feuille de calcul, cliquez sur Insertion > Formes > Rectangle. Voir la capture d'écran :

4. Dessinez un rectangle dans votre feuille de calcul, puis saisissez les mots que vous souhaitez afficher dessus. Cliquez ensuite dessus avec le bouton droit de la souris et sélectionnez Attribuer une macro dans le menu contextuel. Dans la boîte de dialogue Attribuer une macro, sélectionnez CreateUniqueList dans la zone Nom de la macro, puis cliquez sur le bouton OK. Voir la capture d'écran :

5. Maintenant, cliquez sur le bouton rectangle, une boîte de dialogue Kutools for Excel apparaît, veuillez sélectionner la plage contenant les valeurs uniques que vous devez extraire, puis cliquez sur le bouton OK.

À partir de maintenant, vous pouvez répéter l'étape 5 ci-dessus pour mettre à jour automatiquement la liste des valeurs uniques.

Articles connexes :

• Comment créer un calendrier mensuel dynamique dans Excel ?
• Comment insérer dynamiquement une image ou une photo dans une cellule en fonction de la valeur de la cellule dans Excel ?
• Comment créer un hyperlien dynamique vers une autre feuille dans Excel ?