aide pour macro

bpol à dit:

bonjour le forum,

j'ai une macro qui fonctionne dans un tableau:

Private Sub Worksheet_Change(ByVal Target As Range)
Dim c As Range

If Not Intersect(Target, Range("B3")) Is Nothing Then
With Range("A13:A3560")
Set c = .Find(Target.Value, LookIn:=xlValues, lookat:=xlWhole)
If Not c Is Nothing Then
ActiveWindow.ScrollRow = c.Row - 1

End If
End With
End If
End Sub


je voudrais l'incorporer dans un autre tableau mais la colonne contient des cellules vides alors elle bug ( message: nom ambigu détecté : Worksheet_Change)

merci BPOL

Cliquez pour agrandir...