belsamis01
XLDnaute Nouveau
Bonjour à tous,
En colonne D (client)et E (Salon), je souhaite avoir une macro qui empêche de saisir en double si les données D et E sont déjà existante sur d'autres lignes à travers une msgbox(client déjà existant).
J'ai un code qui fonctionne sur une seule colonne mais pas sur 2 je ne sais pas faire.
Voici le code
Public Flag As Boolean
Private Sub Worksheet_Change(ByVal Target As Range)
If Flag Then Exit Sub
If Not Application.Intersect(Target, Columns("C")) Is Nothing Then
If Target.Count > 1 Then Exit Sub
If Application.CountIf(Range("C:C"), Target) > 1 Then
Flag = True
MsgBox ("Donnée déjà saisie")
Target.ClearContents
Flag = False
End If
End If
End Sub
Je vous remercie de votre aide
En colonne D (client)et E (Salon), je souhaite avoir une macro qui empêche de saisir en double si les données D et E sont déjà existante sur d'autres lignes à travers une msgbox(client déjà existant).
J'ai un code qui fonctionne sur une seule colonne mais pas sur 2 je ne sais pas faire.
Voici le code
Public Flag As Boolean
Private Sub Worksheet_Change(ByVal Target As Range)
If Flag Then Exit Sub
If Not Application.Intersect(Target, Columns("C")) Is Nothing Then
If Target.Count > 1 Then Exit Sub
If Application.CountIf(Range("C:C"), Target) > 1 Then
Flag = True
MsgBox ("Donnée déjà saisie")
Target.ClearContents
Flag = False
End If
End If
End Sub
Je vous remercie de votre aide