repérer les doublons

[pascal21]

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

If Target.Column = 4 Then 'Concerne la colonne d

If Application.WorksheetFunction. _
CountIf(Range("d4:d10000"), Target.Value) > 1 Then

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

bonjour à tous
je viens de récupérer cette macro sur le site qui permet d'afficher en msg en cas de doublon
çà fonctionne mais uniquement si je resélectionne la cellule que je viens de renseigner
j'aimerais que çà fonctionne lorsque je valide par entrée pour aller sur une autre cellule
que faut-il modifier
merci

 

[Robert]

Re : repérer les doublons

Bonjour Pascal, bonjour le forum,

La macro événementielle Selection_Change n'était pas la bonne méthode pour ce genre d'action. Je l'ai juste remplacée par l'événement Change et ça marche comme tu le souhaites :

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 4 Then 'Concerne la colonne d
    If Application.WorksheetFunction. _
        CountIf(Range("d4:d10000"), Target.Value) > 1 Then
        MsgBox "Valeur déjà saisie !!! -- Veuillez recommencer"
        Target.Value = ""
        Target.Select
    End If
End If
End Sub

 

[JCGL]

Re : repérer les doublons

Bonjour à tous,

Peux-tu essayer dans le Module de la feuille concernée :

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Target.Column = 4 Then 'Concerne la colonne D
On Error Resume Next
If Application.WorksheetFunction. _
CountIf(Range("D4:D10000"), Target.Value) > 1 Then
MsgBox "Valeur déjà saisie !!! -- Veuillez recommencer"
Target.Value = ""
Target.Select
End If
End If
End Sub

A+ à tous

 

[pascal21]

Re : repérer les doublons

Worksheet_Change

bonjour robert, JCGL
çà fonctionne mais je pensais que "Worksheet_Change" marchais que si on changeait de feuille c'est pour çà que je n'avais pas essayé cette option là
merci à vous deux

 

[JCGL]

Re : repérer les doublons

Bonjour à tous,
Salut Robert, (pas copié, juré...)

Pour le changement de feuille c'est :

Private Sub Worksheet_Activate()
MsgBox "Salut !"
End Sub

Private Sub Worksheet_Deactivate()
MsgBox "Salut !"
End Sub

A+ à tous