nrdz83
XLDnaute Impliqué
Bonjour à tous,
Je cherche à ce qu'on me signale si en colonne A il y a des doublons, pour cela j'ai regardé la docs suivante>>>
La gestion des doublons dans Excel
J'utilise donc ce code que j'ai placé dans ma Feuil5 ("BD_Confection")
Mon problème est que le code suivant est en rouge donc erreur :
Ce code est-il compatible avec excel 2010?
Faut-il le modifier?
Par avance merci pour vos lumières amitiés
Je cherche à ce qu'on me signale si en colonne A il y a des doublons, pour cela j'ai regardé la docs suivante>>>
La gestion des doublons dans Excel
J'utilise donc ce code que j'ai placé dans ma Feuil5 ("BD_Confection")
Code:
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Dim Colonne As Integer
Dim Adresse As String
'On sort si plus d'une cellule a été modifiée
If Target.Count > 1 Then Exit Sub
'On sort si la cellule modifiée est vide
If Target.Value = "" Then Exit Sub
'Définit la colonne à vérifier (1=Colonne A, 2=colonne B ...etc...)
Colonne = 1
'Vérifie si c'est la colonne cible a été modifiée
If Target.Column = Colonne Then
'Recherche si la nouvelle donnée existe déjà dans la colonne.
Adresse = Columns(Colonne).Find(What:=Target.Value, After:=Target.Offset(1, 0),
LookAt:=xlWhole, _
SearchDirection:=xlNext).Address
'Si l'adresse de cellule trouvée ne correspond pas à la cellule modifiée, cela
'signifie qu'il y a un doublon dans la colonne.
If Adresse <> Target.Address Then
MsgBox "La donnée '" & Target & "' existe déjà dans la cellule " & Adresse
'Suppression de la donnée
Target.Value = ""
Target.Select
End If
End If
End Sub
Mon problème est que le code suivant est en rouge donc erreur :
Code:
Adresse = Columns(Colonne).Find(What:=Target.Value, After:=Target.Offset(1, 0),
LookAt:=xlWhole, _
SearchDirection:=xlNext).Address
Ce code est-il compatible avec excel 2010?
Faut-il le modifier?
Par avance merci pour vos lumières amitiés
Dernière édition: