Encore une erreur: SUPPRESSION

[Luc Lucasse]

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

 

[Luc Lucasse]

Re : Encore une erreur: SUPPRESSION

Désolé mais je sais pas faire!!!!

 

[Luc Lucasse]

Re : Encore une erreur: SUPPRESSION

J'ai pas le temps de voir vu qu'il me met la même erreur mais cette fois en soulignant:

MsgBox Target


Est ce que tu es sur qu'il ne faut pas mettre un truc précis juste aprés

If Intersect(Target, Range("J2")) Is Nothing Then Exit Sub

Merci

 

[Luc Lucasse]

Re : Encore une erreur: SUPPRESSION

Voila ce qu'ils disent sur Excel:

expression.Intersect(Arg1, Arg2, ...)
expression Facultative. Expression qui renvoie un objet Application.

Arg1, Arg2, ... Argument de type Range obligatoire. Plages pour lesquelles l'intersection est recherchée. Au moins deux objets Range doivent être spécifiés.

 

[Luc Lucasse]

Re : Encore une erreur: SUPPRESSION

Je crois qu'on va pas s'en sortir:

Encore une erreur de "Incompatibilité de type"



J'ai mis comme code:

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target.Address, Range("F2")) Is Nothing Then Exit Sub
If Target > TimeValue("00:00:30") Then Exit Sub
If InterdireChange = True Then Exit Sub
InterdireChange = True


La partie surligné contient l'erreur

et il me surligne aussi .address

Merci

 

[Luc Lucasse]

Re : Encore une erreur: SUPPRESSION

Ok en fichier joint

 

[Luc Lucasse]

Re : Encore une erreur: SUPPRESSION

Toujours la même erreur d'execution 13.

rivate Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Range(Target.Address), Range("F2")) Is Nothing Then Exit Sub
If Target > TimeValue("00:00:30") Then Exit Sub
If InterdireChange = True Then Exit Sub
InterdireChange = True
If InterdireChange = True Then Exit Sub
InterdireChange = True
Workbooks("LEVRIERS en fonction du nom.xls").Activate
Sheets("Feuil2").Select

 

[Luc Lucasse]

Re : Encore une erreur: SUPPRESSION

A non quand même fut pas abusé!!!!

J'avoue que j'ai fait cette erreur sur d'autres programmes mais pas sur celui la!!!

 

[Luc Lucasse]

Re : Encore une erreur: SUPPRESSION

En fait c'est toujours lors de la réactualisation par le logiciel que le bug apparait!!!

 

[Luc Lucasse]

Re : Encore une erreur: SUPPRESSION

Est ce qu'il y a moyen d'écrire plus simplement la ligne qui crée l'erreur??

Si j'ai le temps de F2 compris entre 00:00:00 et 00:00:30 alors je supprime...

ou alors

Si J2= LAY alors je supprime...


Merci

 

[Luc Lucasse]

Re : Encore une erreur: SUPPRESSION

le classeur selectionné est LEVRIERS en fonction du nom.xls et les feuilles sont toutes réactualisées à peu prés en même temps.

 

[Luc Lucasse]

Re : Encore une erreur: SUPPRESSION

La macro se trouve dans la feuille2 pour l'exemple mais je veux ensuite l'adapter pour toutes les autres feuilles de ce classeur.

Le classeur s'appelle LEVRIERS en fonction du nom.xls

Est ce que tu me comprend??

 

[Luc Lucasse]

Re : Encore une erreur: SUPPRESSION

J'ai un décompte en F2 dans chaque feuille.

 

[Luc Lucasse]

Re : Encore une erreur: SUPPRESSION

Merci pour ton aide

 

[Luc Lucasse]

Re : Encore une erreur: SUPPRESSION

Un petit UP

 

[yojema]

Re : Encore une erreur: SUPPRESSION

J aimerai vous soumettre une autre approche que voici le probleme apperement vient du fait l autre logiciel vient inscrire des données dans
un fichier excel bien si a louverture de ce fichiers on place un autorun qui desactive l execution des macros ca ne vous resoudrai pas du coup le problème il va faloire que je cherche mais il me semble que c est possible je vous lance l idée d autre bien plus performant que moi devrai arriver a faire ca en 2 temps 3 mvt qu en pense tu ?