Mise en surbrillance de doublons sur plusieurs onglets
Fermé
Spritlibre
Messages postés
1
Date d'inscription
vendredi 6 décembre 2013
Statut
Membre
Dernière intervention
6 décembre 2013
-
6 déc. 2013 à 17:03
Boisgontierjacques Messages postés 175 Date d'inscription jeudi 19 septembre 2013 Statut Membre Dernière intervention 26 décembre 2018 - 8 déc. 2013 à 05:15
Boisgontierjacques Messages postés 175 Date d'inscription jeudi 19 septembre 2013 Statut Membre Dernière intervention 26 décembre 2018 - 8 déc. 2013 à 05:15
A voir également:
- Identifier les doublons entre 2 feuilles excel
- Supprimer les doublons excel - Guide
- Liste déroulante excel - Guide
- Formule excel - Guide
- Fusionner feuilles excel - Guide
- Doublons photos - Guide
2 réponses
via55
Messages postés
14399
Date d'inscription
mercredi 16 janvier 2013
Statut
Membre
Dernière intervention
16 avril 2024
2 701
7 déc. 2013 à 00:11
7 déc. 2013 à 00:11
Bonsoir
Il faut passer je pense par un code en VBA qui à chaque entrée (Worksheet_Change) boucle sur toutes les onglets et sur toutes les valeurs des colonnes E et colore les cellules de valeurs identiques
exemple de code à mettre dans le Worksheet de chaque feuille et qui colore en rouge les cellules de valeurs identiques
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column <> 5 Then Exit Sub ' sortie si pas colonne E
lg = Target.Row 'n° de la ligne d'entrée d'une donnée
For n = 1 To 12 'Boucle sur les 12 feuilles
If Sheets(n).Name <> ActiveSheet.Name Then 'si la feuille est autre que la feuille acive
dl = Sheets(n).Range("E" & Rows.Count).End(xlUp).Row 'n° dernière ligne non vide
For x = 1 To dl ' boucle de la 1ere à la dernière ligne non vide de la feuille n
'colore en rouge les cellules de la feuille n et de la feuille active si valeurs identiques
If Sheets(n).Range("E" & x).Value = ActiveSheet.Range("E" & lg).Value Then
Sheets(n).Range("E" & x).Interior.ColorIndex = 3
ActiveSheet.Range("E" & lg).Interior.ColorIndex = 3
End If
Next x
End If
Next n
End Sub
Cdlmnt
Il faut passer je pense par un code en VBA qui à chaque entrée (Worksheet_Change) boucle sur toutes les onglets et sur toutes les valeurs des colonnes E et colore les cellules de valeurs identiques
exemple de code à mettre dans le Worksheet de chaque feuille et qui colore en rouge les cellules de valeurs identiques
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column <> 5 Then Exit Sub ' sortie si pas colonne E
lg = Target.Row 'n° de la ligne d'entrée d'une donnée
For n = 1 To 12 'Boucle sur les 12 feuilles
If Sheets(n).Name <> ActiveSheet.Name Then 'si la feuille est autre que la feuille acive
dl = Sheets(n).Range("E" & Rows.Count).End(xlUp).Row 'n° dernière ligne non vide
For x = 1 To dl ' boucle de la 1ere à la dernière ligne non vide de la feuille n
'colore en rouge les cellules de la feuille n et de la feuille active si valeurs identiques
If Sheets(n).Range("E" & x).Value = ActiveSheet.Range("E" & lg).Value Then
Sheets(n).Range("E" & x).Interior.ColorIndex = 3
ActiveSheet.Range("E" & lg).Interior.ColorIndex = 3
End If
Next x
End If
Next n
End Sub
Cdlmnt