Comment créer une liste de valeurs uniques à partir de plusieurs feuilles de calcul dans Excel ?
Lorsque vos données sont réparties sur plusieurs feuilles de calcul dans Excel, il peut s’avérer utile de les consolider pour générer une liste de valeurs uniques. Même si Excel ne propose pas de fonctionnalité intégrée dédiée à cette tâche, plusieurs méthodes efficaces permettent de l’accomplir. Cet article vous présente 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
Créer une liste de valeurs uniques à partir de plusieurs feuilles de calcul avec du code VBA
Pour extraire toutes les valeurs uniques de l’ensemble de vos feuilles de calcul, la macro VBA suivante vous sera particulièrement utile. Suivez simplement ces étapes :
1. Maintenez les touches « ALT + F11 » enfoncées pour ouvrir la fenêtre « Microsoft Visual Basic pour Applications ».
2. Cliquez sur « Insertion » > « Module », puis collez la macro suivante dans la fenêtre qui s’ouvre.
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 l’exécuter. Une nouvelle feuille intitulée « Valeur unique » est alors créée, regroupant tous les noms uniques de la colonne A provenant de chaque feuille, comme le montre la capture d’écran suivante :
Créer une liste de valeurs uniques à partir de plusieurs feuilles de calcul avec l’Kutools IA Aide
Dans cette section, nous vous montrons comment créer facilement une liste de valeurs uniques à partir de plusieurs feuilles de calcul grâce à l’IA Aide de Kutools.
Cliquez sur « Kutools » > « Assistant IA » pour ouvrir le volet « Kutools IA Aide », puis effectuez les opérations suivantes :
- Saisissez votre demande dans la zone de discussion, par exemple :
Extraire toutes les valeurs uniques de la colonne A de tous les classeurs de ce fichier Excel et lister ces valeurs uniques dans une nouvelle feuille - Ensuite, appuyez sur la touche Entrée ou cliquez sur le bouton « Envoyer ». Kutools IA analysera votre question. Une fois l’analyse terminée, cliquez sur le bouton « Exécuter » : toutes les valeurs uniques issues de plusieurs feuilles s’afficheront automatiquement dans une nouvelle feuille. Consultez la démonstration suivante :
Créer une liste de valeurs uniques à partir de plusieurs feuilles de calcul avec une formule (Excel 365)
Pour créer une liste de valeurs uniques à partir de plusieurs feuilles de calcul dans Excel, combinez les fonctions de tableau dynamique **UNIQUE** et **VSTACK** disponibles dans Excel 365.
Saisissez la formule suivante dans une cellule vide, puis appuyez sur Entrée pour extraire les valeurs uniques de plusieurs feuilles en une seule colonne. Consultez la capture d’écran ci-dessous :
=UNIQUE(VSTACK(Sheet1!A1:A11, Sheet2!A1:A11, Sheet3!A1:A11, Sheet4!A1:A11))
- VSTACKCombinez plusieurs plages (par exemple, Feuil1!A1:A11, Feuil2!A1:A11, Feuil3!A1:A11, Feuil3!A1:A11) en un seul tableau vertical.
- UNIQUE: supprime les doublons et renvoie uniquement les valeurs uniques de la liste combinée.
- A1:A11: ajustez la plage pour inclure votre véritable plage de données.
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 présente des avantages spécifiques, vous permettant de choisir celle qui correspond le mieux à votre version d’Excel, à votre niveau de compétence et à vos besoins précis. Si vous souhaitez découvrir davantage d’astuces et de conseils Excel, notre site web propose des milliers de tutoriels.
Meilleurs outils de productivité Office
Boostez vos compétences Excel avec Kutools pour Excel et découvrez une efficacité inégalée.Kutools pour Excel propose plus de 300 fonctionnalités avancées pour améliorer votre productivité et Gagner du temps.Cliquez ici pour obtenir la fonctionnalité dont vous avez le plus besoin...
Office Tab apporte une interface à onglets à Office et rend votre travail bien plus facile
- Activez l’édition et la lecture par onglets dans Word, Excel, PowerPoint, Publisher, Access, Visio et Project.
- Ouvrez et créez plusieurs documents dans de nouveaux onglets de la même fenêtre, plutôt que dans de nouvelles fenêtres.
- Augmente votre productivité de 50 % et vous fait économiser des centaines de clics de souris chaque jour !
Tous les compléments Kutools. Un seul installateur
Kutools for Office regroupe les compléments pour Excel, Word, Outlook et PowerPoint, ainsi que Office Tab Pro, ce qui en fait le choix idéal pour les équipes travaillant à travers les applications Office.
- Suite tout-en-un— Compléments Excel, Word, Outlook et PowerPoint + Office Tab Pro
- Un seul installateur, une seule licence— installation en quelques minutes (compatible MSI)
- Fonctionne mieux ensemble— productivité optimisée dans toutes les applications Office
- Essai gratuit de 30 jours avec toutes les fonctionnalités— aucune inscription, aucune carte bancaire
- Meilleur rapport qualité-prix— économisez par rapport à l’achat de compléments individuels