Macro pour colorer les doublon en temps réel

Gorfael

XLDnaute Barbatruc

• 27 Mars 2007

• #2

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

WITER à dit:

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

Cliquez pour agrandir...

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+

 

Dernière édition: 27 Mars 2007

Vote positif 0 Vote négatif

W

WITER

XLDnaute Occasionnel

• 27 Mars 2007

• #3

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.

 

Vote positif 0 Vote négatif

W

WITER

XLDnaute Occasionnel

• 27 Mars 2007

• #4

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

 

Vote positif 0 Vote négatif

papapaul

XLDnaute Impliqué

• 27 Mars 2007

• #5

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

 

Vote positif 0 Vote négatif

W

WITER

XLDnaute Occasionnel

• 27 Mars 2007

• #6

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

 

Vote positif 0 Vote négatif

papapaul

XLDnaute Impliqué

• 27 Mars 2007

• #7

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
@+

 

Vote positif 0 Vote négatif

Gorfael

XLDnaute Barbatruc

• 27 Mars 2007

• #8

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

papapaul à dit:

😎 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
@+

Cliquez pour agrandir...

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+

 

Vote positif 0 Vote négatif