bonsoir
je dispose du code suivant , qui est un code anti doublon pour la colonne B de ma feuille de calcul
'Private Sub Worksheet_Change(ByVal Target As Range)
Dim xcell As Range
If Not Intersect(Range("B22:B20060"), Target) Is Nothing Then
For Each xcell In Intersect(Range("B22:B20060"), Target).Cells
If Application.CountIf(Range(Cells(21, xcell.Column), Cells(20060, xcell.Column)), xcell) > 1 Then
MsgBox xcell.Value & " CELLULE DEJA SELECTIONNEE "
xcell.ClearContents
End If
Next xcell
End If
et je ce que souhaiterai faire , c'est modifier l'instruction "
xcell.ClearContents
par ce que si je comprend bien le code , celui ci detecte le doublon , l'ecrit dans la colonne B puis l'efface avec justement l'instruction xcell.ClearContents , ce que je voudrai arriver à faire c'est qu'il n'y ait aucune ecriture dans la cellule si doublon il y a
par ce que le soucis , c'est que "xcell.ClearContents" applique une action de nettoyage sur la cellule visée , mais cela entraine une autre action ( celle ci etant voulue , mais pas dans ces conditions)
Auriez vous une idée , une facon de faire autrement ?
en vous remerciant
(voulue)