Comment créer une liste de valeurs uniques sur plusieurs feuilles de calcul dans Excel ?

Lorsque vous travaillez avec des données réparties sur plusieurs feuilles de calcul dans Excel, vous pourriez avoir besoin de consolider les informations et de générer une liste de valeurs uniques. Bien qu'Excel ne propose pas de fonctionnalité intégrée directe pour cette tâche, il existe plusieurs méthodes pour y parvenir. Cet article vous guidera à travers trois approches pratiques pour créer une liste de valeurs uniques à partir de plusieurs feuilles de calcul.

Créer une liste de valeurs uniques à partir de plusieurs feuilles de calcul

• Avec du code VBA
• En utilisant Kutools AI Aide
• Avec une formule (Excel 365)

Créer une liste de valeurs uniques à partir de plusieurs feuilles de calcul avec du code VBA

Pour lister toutes les valeurs uniques de toutes les feuilles de calcul, le code VBA suivant peut vous aider, veuillez procéder comme suit :

1. Maintenez enfoncées les touches "ALT + F11" pour ouvrir la fenêtre "Microsoft Visual Basic pour Applications".

2. Cliquez sur "Insérer" > "Module", puis collez la macro suivante dans la fenêtre Module.

Code VBA : Créer une liste de valeurs uniques à partir de plusieurs feuilles de calcul :

Sub SheelsUniqueValues()
Dim xObjNewWS As Worksheet
Dim xObjWS As Worksheet
Dim xStrAddress As String
Dim xIntRox As Long
Dim xIntN As Long
Dim xFNum As Integer
Dim xMaxC, xColumn As Integer
Dim xR As Range
xStrName = "Unique value"
Application.ScreenUpdating = False
xMaxC = 0
Application.DisplayAlerts = False
For Each xObjWS In Sheets
    If xObjWS.Name = xStrName Then
        xObjWS.Delete
        Exit For
    End If
Next
Application.DisplayAlerts = True
For xFNum = 1 To Sheets.Count
    xColumn = Sheets(xFNum).Cells.Find(What:="*", after:=[A1], SearchOrder:=xlByColumns, SearchDirection:=xlPrevious).Column
    If xMaxC < xColumn Then
        xMaxC = xColumn
    End If
Next xFNum
Application.DisplayAlerts = True
Set xObjNewWS = Sheets.Add(after:=Sheets(Sheets.Count))
xObjNewWS.Name = xStrName
For xColumn = 1 To xMaxC
    xIntN = 1
    For xFNum = 1 To Sheets.Count - 1
        Set xR = Sheets(xFNum).Columns(xColumn)
        If TypeName(Sheets(xFNum).Columns(xColumn).Find(What:="*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious)) <> "Nothing" Then
            xIntRox = xR.Find(What:="*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
            Sheets(xFNum).Range(Cells(1, xColumn).Address & ":" & Cells(xIntRox, xColumn).Address).Copy
            Cells(xIntN, xColumn).PasteSpecial xlValues
            xIntN = xIntRox + xIntN + 1
        End If
    Next xFNum
    If xIntRox - 1 > 0 Then
    xIntRox = xIntN - 1
    xStrAddress = Cells(1, xColumn).Address & ":" & Cells(xIntRox, xColumn).Address
    Range(xStrAddress).AdvancedFilter Action:=xlFilterInPlace, Unique:=True
    Range(xStrAddress).Copy
    Cells(1, xColumn + 1).PasteSpecial xlValues
    Range(xStrAddress).AdvancedFilter Action:=xlFilterInPlace, Unique:=False
    Columns(xColumn).Delete
    Range(xStrAddress).Sort key1:=Cells(1, xColumn), Header:=xlNo
    End If
Next xColumn
Application.CutCopyMode = False
Application.ScreenUpdating = True
End Sub

3. Après avoir collé le code ci-dessus, appuyez sur F5 pour exécuter ce code, et une nouvelle feuille de calcul nommée Valeurs uniques est créée et les noms uniques de la colonne A de toutes les feuilles sont listés comme le montre la capture d'écran suivante :

Créer une liste de valeurs uniques à partir de plusieurs feuilles de calcul avec Kutools AI Aide

Dans cette section, nous allons vous montrer comment créer facilement une liste de valeurs uniques à partir de plusieurs feuilles de calcul en utilisant Kutools AI Aide.

Cliquez sur "Kutools" > "AI Aide" pour ouvrir le volet "Kutools AI Aide", dans le volet, veuillez effectuer les opérations suivantes :

1. Tapez la demande dans la zone de chat : par exemple :
   Extraire toutes les valeurs uniques de la colonne A de toutes les feuilles de calcul de ce classeur et lister les valeurs uniques dans une nouvelle feuille.
2. Puis, appuyez sur la touche Entrée ou cliquez sur le bouton "Envoyer". Kutools AI analysera la question, une fois terminé, cliquez sur le bouton "Exécuter", toutes les valeurs uniques de plusieurs feuilles seront affichées dans une nouvelle feuille, voir la démonstration :
   

Créer une liste de valeurs uniques à partir de plusieurs feuilles de calcul avec une formule (Excel 365)

Si vous souhaitez créer une liste de valeurs uniques à partir de plusieurs feuilles de calcul dans Excel en utilisant une formule, vous pouvez y parvenir en combinant des fonctions de tableau dynamique telles que UNIQUE et VSTACK dans Excel 365.

Veuillez entrer la formule suivante dans une cellule vide, puis appuyez sur la touche Entrée pour extraire les valeurs uniques dans une seule colonne à partir de plusieurs feuilles. Voir la capture d'écran :

=UNIQUE(VSTACK(Sheet1!A1:A11, Sheet2!A1:A11, Sheet3!A1:A11, Sheet4!A1:A11))

Dans cet article, nous avons exploré trois méthodes efficaces pour créer une liste de valeurs uniques à partir de plusieurs feuilles de calcul dans Excel. Chaque méthode a ses avantages, vous permettant de choisir celle qui correspond le mieux à votre version d'Excel, à votre niveau de compétence et à vos besoins spécifiques. Si vous êtes intéressé par l'exploration de plus d'astuces et conseils Excel, notre site Web propose des milliers de tutoriels.