Luc Lucasse
XLDnaute Occasionnel
Rebonjour le forum
Aujourd'hui je croule sous les erreurs!!!
Voila mon probleme:
J'ai le code suivant sur chacune des feuilles mais là je prend l'exemple de la feuil3:
Private Sub Worksheet_Change(ByVal Target As Range)
Workbooks("fff.xls").Activate
Sheets("Feuil3").Select
Application.ScreenUpdating = False
Cells.Select
Selection.Replace What:="Trap", Replacement:="", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False
Range("A1").Select
Application.ScreenUpdating = True
End Sub
Mon probleme c'est que sur chaque page ce programme de suppression se lance et s'arréte, se lance s'arréte...
Comment remédier à ce probleme svp??
Merci pour votre aide
Aujourd'hui je croule sous les erreurs!!!
Voila mon probleme:
J'ai le code suivant sur chacune des feuilles mais là je prend l'exemple de la feuil3:
Private Sub Worksheet_Change(ByVal Target As Range)
Workbooks("fff.xls").Activate
Sheets("Feuil3").Select
Application.ScreenUpdating = False
Cells.Select
Selection.Replace What:="Trap", Replacement:="", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False
Range("A1").Select
Application.ScreenUpdating = True
End Sub
Mon probleme c'est que sur chaque page ce programme de suppression se lance et s'arréte, se lance s'arréte...
Comment remédier à ce probleme svp??
Merci pour votre aide