Bonjour à tous, voilà mon problème :
La formule ci-dessous me permet, lorsque je fais une saisie dans la cellule I6 de ma feuille de chercher une valeur dans la ligne 6.
Cela fonctionne à condition que la valeur cherchée existe. Si elle n’existe pas, la macro bug.
Je n’arrive pas à modifier la formule pour que si la valeur recherchée n’existe pas une message du type « la valeur cherchée n’existe pas » s’affiche.
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Application.Intersect(ActiveCell, Range("I6")) Is Nothing Then Exit Sub
col = Range("M6:IV6").Find(Range("I6").Value, LookIn:=xlValues, lookat:=xlWhole).Column
ActiveWindow.ScrollColumn = col
End Sub
Merci par avance et bonne journée !
La formule ci-dessous me permet, lorsque je fais une saisie dans la cellule I6 de ma feuille de chercher une valeur dans la ligne 6.
Cela fonctionne à condition que la valeur cherchée existe. Si elle n’existe pas, la macro bug.
Je n’arrive pas à modifier la formule pour que si la valeur recherchée n’existe pas une message du type « la valeur cherchée n’existe pas » s’affiche.
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Application.Intersect(ActiveCell, Range("I6")) Is Nothing Then Exit Sub
col = Range("M6:IV6").Find(Range("I6").Value, LookIn:=xlValues, lookat:=xlWhole).Column
ActiveWindow.ScrollColumn = col
End Sub
Merci par avance et bonne journée !