Bonjour,
J'ai cette Private Sub, qui fonctionnait depluis plusieurs semaines, et
depuis ce matin, elle ne réagit plus !!
Auriez vous une idée de ce dysfonctionnement ?
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = Range("F4").Address Then
Call REMPLIR_RENC_BADTEN
End If
If Target.Address = Range("k4").Address Then
Call Remplir_BADTEN2
End If
End Sub
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Daniel.C
Bonjour. Mets dans un module : sub test application.enableevents =true end sub et exécute avant de réessayer ta macro. Je ne sais pas pourquoi, mais j'ai déjà rencontré le problème. Peut-être qu'un redémarrage d'Excel ou du système peut faire l'affaire. Cordialement. Daniel "JPMonnier" a écrit dans le message de news:
Bonjour, J'ai cette Private Sub, qui fonctionnait depluis plusieurs semaines, et depuis ce matin, elle ne réagit plus !! Auriez vous une idée de ce dysfonctionnement ?
Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = Range("F4").Address Then Call REMPLIR_RENC_BADTEN End If If Target.Address = Range("k4").Address Then Call Remplir_BADTEN2 End If End Sub
Merci d'avance -- Cordialement
Bonjour.
Mets dans un module :
sub test
application.enableevents =true
end sub
et exécute avant de réessayer ta macro.
Je ne sais pas pourquoi, mais j'ai déjà rencontré le problème. Peut-être
qu'un redémarrage d'Excel ou du système peut faire l'affaire.
Cordialement.
Daniel
"JPMonnier" <jpmonnier-nospam@neuf.fr> a écrit dans le message de news:
eIgvXQsoIHA.2068@TK2MSFTNGP05.phx.gbl...
Bonjour,
J'ai cette Private Sub, qui fonctionnait depluis plusieurs semaines, et
depuis ce matin, elle ne réagit plus !!
Auriez vous une idée de ce dysfonctionnement ?
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = Range("F4").Address Then
Call REMPLIR_RENC_BADTEN
End If
If Target.Address = Range("k4").Address Then
Call Remplir_BADTEN2
End If
End Sub
Bonjour. Mets dans un module : sub test application.enableevents =true end sub et exécute avant de réessayer ta macro. Je ne sais pas pourquoi, mais j'ai déjà rencontré le problème. Peut-être qu'un redémarrage d'Excel ou du système peut faire l'affaire. Cordialement. Daniel "JPMonnier" a écrit dans le message de news:
Bonjour, J'ai cette Private Sub, qui fonctionnait depluis plusieurs semaines, et depuis ce matin, elle ne réagit plus !! Auriez vous une idée de ce dysfonctionnement ?
Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = Range("F4").Address Then Call REMPLIR_RENC_BADTEN End If If Target.Address = Range("k4").Address Then Call Remplir_BADTEN2 End If End Sub
Merci d'avance -- Cordialement
Pounet95
Bonjour,
N'y aurait-il pas dans une autre macro un "application.EnableEvents qui serait resté à False ? ( sortie avant remise a True ou arrêt ! )
A tout hasard, dans un module standard, essaie ceci :
Sub Reactive_Evenements Application.EnableEvents = True End Sub
Pounet95
"JPMonnier" a écrit dans le message de news:
Bonjour, J'ai cette Private Sub, qui fonctionnait depluis plusieurs semaines, et depuis ce matin, elle ne réagit plus !! Auriez vous une idée de ce dysfonctionnement ?
Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = Range("F4").Address Then Call REMPLIR_RENC_BADTEN End If If Target.Address = Range("k4").Address Then Call Remplir_BADTEN2 End If End Sub
Merci d'avance -- Cordialement
Bonjour,
N'y aurait-il pas dans une autre macro un "application.EnableEvents qui
serait resté à False ? ( sortie avant remise a True ou arrêt ! )
A tout hasard, dans un module standard, essaie ceci :
Sub Reactive_Evenements
Application.EnableEvents = True
End Sub
Pounet95
"JPMonnier" <jpmonnier-nospam@neuf.fr> a écrit dans le message de
news:eIgvXQsoIHA.2068@TK2MSFTNGP05.phx.gbl...
Bonjour,
J'ai cette Private Sub, qui fonctionnait depluis plusieurs semaines, et
depuis ce matin, elle ne réagit plus !!
Auriez vous une idée de ce dysfonctionnement ?
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = Range("F4").Address Then
Call REMPLIR_RENC_BADTEN
End If
If Target.Address = Range("k4").Address Then
Call Remplir_BADTEN2
End If
End Sub
N'y aurait-il pas dans une autre macro un "application.EnableEvents qui serait resté à False ? ( sortie avant remise a True ou arrêt ! )
A tout hasard, dans un module standard, essaie ceci :
Sub Reactive_Evenements Application.EnableEvents = True End Sub
Pounet95
"JPMonnier" a écrit dans le message de news:
Bonjour, J'ai cette Private Sub, qui fonctionnait depluis plusieurs semaines, et depuis ce matin, elle ne réagit plus !! Auriez vous une idée de ce dysfonctionnement ?
Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = Range("F4").Address Then Call REMPLIR_RENC_BADTEN End If If Target.Address = Range("k4").Address Then Call Remplir_BADTEN2 End If End Sub
Merci d'avance -- Cordialement
JPMonnier
Merci Pounet95 et Daniel.C D'abord merci pour votre aide J'ai copié la Sub proposée, rien sauf que j'ai un nouveau message "Impossible d'effectuer l'opération requise" J'ai peur que cela vienne du projet car d'autre projets fonctionnent bien J'ai coupé Excel et ma machine,rien n'y fait -- Cordialement
"Pounet95" a écrit dans le message de news:
Bonjour,
N'y aurait-il pas dans une autre macro un "application.EnableEvents qui serait resté à False ? ( sortie avant remise a True ou arrêt ! )
A tout hasard, dans un module standard, essaie ceci :
Sub Reactive_Evenements Application.EnableEvents = True End Sub
Pounet95
"JPMonnier" a écrit dans le message de news:
Bonjour, J'ai cette Private Sub, qui fonctionnait depluis plusieurs semaines, et depuis ce matin, elle ne réagit plus !! Auriez vous une idée de ce dysfonctionnement ?
Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = Range("F4").Address Then Call REMPLIR_RENC_BADTEN End If If Target.Address = Range("k4").Address Then Call Remplir_BADTEN2 End If End Sub
Merci d'avance -- Cordialement
Merci Pounet95 et Daniel.C
D'abord merci pour votre aide
J'ai copié la Sub proposée, rien sauf que j'ai un nouveau message
"Impossible d'effectuer l'opération requise"
J'ai peur que cela vienne du projet car d'autre projets fonctionnent bien
J'ai coupé Excel et ma machine,rien n'y fait
--
Cordialement
jpmonnier-no-spam@neuf.fr
"Pounet95" <Pounetchezlui@ounadou> a écrit dans le message de
news:OdVoQrsoIHA.552@TK2MSFTNGP06.phx.gbl...
Bonjour,
N'y aurait-il pas dans une autre macro un "application.EnableEvents qui
serait resté à False ? ( sortie avant remise a True ou arrêt ! )
A tout hasard, dans un module standard, essaie ceci :
Sub Reactive_Evenements
Application.EnableEvents = True
End Sub
Pounet95
"JPMonnier" <jpmonnier-nospam@neuf.fr> a écrit dans le message de
news:eIgvXQsoIHA.2068@TK2MSFTNGP05.phx.gbl...
Bonjour,
J'ai cette Private Sub, qui fonctionnait depluis plusieurs semaines, et
depuis ce matin, elle ne réagit plus !!
Auriez vous une idée de ce dysfonctionnement ?
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = Range("F4").Address Then
Call REMPLIR_RENC_BADTEN
End If
If Target.Address = Range("k4").Address Then
Call Remplir_BADTEN2
End If
End Sub
Merci Pounet95 et Daniel.C D'abord merci pour votre aide J'ai copié la Sub proposée, rien sauf que j'ai un nouveau message "Impossible d'effectuer l'opération requise" J'ai peur que cela vienne du projet car d'autre projets fonctionnent bien J'ai coupé Excel et ma machine,rien n'y fait -- Cordialement
"Pounet95" a écrit dans le message de news:
Bonjour,
N'y aurait-il pas dans une autre macro un "application.EnableEvents qui serait resté à False ? ( sortie avant remise a True ou arrêt ! )
A tout hasard, dans un module standard, essaie ceci :
Sub Reactive_Evenements Application.EnableEvents = True End Sub
Pounet95
"JPMonnier" a écrit dans le message de news:
Bonjour, J'ai cette Private Sub, qui fonctionnait depluis plusieurs semaines, et depuis ce matin, elle ne réagit plus !! Auriez vous une idée de ce dysfonctionnement ?
Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = Range("F4").Address Then Call REMPLIR_RENC_BADTEN End If If Target.Address = Range("k4").Address Then Call Remplir_BADTEN2 End If End Sub
Merci d'avance -- Cordialement
Pounet95
Re, As-tu essayé de faire du pas à pas en posant un point d'arrêt au début de la macro, histoire de savoir si elle est bien lancée ? Pounet95
"JPMonnier" a écrit dans le message de news:%
Merci Pounet95 et Daniel.C D'abord merci pour votre aide J'ai copié la Sub proposée, rien sauf que j'ai un nouveau message "Impossible d'effectuer l'opération requise" J'ai peur que cela vienne du projet car d'autre projets fonctionnent bien J'ai coupé Excel et ma machine,rien n'y fait -- Cordialement
"Pounet95" a écrit dans le message de news:
Bonjour,
N'y aurait-il pas dans une autre macro un "application.EnableEvents qui serait resté à False ? ( sortie avant remise a True ou arrêt ! )
A tout hasard, dans un module standard, essaie ceci :
Sub Reactive_Evenements Application.EnableEvents = True End Sub
Pounet95
"JPMonnier" a écrit dans le message de news:
Bonjour, J'ai cette Private Sub, qui fonctionnait depluis plusieurs semaines, et depuis ce matin, elle ne réagit plus !! Auriez vous une idée de ce dysfonctionnement ?
Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = Range("F4").Address Then Call REMPLIR_RENC_BADTEN End If If Target.Address = Range("k4").Address Then Call Remplir_BADTEN2 End If End Sub
Merci d'avance -- Cordialement
Re,
As-tu essayé de faire du pas à pas en posant un point d'arrêt au début de la
macro, histoire de savoir si elle est bien lancée ?
Pounet95
"JPMonnier" <jpmonnier-nospam@neuf.fr> a écrit dans le message de
news:%23cGbXYuoIHA.3556@TK2MSFTNGP04.phx.gbl...
Merci Pounet95 et Daniel.C
D'abord merci pour votre aide
J'ai copié la Sub proposée, rien sauf que j'ai un nouveau message
"Impossible d'effectuer l'opération requise"
J'ai peur que cela vienne du projet car d'autre projets fonctionnent bien
J'ai coupé Excel et ma machine,rien n'y fait
--
Cordialement
jpmonnier-no-spam@neuf.fr
"Pounet95" <Pounetchezlui@ounadou> a écrit dans le message de
news:OdVoQrsoIHA.552@TK2MSFTNGP06.phx.gbl...
Bonjour,
N'y aurait-il pas dans une autre macro un "application.EnableEvents qui
serait resté à False ? ( sortie avant remise a True ou arrêt ! )
A tout hasard, dans un module standard, essaie ceci :
Sub Reactive_Evenements
Application.EnableEvents = True
End Sub
Pounet95
"JPMonnier" <jpmonnier-nospam@neuf.fr> a écrit dans le message de
news:eIgvXQsoIHA.2068@TK2MSFTNGP05.phx.gbl...
Bonjour,
J'ai cette Private Sub, qui fonctionnait depluis plusieurs semaines, et
depuis ce matin, elle ne réagit plus !!
Auriez vous une idée de ce dysfonctionnement ?
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = Range("F4").Address Then
Call REMPLIR_RENC_BADTEN
End If
If Target.Address = Range("k4").Address Then
Call Remplir_BADTEN2
End If
End Sub
Re, As-tu essayé de faire du pas à pas en posant un point d'arrêt au début de la macro, histoire de savoir si elle est bien lancée ? Pounet95
"JPMonnier" a écrit dans le message de news:%
Merci Pounet95 et Daniel.C D'abord merci pour votre aide J'ai copié la Sub proposée, rien sauf que j'ai un nouveau message "Impossible d'effectuer l'opération requise" J'ai peur que cela vienne du projet car d'autre projets fonctionnent bien J'ai coupé Excel et ma machine,rien n'y fait -- Cordialement
"Pounet95" a écrit dans le message de news:
Bonjour,
N'y aurait-il pas dans une autre macro un "application.EnableEvents qui serait resté à False ? ( sortie avant remise a True ou arrêt ! )
A tout hasard, dans un module standard, essaie ceci :
Sub Reactive_Evenements Application.EnableEvents = True End Sub
Pounet95
"JPMonnier" a écrit dans le message de news:
Bonjour, J'ai cette Private Sub, qui fonctionnait depluis plusieurs semaines, et depuis ce matin, elle ne réagit plus !! Auriez vous une idée de ce dysfonctionnement ?
Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = Range("F4").Address Then Call REMPLIR_RENC_BADTEN End If If Target.Address = Range("k4").Address Then Call Remplir_BADTEN2 End If End Sub
Merci d'avance -- Cordialement
JPMonnier
Oui, Et c'est à cet endroit que j'ai le message "Impossible d'effectuer l'opération requise" Alors alors ! J'ai récupéré une version d'hier qui fonctionnait et j'ai recopié mon travail vba de la journée ! Quelle grande manouvre !! Je soupçonne mon fichier vérolé, pourquoi ???? Maintenant c'est OK Merci beaucoup, quand même -- Cordialement
"Pounet95" a écrit dans le message de news:
Re, As-tu essayé de faire du pas à pas en posant un point d'arrêt au début de la macro, histoire de savoir si elle est bien lancée ? Pounet95
"JPMonnier" a écrit dans le message de news:%
Merci Pounet95 et Daniel.C D'abord merci pour votre aide J'ai copié la Sub proposée, rien sauf que j'ai un nouveau message "Impossible d'effectuer l'opération requise" J'ai peur que cela vienne du projet car d'autre projets fonctionnent bien J'ai coupé Excel et ma machine,rien n'y fait -- Cordialement
"Pounet95" a écrit dans le message de news:
Bonjour,
N'y aurait-il pas dans une autre macro un "application.EnableEvents qui serait resté à False ? ( sortie avant remise a True ou arrêt ! )
A tout hasard, dans un module standard, essaie ceci :
Sub Reactive_Evenements Application.EnableEvents = True End Sub
Pounet95
"JPMonnier" a écrit dans le message de news:
Bonjour, J'ai cette Private Sub, qui fonctionnait depluis plusieurs semaines, et depuis ce matin, elle ne réagit plus !! Auriez vous une idée de ce dysfonctionnement ?
Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = Range("F4").Address Then Call REMPLIR_RENC_BADTEN End If If Target.Address = Range("k4").Address Then Call Remplir_BADTEN2 End If End Sub
Merci d'avance -- Cordialement
Oui,
Et c'est à cet endroit que j'ai le message
"Impossible d'effectuer l'opération requise"
Alors alors !
J'ai récupéré une version d'hier qui fonctionnait et j'ai recopié mon
travail vba de la journée !
Quelle grande manouvre !!
Je soupçonne mon fichier vérolé, pourquoi ????
Maintenant c'est OK
Merci beaucoup, quand même
--
Cordialement
jpmonnier-no-spam@neuf.fr
"Pounet95" <Pounetchezlui@ounadou> a écrit dans le message de
news:OF7CcvuoIHA.5096@TK2MSFTNGP02.phx.gbl...
Re,
As-tu essayé de faire du pas à pas en posant un point d'arrêt au début de
la macro, histoire de savoir si elle est bien lancée ?
Pounet95
"JPMonnier" <jpmonnier-nospam@neuf.fr> a écrit dans le message de
news:%23cGbXYuoIHA.3556@TK2MSFTNGP04.phx.gbl...
Merci Pounet95 et Daniel.C
D'abord merci pour votre aide
J'ai copié la Sub proposée, rien sauf que j'ai un nouveau message
"Impossible d'effectuer l'opération requise"
J'ai peur que cela vienne du projet car d'autre projets fonctionnent bien
J'ai coupé Excel et ma machine,rien n'y fait
--
Cordialement
jpmonnier-no-spam@neuf.fr
"Pounet95" <Pounetchezlui@ounadou> a écrit dans le message de
news:OdVoQrsoIHA.552@TK2MSFTNGP06.phx.gbl...
Bonjour,
N'y aurait-il pas dans une autre macro un "application.EnableEvents qui
serait resté à False ? ( sortie avant remise a True ou arrêt ! )
A tout hasard, dans un module standard, essaie ceci :
Sub Reactive_Evenements
Application.EnableEvents = True
End Sub
Pounet95
"JPMonnier" <jpmonnier-nospam@neuf.fr> a écrit dans le message de
news:eIgvXQsoIHA.2068@TK2MSFTNGP05.phx.gbl...
Bonjour,
J'ai cette Private Sub, qui fonctionnait depluis plusieurs semaines, et
depuis ce matin, elle ne réagit plus !!
Auriez vous une idée de ce dysfonctionnement ?
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = Range("F4").Address Then
Call REMPLIR_RENC_BADTEN
End If
If Target.Address = Range("k4").Address Then
Call Remplir_BADTEN2
End If
End Sub
Oui, Et c'est à cet endroit que j'ai le message "Impossible d'effectuer l'opération requise" Alors alors ! J'ai récupéré une version d'hier qui fonctionnait et j'ai recopié mon travail vba de la journée ! Quelle grande manouvre !! Je soupçonne mon fichier vérolé, pourquoi ???? Maintenant c'est OK Merci beaucoup, quand même -- Cordialement
"Pounet95" a écrit dans le message de news:
Re, As-tu essayé de faire du pas à pas en posant un point d'arrêt au début de la macro, histoire de savoir si elle est bien lancée ? Pounet95
"JPMonnier" a écrit dans le message de news:%
Merci Pounet95 et Daniel.C D'abord merci pour votre aide J'ai copié la Sub proposée, rien sauf que j'ai un nouveau message "Impossible d'effectuer l'opération requise" J'ai peur que cela vienne du projet car d'autre projets fonctionnent bien J'ai coupé Excel et ma machine,rien n'y fait -- Cordialement
"Pounet95" a écrit dans le message de news:
Bonjour,
N'y aurait-il pas dans une autre macro un "application.EnableEvents qui serait resté à False ? ( sortie avant remise a True ou arrêt ! )
A tout hasard, dans un module standard, essaie ceci :
Sub Reactive_Evenements Application.EnableEvents = True End Sub
Pounet95
"JPMonnier" a écrit dans le message de news:
Bonjour, J'ai cette Private Sub, qui fonctionnait depluis plusieurs semaines, et depuis ce matin, elle ne réagit plus !! Auriez vous une idée de ce dysfonctionnement ?
Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = Range("F4").Address Then Call REMPLIR_RENC_BADTEN End If If Target.Address = Range("k4").Address Then Call Remplir_BADTEN2 End If End Sub