Macro évènementielle qui détecte la présence d'un doublon après confirmation dans la cellule...ici l'exemple concerne la colonne A...Un message vous informe de la présence du doublon et vous invite à ressaisir votre donnée...
'************************************** 'partie à coller dans module de feuille '**************************************
OptionExplicit ' VériTi Septembre 04 ' http://www.veriti.fr PrivateSub Worksheet_Change(ByVal Cellule As Excel.Range) If Cellule.Column = 1 Then If Application.WorksheetFunction. _ CountIf(Range("A:A"), Cellule.Value) > 1 Then MsgBox "Doublon détecté -- retour" Cellule.Value = "" Cellule.Select EndIf EndIf EndSub
Date de création : 24/05/2005 - 19:02
Dernière modification : 25/05/2005 - 22:50
Catégorie : Feuille Page lue 5166 fois