Bonjour le forum
j'ai un fichier qui recherche les doublons dans la plage A1:Y90 avec le code suivant:
Sub Doublon()
Dim StartValue As String
Dim CelEnd As String
Dim CelDep As String
If ActiveCell = "" Then
ActiveCell.Select
Else
StartValue = ActiveCell.Value
CelDep = ActiveCell.Address
Range("A1:Y90").Cells.Find(What:=(StartValue), After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False).Activate
CelEnd = ActiveCell.Address
If CelEnd <> CelDep Then
MsgBox StartValue & " est présentement utilisé, faire un autre choix."
Range(CelEnd).Select
Range(CelEnd).Show
Else
Range(CelDep).Select
End If
End If
End Sub
J'utilise la fonction
Private Sub Worksheet_Change(ByVal Target As Range)
Call Doublon
End Sub
pour rechercher les doublons chaque fois que qu'un changement a lieu dans la feuille. Tout fonctionne parfaitement.
Mon problème, j'aimerais que mon sub Doublon() ne soit exécuté SEULEMENT lorsqu'il y a des changements dans la plage A1:Y90. J'aimerais savoir ce qu'il faut ajouter à mon code pour que l'action ne s'exécute seulement lorsque des changements sont effectués dans la plage choisie au lieu de toute la feuille.
Merci de votre aide
Xtian (du Québec)
@+++