![]() |
|
Forum
|
|
|
#1 (permalink) |
|
Guest
Messages: n/a
|
bonjour tout le monde, j'ai besoin de votre science, sous excel dans la colonne d, je dois vérifier qu'il n'y ai pas de doublon. si il y en à alors =>un message d'erreur doit apparaitre en reperant l'erreur.
merci de votre aide |
| ANNONCES | |||
|
|
|
|
#2 (permalink) |
|
Guest
Messages: n/a
|
Salut vwtroudy, salut le forum,
Cette macro devrait correspondre à a requête : Public Sub doubl() Dim celo As Range 'déclare la variable celo (cellule origine) Dim celc As Range 'déclare la variable celc (cellule comparée) Dim plag As Range 'déclare la variable plag (plage de la colonne D) Set plag = Range("D1 " & Range("D65536").End(xlUp).Row) 'définit la variable plagFor Each celo In plag 'boucle pour chaque cellule origine de la plage For Each celc In plag 'boucle pour chaque cellule comparée de la plage If celo.Address = celc.Address Then GoTo suite 'si deux cellule ont la même adresse, prochaine comparée If celo.Value = celc.Value Then GoTo fin 'si deux cellules identiques, balise fin suite: 'balise Next celc Next celo Exit Sub fin: 'balise celc.Select 'sélectionne la cellue comparée celo.Interior.ColorIndex = 3 'motif cellule origine rouge celc.Interior.ColorIndex = 3 'motif cellule comparée rouge 'message avec adresses de la cellule d'origine et de la celulle comparée MsgBox ("les cellules " & celo.Address & " et " & celc.Address & " sont identiques") celo.Interior.ColorIndex = 0 'aucun motif cellule origine celc.Interior.ColorIndex = 0 'aucun motif cellule comparée End Sub À plus, Robert |
| Liens sociaux |
| Outils de la discussion | |
|
|