Macro pour colorer les doublon en temps réel

[WITER]

Bonsoir je recheche une macro qui m'ecrirais en rouge le contenu de ma cellule en temps réel (sans boutons) quand il est en doublon

 

[Gorfael]

Re : Macro pour colorer les doublon en temps réel

Bonsoir je recheche une macro qui m'ecrirais en rouge le contenu de ma cellule en temps réel (sans boutons) quand il est en doublon

Salut
Utilise plutôt les MFC : tu sélectionnes la colonne A par exemple
Menu format>>formaconditionnel
Condition 1
Case 1 : la formule est
Case 2 : =sommeprod((A1=$A:$a)*1)-1
Format fond rouge
si 2 cellules ont la même valeur dans la colonne A, elles se colorent en rouge dès la validation.
Si ça ne convient pas, explique ton problème

A+

 

[WITER]

Re : Macro pour colorer les doublon en temps réel

Si ca va , sauf que j'ai beaucoup de cellules (A6:FC33) dans lequelles je dois rechercher les doublons.
Une MFC ralentie mon fichier.
Je preférerait utiliser une macro qui au moment de la validation de la cellule me mettre un message box ou me change la couleur du texte pour me signaler que cette donnée est deja presente quelque part dans A6:FC33.

 

[WITER]

Re : Macro pour colorer les doublon en temps réel

J'ai trouvé sur le forum cette macro

Private Sub Worksheet_Change(ByVal Target As Excel.Range)

If Target.Column = 1 Then 'Concerne la colonne A

If Application.WorksheetFunction. _
CountIf(Range('A6:A33'), Target.Value) > 1 Then

MsgBox 'Valeur déjà saisie !!! -- Veuillez recommencer'
Target.Value = ''
Target.Select
End If

End If

End Sub

serait il possible de l'adapter à mon cas en y rajoutant une variante
La macro ne doit pas signaler les doublons "0"

Dans certaines cellules j ai des 0 par default, je ne veut pas quelle les reconnaisent comme des doublons

merci encore pour votre aide

 

[papapaul]

Re : Macro pour colorer les doublon en temps réel

🙄 A voir si c'est bien ce que tu veux

Ci-dessous le code à mettre dans ta feuille.

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Excel.Range)

If Target.Value = 0 Then
Exit Sub
End If

If Application.WorksheetFunction.CountIf(Range("A6:fc33"), Target.Value) > 1 Then
MsgBox "Valeur déjà saisie !!! Veuillez recommencer"
Target.Value = ""
Target.Select
End If

End Sub


Bon courage

 

[WITER]

Re : Macro pour colorer les doublon en temps réel

Merci Gorfael, la macro fonctionne sauf quand je supprime une donnée non en doublon ecrite dans une des cellules de la zone (A6:FC33)

La macro plante à:

If Target.Value = 0 Then

 

[papapaul]

Re : Macro pour colorer les doublon en temps réel

😎 Je pense que tu n'as pas tout saisi,
J'ai pas envie de rouspéter mais je vais dire comme beaucoup !!
Joins nous un exemple de fichier pour voir
ce qui cloche, ce sera beaucoup plus simple.
Chez moi c'est impec
@+

 

[Gorfael]

Re : Macro pour colorer les doublon en temps réel

😎 Je pense que tu n'as pas tout saisi,
J'ai pas envie de rouspéter mais je vais dire comme beaucoup !!
Joins nous un exemple de fichier pour voir
ce qui cloche, ce sera beaucoup plus simple.
Chez moi c'est impec
@+

Salut à tous
papapaul ta macro elle plante 😛
En faisant un copier/coller tout simple, on se retrouve avec
Range("A6:fc 33") Pas glop, pas glop
Range("A6:fc33") Glop, glop !
A+