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

 

[lapix]

Re : Encore une erreur: SUPPRESSION

salut

Il s'execute a chaque fois que le contenu de la feuille change parce que la procedure se nomme comme ca (worksheet_change). si tu veux controler son execution, il faut la mettre dans un module ou lui fournir des conditions

 

[Luc Lucasse]

Re : Encore une erreur: SUPPRESSION

Merci pour ta réponse.

Est ce que vous avez comment je peux faire pour que ce type de suppression se mette en marche à un temps donné?

Par exemple quand mon décompte en F2 se situe entre 00:00:30 et 00:00:00.

Merci pour votre aide

 

[Luc Lucasse]

Re : Encore une erreur: SUPPRESSION

C'est un décompte dynamique que je vais chercher sur internet grace à un logiciel.

 

[Luc Lucasse]

Re : Encore une erreur: SUPPRESSION

Voila un petit fichier exemple

Merci pour ton aide

 

[Luc Lucasse]

Re : Encore une erreur: SUPPRESSION

Merci pour ton aide

Quand je met ce code j'ai une erreur:

Erreur d'execution 13
Incompatibilité de type


Public InterdireChange As Boolean

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

Application.ScreenUpdating = False
Cells.Select

Selection.Replace What:="Trap", Replacement:="", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False

Selection.Replace What:="1.", Replacement:="", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False

Selection.Replace What:="2.", Replacement:="", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False

Selection.Replace What:="3.", Replacement:="", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False

Selection.Replace What:="4.", Replacement:="", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False

Selection.Replace What:="5.", Replacement:="", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False

Selection.Replace What:="6.", Replacement:="", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False



Range("A1").Select
InterdireChange = False
Application.ScreenUpdating = True

End Sub



L'endroit où il y a une erreur est souligné en rouge

Merci

 

[Luc Lucasse]

Re : Encore une erreur: SUPPRESSION

C'est exactement pareil si je fais ca!!!

Comment faire si je veux mettre en 00:00:00 et 00:00:30??

Merci pour ton aide

 

[Luc Lucasse]

Re : Encore une erreur: SUPPRESSION

Le probleme c'est que ce n'est pas un programme mais un logiciel qui va chercher le decompte!!!!

 

[Luc Lucasse]

Re : Encore une erreur: SUPPRESSION

Bonjour le forum et merci jmps

En fait c'est un logiciel qui m'envoie un tableau de données et qui réactualise ce tableau toutes les secondes.

Merci

 

[Luc Lucasse]

Re : Encore une erreur: SUPPRESSION

Merci pour ton aide mais toujours la même erreur lorsque que le logiciel réactualise les données!!!!!

 

[Luc Lucasse]

Re : Encore une erreur: SUPPRESSION

Un petit UP

 

[Luc Lucasse]

Re : Encore une erreur: SUPPRESSION

Elle est au format hh:mm:ss en personnalisé

 

[Luc Lucasse]

Re : Encore une erreur: SUPPRESSION

Ca marche si je le fais manuellement mais ca ne marche pas lors de l'actualisation!!!

Est ce que c'est possible d'activer la suppression si j'ai le mot "LAY" en J2?


Merci

 

[Luc Lucasse]

Re : Encore une erreur: SUPPRESSION

Merci

En fait c'est cette ligne qui fait buggué le programme:

If Target <> "LAY" Then

 

[Luc Lucasse]

Re : Encore une erreur: SUPPRESSION

Toujours le même message d'erreur!!!