R
rem$
Guest
bonjour a tous
voici une macro qui me sert a repéré les doublons cela fonctionne tres bien...un peu trop meme car lorsque j'efface la valeur du doublon la macro tien compte des cellules vides???
est-il possible de supprimé ce tout petit desagrément
merci
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Dim Ref As String
Dim Cell As Range, Plage As Range
Dim L As Integer
On Error Resume Next
If Application.Intersect(Target, Range("a:a")) Is Nothing Then Exit Sub
Ref = Target.Value
L = Target.Row
Set Plage = Range("a2:a" & L - 1)
For Each Cell In Plage
If Cell = Ref Then
MsgBox "N° échantillon déjà saisie " & Cell.Address, vbCritical, "vremont doublons"
Cell.Activate
Exit Sub
End If
Next Cell
End Sub
voici une macro qui me sert a repéré les doublons cela fonctionne tres bien...un peu trop meme car lorsque j'efface la valeur du doublon la macro tien compte des cellules vides???
est-il possible de supprimé ce tout petit desagrément
merci
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Dim Ref As String
Dim Cell As Range, Plage As Range
Dim L As Integer
On Error Resume Next
If Application.Intersect(Target, Range("a:a")) Is Nothing Then Exit Sub
Ref = Target.Value
L = Target.Row
Set Plage = Range("a2:a" & L - 1)
For Each Cell In Plage
If Cell = Ref Then
MsgBox "N° échantillon déjà saisie " & Cell.Address, vbCritical, "vremont doublons"
Cell.Activate
Exit Sub
End If
Next Cell
End Sub