Bonjour,
Ayant 2 codes à faire tourner dans une même feuille, j'avais évidement un problème d'ambiguïté , j'ai essayé de fondre ces 2 codes en un seul mais un plantage apparaît.
malgré plusieurs essai, je ne trouve pas la solution.
voici les 2 codes. Suis très intéressé de connaître une solution et vos commentaires pertinents seront précieux pour l'avenir.
Par avance MERCI
Cordialement.
Voir code feuille 1:
'affiche H de passage
Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Not Intersect(Target, [a3:a1100]) Is Nothing Then
Target(1, 3) = Now
End If
End Sub
'Ctrl de doublon
Private Sub Worksheet_Change(ByVal Target As Range)
If Flag Then Exit Sub
If Not Application.Intersect(Target, Columns("a")) Is Nothing Then
If Target.Count > 1 Then Exit Sub
If Application.CountIf(Range("a:a"), Target) > 1 Then
Flag = True
MsgBox ("Ce code existe déjà !")
Target.ClearContents
Flag = False
End If
End If
End Sub
Ayant 2 codes à faire tourner dans une même feuille, j'avais évidement un problème d'ambiguïté , j'ai essayé de fondre ces 2 codes en un seul mais un plantage apparaît.
malgré plusieurs essai, je ne trouve pas la solution.
voici les 2 codes. Suis très intéressé de connaître une solution et vos commentaires pertinents seront précieux pour l'avenir.
Par avance MERCI
Cordialement.
Voir code feuille 1:
'affiche H de passage
Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Not Intersect(Target, [a3:a1100]) Is Nothing Then
Target(1, 3) = Now
End If
End Sub
'Ctrl de doublon
Private Sub Worksheet_Change(ByVal Target As Range)
If Flag Then Exit Sub
If Not Application.Intersect(Target, Columns("a")) Is Nothing Then
If Target.Count > 1 Then Exit Sub
If Application.CountIf(Range("a:a"), Target) > 1 Then
Flag = True
MsgBox ("Ce code existe déjà !")
Target.ClearContents
Flag = False
End If
End If
End Sub