Aide pour conjuguer 2 routines en une seule pour éviter l'ambiguité

lebel

XLDnaute Nouveau
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
 

Pièces jointes

  • classeur vierge Inscriptions & comptages.xlsm
    560.9 KB · Affichages: 21

M12

XLDnaute Accro
Bonjour,

On ne peut pas mettre 2 CHANGE dans une même feuille.
De plus sur le deuxième code, la fonction CHANGE tourne en boucle

A tester
 

Pièces jointes

  • classeur vierge Inscriptions & comptages.xlsm
    556.7 KB · Affichages: 41

Discussions similaires

Statistiques des forums

Discussions
311 733
Messages
2 082 010
Membres
101 866
dernier inscrit
XFPRO