Note: The other languages of the website are Google-translated. Back to English

Comment mettre en évidence les valeurs en double dans différentes couleurs dans Excel?

doc différentes couleurs en double 1

Dans Excel, nous pouvons facilement mettre en évidence les valeurs en double dans une colonne avec une couleur en utilisant le Mise en forme conditionnelle, mais, parfois, nous devons mettre en évidence les valeurs en double dans différentes couleurs pour reconnaître les doublons rapidement et facilement comme illustré ci-dessous. Comment pourriez-vous résoudre cette tâche dans Excel?

Mettez en surbrillance les valeurs en double dans une colonne avec des couleurs différentes à l'aide du code VBA


flèche bleue bulle droite Mettez en surbrillance les valeurs en double dans une colonne avec des couleurs différentes à l'aide du code VBA

En fait, il n'existe aucun moyen direct pour nous de terminer ce travail dans Excel, mais le code VBA ci-dessous peut vous aider, procédez comme suit:

1. Sélectionnez la colonne de valeurs pour laquelle vous souhaitez mettre en évidence les doublons avec des couleurs différentes, puis maintenez la touche ALT + F11 clés pour ouvrir le Microsoft Visual Basic pour applications fenêtre.

2. Cliquez insérer > Moduleet collez le code suivant dans le Module Fenêtre.

Code VBA: mettez en surbrillance les valeurs en double dans différentes couleurs:

Sub ColorCompanyDuplicates()
'Updateby Extendoffice
    Dim xRg As Range
    Dim xTxt As String
    Dim xCell As Range
    Dim xChar As String
    Dim xCellPre As Range
    Dim xCIndex As Long
    Dim xCol As Collection
    Dim I As Long
    On Error Resume Next
    If ActiveWindow.RangeSelection.Count > 1 Then
      xTxt = ActiveWindow.RangeSelection.AddressLocal
    Else
      xTxt = ActiveSheet.UsedRange.AddressLocal
    End If
    Set xRg = Application.InputBox("please select the data range:", "Kutools for Excel", xTxt, , , , , 8)
    If xRg Is Nothing Then Exit Sub
    xCIndex = 2
    Set xCol = New Collection
    For Each xCell In xRg
      On Error Resume Next
      xCol.Add xCell, xCell.Text
      If Err.Number = 457 Then
        xCIndex = xCIndex + 1
        Set xCellPre = xCol(xCell.Text)
        If xCellPre.Interior.ColorIndex = xlNone Then xCellPre.Interior.ColorIndex = xCIndex
        xCell.Interior.ColorIndex = xCellPre.Interior.ColorIndex
      ElseIf Err.Number = 9 Then
        MsgBox "Too many duplicate companies!", vbCritical, "Kutools for Excel"
        Exit Sub
      End If
      On Error GoTo 0
    Next
End Sub

3. Et puis appuyez sur F5 clé pour exécuter ce code, et une boîte de dialogue vous rappellera de sélectionner la plage de données pour laquelle vous souhaitez mettre en évidence les valeurs en double, voir capture d'écran:

doc différentes couleurs en double 2

4. Puis clique OK bouton, toutes les valeurs en double ont été mises en évidence dans différentes couleurs, voir capture d'écran:

doc différentes couleurs en double 1


Les meilleurs outils de productivité de bureau

Kutools for Excel résout la plupart de vos problèmes et augmente votre productivité de 80%

  • Réutilisation: Insérer rapidement formules complexes, graphiques et tout ce que vous avez utilisé auparavant; Crypter les cellules avec mot de passe; Créer une liste de diffusion et envoyer des e-mails ...
  • Barre Super Formula (modifiez facilement plusieurs lignes de texte et de formule); Disposition de lecture (lire et modifier facilement un grand nombre de cellules); Coller dans la plage filtréeplus
  • Fusionner les cellules / lignes / colonnes sans perdre de données; Contenu des cellules divisées; Combiner des lignes / colonnes en double... Empêcher les cellules en double; Comparer les gammesplus
  • Sélectionnez Dupliquer ou Unique Lignes; Sélectionnez les lignes vides (toutes les cellules sont vides); Super Find et Fuzzy Find dans de nombreux classeurs; Sélection aléatoire ...
  • Copie exacte Plusieurs cellules sans changer la référence de formule; Créer automatiquement des références à plusieurs feuilles; Insérer des puces, Cases à cocher et plus encore ...
  • Extrait du texte, Ajouter du texte, Supprimer par position, Supprimer l'espace; Créer et imprimer des sous-totaux de pagination; Conversion entre le contenu et les commentaires des cellulesplus
  • Super filtre (enregistrer et appliquer des schémas de filtrage à d'autres feuilles); Tri avancé par mois / semaine / jour, fréquence et plus; Filtre spécial par gras, italique ...
  • Combiner des classeurs et des feuilles de travail; Fusionner les tableaux en fonction des colonnes clés; Diviser les données en plusieurs feuilles; Conversion par lots xls, xlsx et PDFplus
  • Plus de 300 fonctionnalités puissantes. Prend en charge Office / Excel 2007-2019 et 365. Prend en charge toutes les langues. Déploiement facile dans votre entreprise ou organisation. Essai gratuit de 30 jours. Garantie de remboursement de 60 jours.
onglet kte 201905

Office Tab apporte une interface à onglets à Office et simplifie considérablement votre travail

  • Activer 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 réduit des centaines de clics de souris chaque jour!
bas de cabine
Commentaires (90)
Pas encore de notes. Soyez le premier à évaluer!
Ce commentaire a été minimisé par le modérateur sur le site
Cela a fonctionné pour moi sur une liste de numéros de pièces.
Ce commentaire a été minimisé par le modérateur sur le site
Bonjour,

Existe-t-il un moyen de faire en sorte que cela n'affecte que la colonne en surbrillance et non la ligne entière? Certaines des couleurs vives rouges et bleues sont difficiles à regarder tout au long de la feuille de calcul. Merci
Ce commentaire a été minimisé par le modérateur sur le site
C'est juste ce dont j'avais besoin, merci. Parfois, lorsque j'exécute ce code, Excel se fige, j'utilise Office 2016 / Windows 10, une idée pourquoi ?
Ce commentaire a été minimisé par le modérateur sur le site
Patrick, ne mettez en surbrillance que les cellules souhaitées. Ne mettez pas en surbrillance la colonne entière qui inclura tous les milliers de cellules vides
Ce commentaire a été minimisé par le modérateur sur le site
Je veux vérifier les doublons pour 5000 cellules, ce que je ne peux pas faire. je peux mettre en surbrillance les doublons jusqu'à 70 à 80 cellules
Ce commentaire a été minimisé par le modérateur sur le site
Sous BuscarD()
Dim xRg As Range
Dim xTxt As String
Dim xCell As Range
Dim xChar As String
Dim xCellPre As Range
Dim xCol As Collection
Dim I As Long
Dim j comme entier
Dim K en tant qu'entier
Dim xCLR en tant qu'entier

xCLR = 28

On Error Resume Next
Si ActiveWindow.RangeSelection.Count > 1 Alors
xTxt = ActiveWindow.RangeSelection.AddressLocal
autre
xTxt = ActiveSheet.UsedRange.AddressLocal
Si fin
Set xRg = Application.InputBox("Sélectionnez la plage à évaluer :", "Buscar duplicados", xTxt, , , , , 8)
Si xRg n'est rien, quittez Sub
J = 0
K = 0
Définir xCol = Nouvelle collection
Pour chaque xCell dans xRg
On Error Resume Next
xCol.Add xCell, xCell.Text
Si Err.Number = 457 Alors
Définir xCellPre = xCol(xCell.Text)
Si xCellPre.Interior.ColorIndex = xlNone Alors
xCellPre.Interior.Color = RVB(255, J, K)
xCell.Interior.Color = RVB(255, J, K)
Si K + xCLR <= 255 Alors
K = K + xCLR
autre
Si J + xCLR <= 255 Alors
K = 0
J = J + xCLR
autre
MsgBox " !Dépliquez les données dupliquées ! : Réduisez la variable xCLR", vbCritical, "Erreur"
Exit Sub
Si fin
Si fin
autre
xCell.Interior.Color = xCellPre.Interior.Color
Si fin
ElseIf Err.Number = 9 Alors
MsgBox "Dépôt des données dupliquées !", vbCritical, "Erreur"
Exit Sub
Si fin
En cas d'erreur GoTo 0
Suivant

End Sub

Es un tema viejo, pero lo dejo por si alguien lo necesita. Avec le code antérieur et la modification de la variable "xCLR", desde 1 a 255, se pueden obtener desde 4 hasta 65.000 colores diferentes. Dans mon cas, configuré el rojo del RGB con un valor estático de 255 y varío los valores verde y azul (255, X, X). Si se requieren mas colores, se podría alterar el valor del rojo, logrando mas de 166 millones de colores diferentes
Ce commentaire a été minimisé par le modérateur sur le site
Cela m'a sauvé la vie, merci beaucoup pour le partage ! Lorsque je l'exécute sur environ 2000 cellules avec des valeurs, il ne met en évidence que certains des doublons. Y a-t-il moyen d'arranger ça? Je me demande s'il manque de couleurs ou s'il y a autre chose.
Ce commentaire a été minimisé par le modérateur sur le site
même problème que j'essaie avec quelques centaines de cellules et très rapidement, il se colore dans les mêmes couleurs. y a-t-il un correctif pour cela? Merci
Ce commentaire a été minimisé par le modérateur sur le site
Même problème. Quelqu'un comprend cela?
Ce commentaire a été minimisé par le modérateur sur le site
J'ai eu le même problème, le problème c'est que l'index de couleur ne va qu'à 56, donc une fois passé ça ne colore plus les cellules. Pour résoudre ce problème, j'ai remplacé la ligne "xCIndex = xCIndex + 1" par ce qui suit : If xCIndex > 55 Then xCIndex = 3 Else xCIndex = xCIndex + 1 End If It commencera éventuellement à réutiliser les couleurs, mais ce n'était pas un problème pour moi.
Ce commentaire a été minimisé par le modérateur sur le site
Le remplacer par If xCIndex > 55 Then xCIndex = 3 Else xCIndex = xCIndex + 1 End If N'a pas fonctionné. Essayer de faire fonctionner cela sur 14000 lignes, environ 6000 doublons
Ce commentaire a été minimisé par le modérateur sur le site
Cela a fonctionné pour moi, j'ai mis en retrait les deuxième et quatrième lignes. Voir ci-dessous. Le code de Josh est en gras.

Si Err.Number = 457 Alors
Si indexxC > 55 Alors
xCIndex = 3
autre
xCIndex = xCIndex + 1
Si fin
Définir xCellPre = xCol(xCell.Text)
Ce commentaire a été minimisé par le modérateur sur le site
Merci beaucoup Josh, ça marche !
Ce commentaire a été minimisé par le modérateur sur le site
J'ai essayé de l'exécuter plusieurs fois et chaque fois que je clique sur "ok", cela me renvoie simplement à l'écran des modules. J'utilise Excel 2010.
Ce commentaire a été minimisé par le modérateur sur le site
C'est super et EXACTEMENT ce que je cherchais ! J'intègre ce code dans un code existant - j'ai écrit mon code pour sélectionner les cellules que je veux colorer, puis j'appelle le code pour faire la coloration. La seule chose que je n'arrive pas à comprendre, c'est comment contourner la msgBox qui apparaît et je dois cliquer sur OK. Je suis novice en VBA et je n'arrive pas à comprendre comment modifier ce code... Des suggestions, s'il vous plaît ! :)
Ce commentaire a été minimisé par le modérateur sur le site
Remplacer la ligne : Set xRg = Application.InputBox("veuillez sélectionner la plage de données :", "Kutools for Excel", xTxt, , , , , 8)
à
Définir xRg = Plage("A1:A100")

ou si vous avez un tableau, vous pouvez appliquer à toute la colonne du tableau :
Set xRg = Range("Table1[[#All],[Column1]]")

remplacez simplement Table1 par votre propre nom et Column1 par n'importe quel en-tête de tableau auquel vous souhaitez appliquer cette macro.


Cordialement
Wojciech
Ce commentaire a été minimisé par le modérateur sur le site
Je suis vraiment content car j'ai eu ce dont j'avais besoin. Merci
Ce commentaire a été minimisé par le modérateur sur le site
comment changer de couleur ?
Ce commentaire a été minimisé par le modérateur sur le site
Salut,
Le code ne peut que vous aider à ajouter la couleur différente au hasard, il ne peut pas changer la couleur.
Merci !
Ce commentaire a été minimisé par le modérateur sur le site
Il semble cependant toujours utiliser la même palette de couleurs, existe-t-il un moyen de sélectionner la palette qu'il utilise ? Cela me donne des couleurs très sombres à travers lesquelles le texte est illisible.
Ce commentaire a été minimisé par le modérateur sur le site
le même problème avec moi... la couleur est trop sombre pour être lisible...
Ce commentaire a été minimisé par le modérateur sur le site
sans vide pour changer une couleur comment ????????????????????
Ce commentaire a été minimisé par le modérateur sur le site
Bonjour Gopi,
Pour éviter les cellules vides, veuillez appliquer le code VBA suivant :
Sub ColorCompanyDuplicates()
'Mettre à jour par Extendoffice 20171222
Dim xRg As Range
Dim xTxt As String
Dim xCell As Range
Dim xChar As String
Dim xCellPre As Range
Dim xCIndex As Long
Dim xCol As Collection
Dim I As Long
On Error Resume Next
Si ActiveWindow.RangeSelection.Count > 1 Alors
xTxt = ActiveWindow.RangeSelection.AddressLocal
autre
xTxt = ActiveSheet.UsedRange.AddressLocal
Si fin
Set xRg = Application.InputBox("veuillez sélectionner la plage de données :", "Kutools for Excel", xTxt, , , , , 8)
Si xRg n'est rien, quittez Sub
xCIndex = 2
Définir xCol = Nouvelle collection
Pour chaque xCell dans xRg
On Error Resume Next
Si xCell.Valeur <> "" Alors
xCol.Add xCell, xCell.Text
Si Err.Number = 457 Alors
xCIndex = xCIndex + 1
Définir xCellPre = xCol(xCell.Text)
Si xCellPre.Interior.ColorIndex = xlNone Alors xCellPre.Interior.ColorIndex = xCIndex
xCell.Interior.ColorIndex = xCellPre.Interior.ColorIndex
ElseIf Err.Number = 9 Alors
MsgBox "Trop d'entreprises en double !", vbCritical, "Kutools for Excel"
Exit Sub
Si fin
En cas d'erreur GoTo 0
Si fin
Suivant
End Sub

J'espère que cela peut vous aider, merci!
Ce commentaire a été minimisé par le modérateur sur le site
Monsieur le Président,
Comment différencier les différentes couleurs données dans les données sur la base de la fréquence ?
Dans de très grandes données, la même couleur a été donnée à plusieurs reprises sans tenir compte de leur fréquence.
Ce commentaire a été minimisé par le modérateur sur le site
Désolé, pouvez-vous donner des informations plus détaillées, vous pouvez joindre une capture d'écran ici.
Merci !
Ce commentaire a été minimisé par le modérateur sur le site
Bonjour, j'ai Excel 2016, alt+F11 ne fonctionne plus pour faire apparaître Microsoft VB ? 'est-ce que Microsoft visual basic logiciel gratuit ? Merci.
Ce commentaire a été minimisé par le modérateur sur le site
Hi,
Si vous ne pouvez pas activer la fenêtre Microsoft VB en maintenant les touches Alt + F11 enfoncées, vous pouvez cliquer sur Développeur > Visual Basic pour l'ouvrir.

S'il vous plaît essayez-le, merci!
Ce commentaire a été minimisé par le modérateur sur le site
Et si je veux juste remplir avec seulement deux couleurs, disons jaune et rouge, à plusieurs reprises. Pour être clair, sur l'exemple de cette page, 'Rachel' est jaune, Rose est rouge et encore Sussies sont jaunes, Tedi est rouge.
Ce commentaire a été minimisé par le modérateur sur le site
Bonjour Sélim,
Le code suivant peut résoudre votre problème, veuillez essayer.

Sub ColorCompanyDuplicates()
'Mettre à jour par Extendoffice 20170504
Dim xRg As Range
Dim xTxt As String
Dim xCell As Range
Dim xChar As String
Dim xCellPre As Range
Dim xRgTemp As Range
Dim xCIndex As Long
Dim xCol As Collection
Dim I As Long
On Error Resume Next
Si ActiveWindow.RangeSelection.Count > 1 Alors
xTxt = ActiveWindow.RangeSelection.AddressLocal
autre
xTxt = ActiveSheet.UsedRange.AddressLocal
Si fin
Set xRg = Application.InputBox("veuillez sélectionner la plage de données :", "Kutools for Excel", xTxt, , , , , 8)
Si xRg n'est rien, quittez Sub
xCIndex = 3
Définir xCol = Nouvelle collection
Pour chaque xCell dans xRg
On Error Resume Next
xCol.Add xCell, xCell.Text
Si Err.Number = 457 Alors
Définir xCellPre = xCol(xCell.Text)
xCell.Interior.ColorIndex = xCellPre.Interior.ColorIndex
ElseIf Err.Number = 9 Alors
MsgBox "Trop d'entreprises en double !", vbCritical, "Kutools for Excel"
Exit Sub
autre
xCell.Interior.ColorIndex = xCIndex
Définir xRgTemp = xCell
xCIndex = IIf(xRgTemp.Interior.ColorIndex = 3, 4, 3)
Si fin
En cas d'erreur GoTo 0
Suivant
End Sub

Espérons que cela peut vous aider!
Ce commentaire a été minimisé par le modérateur sur le site
C'est exactement ce que je veux. Merci beaucoup, skyyang.
Ce commentaire a été minimisé par le modérateur sur le site
Existe-t-il un moyen de mettre en surbrillance la ligne entière au lieu d'une colonne ?
Ce commentaire a été minimisé par le modérateur sur le site
Salut Bobo,
Pour mettre en surbrillance la ligne entière en fonction des valeurs de cellule en double, vous pouvez appliquer le code VBA suivant :

Sub ColorCompanyDuplicates()
Dim xRg As Range
Dim xTxt As String
Dim xCell As Range
Dim xChar As String
Dim xCellPre As Range
Dim xCIndex As Long
Dim xCol As Collection
Dim I As Long
On Error Resume Next
Si ActiveWindow.RangeSelection.Count > 1 Alors
xTxt = ActiveWindow.RangeSelection.AddressLocal
autre
xTxt = ActiveSheet.UsedRange.AddressLocal
Si fin
Set xRg = Application.InputBox("veuillez sélectionner la plage de données :", "Kutools for Excel", xTxt, , , , , 8)
Si xRg n'est rien, quittez Sub
xCIndex = 2
Définir xCol = Nouvelle collection
Pour chaque xCell dans xRg
On Error Resume Next
xCol.Add xCell, xCell.Text
Si Err.Number = 457 Alors
xCIndex = xCIndex + 1
Définir xCellPre = xCol(xCell.Text)
Si xCellPre.Interior.ColorIndex = xlNone Alors xCellPre.EntireRow.Interior.ColorIndex = xCIndex
xCell.EntireRow.Interior.ColorIndex = xCellPre.EntireRow.Interior.ColorIndex
ElseIf Err.Number = 9 Alors
MsgBox "Trop d'entreprises en double !", vbCritical, "Kutools for Excel"
Exit Sub
Si fin
En cas d'erreur GoTo 0
Suivant
End Sub

S'il vous plaît essayez-le, j'espère que cela peut vous aider!
Ce commentaire a été minimisé par le modérateur sur le site
comment puis-je mettre en surbrillance la plage de lignes ?
Ce commentaire a été minimisé par le modérateur sur le site
Bonjour Hossein,
Peut-être que le code suivant peut vous rendre service, veuillez l'essayer.

Sub ColorCompanyDuplicates()
'Mettre à jour par Extendoffice
Dim xRg, xRgRow comme plage
Dim xTxt, xStr As String
Dim xCell, xCellPre comme plage
Dim xCIndex As Long
Dim xCol As Collection
Dim I As Long
Si ActiveWindow.RangeSelection.Count > 1 Alors
xTxt = ActiveWindow.RangeSelection.AddressLocal
autre
xTxt = ActiveSheet.UsedRange.AddressLocal
Si fin
Set xRg = Application.InputBox("veuillez sélectionner la plage de données :", "Kutools for Excel", xTxt, , , , , 8)
Si xRg n'est rien, quittez Sub
xCIndex = 2
Définir xCol = Nouvelle collection
Pour I = 1 To xRg.Rows.Count
On Error Resume Next
Set xRgLigne = xRg.Lignes(I)
Pour chaque xCell dans xRgRow.Columns
xStr = xStr & xCell.Text
Suivant
xCol.Add xRgRow, xStr
Si Err.Number = 457 Alors
xCIndex = xCIndex + 1
Définir xCellPre = xCol(xStr)
Si xCellPre.Interior.ColorIndex = xlNone Alors xCellPre.Interior.ColorIndex = xCIndex
xRgRow.Interior.ColorIndex = xCellPre.Interior.ColorIndex
ElseIf Err.Number = 9 Alors
MsgBox "Trop d'entreprises en double !", vbCritical, "Kutools for Excel"
Exit Sub
Si fin
En cas d'erreur GoTo 0
xStr = ""
Suivant
End Sub
Ce commentaire a été minimisé par le modérateur sur le site
Étonnante!! Cela m'a beaucoup aidé !
Et si j'ai besoin de mettre en avant les célibataires aussi ? Comment puis je faire ça?
Ce commentaire a été minimisé par le modérateur sur le site
Bonjour Carla

Pour mettre en surbrillance les lignes, y compris les lignes uniques, veuillez appliquer le code VBA ci-dessous :
Sub ColorCompanyDuplicates()
'Updateby Extendoffice
Dim xRg, xRgRow As Range
Dim xTxt, xStr As String
Dim xCell, xCellPre As Range
Dim xCIndex As Long
Dim xCol As Collection
Dim xOnlyIndex
Dim I As Long
If ActiveWindow.RangeSelection.Count > 1 Then
    xTxt = ActiveWindow.RangeSelection.AddressLocal
Else
    xTxt = ActiveSheet.UsedRange.AddressLocal
End If
Set xRg = Application.InputBox("please select the data range:", "Kutools for Excel", xTxt, , , , , 8)
If xRg Is Nothing Then Exit Sub
xCIndex = 2
Set xCol = New Collection
For I = 1 To xRg.Rows.Count
    On Error Resume Next
    Set xRgRow = xRg.Rows(I)
    For Each xCell In xRgRow.Columns
        xStr = xStr & xCell.Text
    Next
    xCol.Add xRgRow, xStr
    If err.Number = 457 Then
        xCIndex = xCIndex + 1
        Set xCellPre = xCol(xStr)
        If xCellPre.Interior.ColorIndex = xlNone Then
            xCellPre.Interior.ColorIndex = xCIndex
        Else            
        End If
        xRgRow.Interior.ColorIndex = xCellPre.Interior.ColorIndex
    ElseIf err.Number = 9 Then
        MsgBox "Too many duplicate companies!", vbCritical, "Kutools for Excel"
        Exit Sub
    End If    
    On Error GoTo 0
    xStr = ""
Next
For Each xCellPre In xCol
    If xCellPre.Interior.ColorIndex = xlNone Then
        xCIndex = xCIndex + 1
        xCellPre.Interior.ColorIndex = xCIndex
    End If
Next
End Sub

S'il vous plaît essayez, j'espère que cela peut vous aider!
Ce commentaire a été minimisé par le modérateur sur le site
Oui skyyang! Tu gères! 😀
Pouvons-nous mettre en surbrillance la ligne entière au lieu de la colonne uniquement ?

Je suis désolé si je suis ennuyeux, mais vous m'avez vraiment beaucoup aidé!
Ce commentaire a été minimisé par le modérateur sur le site
Bonjour Carie,
Si vous avez besoin de mettre en surbrillance les lignes entières, il vous suffit de sélectionner toute la plage de lignes lors de la sélection de la plage de données dans la boîte de dialogue qui apparaît.
S'il vous plaît essayez, merci!
Ce commentaire a été minimisé par le modérateur sur le site
Désolé, je ne peux pas 😟
Je pense que ce n'est pas correct car le code fonctionne dans la colonne et lorsque je sélectionne les lignes, elles sont mises en surbrillance, mais ne respecte pas le critère précédent.

Le code que vous avez partagé précédemment, uniquement pour les doublons, fonctionne parfaitement.
Ce commentaire a été minimisé par le modérateur sur le site
Existe-t-il un moyen de modifier le script pour qu'il fonctionne pour (regarder) le tableau de table au lieu de la colonne ? Par exemple F2:BC117.
Merci !
Ce commentaire a été minimisé par le modérateur sur le site
Bonjour Vasil,
Pour mettre en surbrillance les valeurs en double dans une plage de cellules, essayez le code vba suivant :

Sub ColorCompanyDuplicates()
'Mettre à jour par Extendoffice
Dim xRg, xRgRow comme plage
Dim xTxt, xStr As String
Dim xCell, xCellPre comme plage
Dim xCIndex As Long
Dim xCol As Collection
Dim I As Long
Si ActiveWindow.RangeSelection.Count > 1 Alors
xTxt = ActiveWindow.RangeSelection.AddressLocal
autre
xTxt = ActiveSheet.UsedRange.AddressLocal
Si fin
Set xRg = Application.InputBox("veuillez sélectionner la plage de données :", "Kutools for Excel", xTxt, , , , , 8)
Si xRg n'est rien, quittez Sub
xCIndex = 2
Définir xCol = Nouvelle collection
Pour I = 1 To xRg.Rows.Count
On Error Resume Next
Set xRgLigne = xRg.Lignes(I)
Pour chaque xCell dans xRgRow.Columns
xStr = xStr & xCell.Text
Suivant
xCol.Add xRgRow, xStr
Si Err.Number = 457 Alors
xCIndex = xCIndex + 1
Définir xCellPre = xCol(xStr)
Si xCellPre.Interior.ColorIndex = xlNone Alors xCellPre.Interior.ColorIndex = xCIndex
xRgRow.Interior.ColorIndex = xCellPre.Interior.ColorIndex
ElseIf Err.Number = 9 Alors
MsgBox "Trop d'entreprises en double !", vbCritical, "Kutools for Excel"
Exit Sub
Si fin
En cas d'erreur GoTo 0
xStr = ""
Suivant
End Sub

J'espère que ça peut t'aider.
Ce commentaire a été minimisé par le modérateur sur le site
Je suis nouveau sur VBA. Existe-t-il un moyen de ne pas exécuter la macro encore et encore, elle est automatisée pour mettre en évidence même si de nouvelles cellules sont copiées dans la colonne où la macro est programmée ?
Ce commentaire a été minimisé par le modérateur sur le site
C'est vraiment génial, mais la coloration s'est arrêtée après le rang 66 (9 couleurs). Comment puis-je prolonger cela?
Ce commentaire a été minimisé par le modérateur sur le site
Bonjour Anri,
Le code ci-dessus fonctionne bien dans ma feuille de calcul, je le teste sur 300 XNUMX lignes.
Veuillez réessayer. Ou vous pouvez envoyer votre fichier de classeur à mon compte de messagerie.
Mon compte de messagerie est : skyyang@extendoffice.com
Ce commentaire a été minimisé par le modérateur sur le site
il y a une erreur concernant le paramètre colorindex, xCindex sera supérieur à 56 s'il y a 56 lignes de données dans votre feuille, le système ignorera la phrase :
Si xCellPre.Interior.ColorIndex = xlNone Alors xCellPre.Interior.ColorIndex = xCIndex
xCell.Interior.ColorIndex = xCellPre.Interior.ColorIndex
Je corrige le programme comme ci-dessous : \
si Err.number=457 alors
si xCellPre.Text<>xCell.Text Alors
xCindex=xCindex+1
fin si
Positionner.....
Ce commentaire a été minimisé par le modérateur sur le site
Bonjour,
ma feuille Excel contient 11000 lignes de données.
comment puis-je l'étendre pour mettre en évidence tous les doublons dans cette longue colonne.

il s'est arrêté à la ligne 77.

Merci,

AK
Ce commentaire a été minimisé par le modérateur sur le site
C'est vraiment super, mais la coloration s'est arrêtée après le rang 76 (5 couleurs). Comment puis-je prolonger cela également ?
Ce commentaire a été minimisé par le modérateur sur le site
Ma feuille de calcul a également cessé de colorer à 178 et j'ai plus de 400 lignes. Comment réparez-vous ceci?
Ce commentaire a été minimisé par le modérateur sur le site
Bonjour Carole,
Pourriez-vous envoyer votre classeur à mon adresse e-mail, je pourrais vous aider à trouver le problème.
Mon adresse e-mail est :skyyang@extendoffice.com
Il n'y a pas encore de commentaires postés ici
TÉLÉCHARGER PLUS
Laisser vos commentaires
Publier en tant qu'invité
×
Évaluez cet article:
0   Personnages
Emplacements suggérés