bonjour a tous ,
je controle la saisie pour eviter les doublons, si un doublon est detecté la macro efface la cellule saisie mais je voudrais qu elle supprime egalement des colonnes
le code que j'utilise est
Dim Ref As String
Dim Cell As Range, Plage As Range
If Application.Intersect(Target, Range("C1:av1")) Is Nothing Or IsEmpty(Target.Value) Then Exit Sub
Ref = Target.Value
Set Plage = Range("C1:av1")
If Application.WorksheetFunction.CountIf(Plage, Ref) > 1 Then
Set Cell = Plage.Find(Ref, Target, xlValues, xlWhole)
MsgBox "LE NOM EST DEJA SAISIE " & Cell.Address, vbCritical, "DOUBLON"
Target.Activate
Target.ClearContents
Columns("C:I").Select
Selection.Delete Shift:=xlToLeft
End If
l erreur d execution 13 s effectue a cette ligne Ref = Target.Value
je n arrive pas a co ntourner le souci
merci de votre aide et suggestion
cordialement
ghislain
je controle la saisie pour eviter les doublons, si un doublon est detecté la macro efface la cellule saisie mais je voudrais qu elle supprime egalement des colonnes
le code que j'utilise est
Dim Ref As String
Dim Cell As Range, Plage As Range
If Application.Intersect(Target, Range("C1:av1")) Is Nothing Or IsEmpty(Target.Value) Then Exit Sub
Ref = Target.Value
Set Plage = Range("C1:av1")
If Application.WorksheetFunction.CountIf(Plage, Ref) > 1 Then
Set Cell = Plage.Find(Ref, Target, xlValues, xlWhole)
MsgBox "LE NOM EST DEJA SAISIE " & Cell.Address, vbCritical, "DOUBLON"
Target.Activate
Target.ClearContents
Columns("C:I").Select
Selection.Delete Shift:=xlToLeft
End If
l erreur d execution 13 s effectue a cette ligne Ref = Target.Value
je n arrive pas a co ntourner le souci
merci de votre aide et suggestion
cordialement
ghislain