Bonjour,
Voila j'ai un fichier de budget familial que j'ai monté avec votre aide
voila quelques temps. J'ai un échéancier où je retrouve toutes mes
opérations qui reviennent régulièrement. Mais depuis quelques temps, à
l'ouverture de ce fichier j'ai le message suivant :
Erreur d'execution 424 Objet requis
Private Sub Worksheet_Change(ByVal Target As Range)
=>If Not Intersect(Target, [definition]) Is Nothing And Target.Count = 1
Then
Cells(Target.Row, 5) = Cells(Target.Row, 1) + Cells(Target.Row, 4)
End If
If Not Intersect(Target, [prochain]) Is Nothing And Target.Count = 1 Then
If Cells(Target.Row, 5) = "" Then Cells(Target.Row, 5) = Cells(Target.Row,
1) + Cells(Target.Row, 4)
End If
End Sub
Tu peux en supprimant les données confidentielles nous le transmettre par :
http://www.cijoint.fr/index.php
pour l'analyser
Communiques nous le lien
FFO
Salut à toi
Vérifies la présence des plages :
definition et prochain
dans ton fichier
Tu peux en supprimant les données confidentielles nous le transmettre par :
http://www.cijoint.fr/index.php
pour l'analyser
Communiques nous le lien
"Calou" wrote:
Bonjour, Voila j'ai un fichier de budget familial que j'ai monté avec votre aide voila quelques temps. J'ai un échéancier où je retrouve toutes mes opérations qui reviennent régulièrement. Mais depuis quelques temps, à l'ouverture de ce fichier j'ai le message suivant : Erreur d'execution 424 Objet requis
Private Sub Worksheet_Change(ByVal Target As Range) =>If Not Intersect(Target, [definition]) Is Nothing And Target.Count = 1 Then Cells(Target.Row, 5) = Cells(Target.Row, 1) + Cells(Target.Row, 4) End If If Not Intersect(Target, [prochain]) Is Nothing And Target.Count = 1 Then If Cells(Target.Row, 5) = "" Then Cells(Target.Row, 5) = Cells(Target.Row, 1) + Cells(Target.Row, 4) End If End Sub
Pouvez vous m'éclairer ??
Un grand merci à vous pour votre patience !
Bonne Journée
Philippe
Salut à toi
Vérifies la présence des plages :
definition et prochain
dans ton fichier
Tu peux en supprimant les données confidentielles nous le transmettre par :
http://www.cijoint.fr/index.php
pour l'analyser
Communiques nous le lien
"Calou" wrote:
Bonjour,
Voila j'ai un fichier de budget familial que j'ai monté avec votre aide
voila quelques temps. J'ai un échéancier où je retrouve toutes mes
opérations qui reviennent régulièrement. Mais depuis quelques temps, à
l'ouverture de ce fichier j'ai le message suivant :
Erreur d'execution 424 Objet requis
Private Sub Worksheet_Change(ByVal Target As Range)
=>If Not Intersect(Target, [definition]) Is Nothing And Target.Count = 1
Then
Cells(Target.Row, 5) = Cells(Target.Row, 1) + Cells(Target.Row, 4)
End If
If Not Intersect(Target, [prochain]) Is Nothing And Target.Count = 1 Then
If Cells(Target.Row, 5) = "" Then Cells(Target.Row, 5) = Cells(Target.Row,
1) + Cells(Target.Row, 4)
End If
End Sub
Tu peux en supprimant les données confidentielles nous le transmettre par :
http://www.cijoint.fr/index.php
pour l'analyser
Communiques nous le lien
"Calou" wrote:
Bonjour, Voila j'ai un fichier de budget familial que j'ai monté avec votre aide voila quelques temps. J'ai un échéancier où je retrouve toutes mes opérations qui reviennent régulièrement. Mais depuis quelques temps, à l'ouverture de ce fichier j'ai le message suivant : Erreur d'execution 424 Objet requis
Private Sub Worksheet_Change(ByVal Target As Range) =>If Not Intersect(Target, [definition]) Is Nothing And Target.Count = 1 Then Cells(Target.Row, 5) = Cells(Target.Row, 1) + Cells(Target.Row, 4) End If If Not Intersect(Target, [prochain]) Is Nothing And Target.Count = 1 Then If Cells(Target.Row, 5) = "" Then Cells(Target.Row, 5) = Cells(Target.Row, 1) + Cells(Target.Row, 4) End If End Sub
Pouvez vous m'éclairer ??
Un grand merci à vous pour votre patience !
Bonne Journée
Philippe
Calou
Bonjour,
Je vous joins le fichier demandé : http://cjoint.com/?dBeeAoZ6dW
Merci à vous par avance pour votre précieuse aide.
Bonne Journée.
Calou "FFO" a écrit dans le message de news:
Salut à toi
Vérifies la présence des plages :
definition et prochain
dans ton fichier
Tu peux en supprimant les données confidentielles nous le transmettre par :
http://www.cijoint.fr/index.php
pour l'analyser
Communiques nous le lien
"Calou" wrote:
Bonjour, Voila j'ai un fichier de budget familial que j'ai monté avec votre aide voila quelques temps. J'ai un échéancier où je retrouve toutes mes opérations qui reviennent régulièrement. Mais depuis quelques temps, à l'ouverture de ce fichier j'ai le message suivant : Erreur d'execution 424 Objet requis
Private Sub Worksheet_Change(ByVal Target As Range) =>If Not Intersect(Target, [definition]) Is Nothing And Target.Count = 1 Then Cells(Target.Row, 5) = Cells(Target.Row, 1) + Cells(Target.Row, 4) End If If Not Intersect(Target, [prochain]) Is Nothing And Target.Count = 1 Then If Cells(Target.Row, 5) = "" Then Cells(Target.Row, 5) = Cells(Target.Row, 1) + Cells(Target.Row, 4) End If End Sub
Pouvez vous m'éclairer ??
Un grand merci à vous pour votre patience !
Bonne Journée
Philippe
Bonjour,
Je vous joins le fichier demandé :
http://cjoint.com/?dBeeAoZ6dW
Merci à vous par avance pour votre précieuse aide.
Bonne Journée.
Calou
"FFO" <FFO@discussions.microsoft.com> a écrit dans le message de news:
4A752749-2793-4920-80E3-9B7C12C7A452@microsoft.com...
Salut à toi
Vérifies la présence des plages :
definition et prochain
dans ton fichier
Tu peux en supprimant les données confidentielles nous le transmettre par
:
http://www.cijoint.fr/index.php
pour l'analyser
Communiques nous le lien
"Calou" wrote:
Bonjour,
Voila j'ai un fichier de budget familial que j'ai monté avec votre aide
voila quelques temps. J'ai un échéancier où je retrouve toutes mes
opérations qui reviennent régulièrement. Mais depuis quelques temps, à
l'ouverture de ce fichier j'ai le message suivant :
Erreur d'execution 424 Objet requis
Private Sub Worksheet_Change(ByVal Target As Range)
=>If Not Intersect(Target, [definition]) Is Nothing And Target.Count = 1
Then
Cells(Target.Row, 5) = Cells(Target.Row, 1) + Cells(Target.Row, 4)
End If
If Not Intersect(Target, [prochain]) Is Nothing And Target.Count = 1 Then
If Cells(Target.Row, 5) = "" Then Cells(Target.Row, 5) =
Cells(Target.Row,
1) + Cells(Target.Row, 4)
End If
End Sub
Je vous joins le fichier demandé : http://cjoint.com/?dBeeAoZ6dW
Merci à vous par avance pour votre précieuse aide.
Bonne Journée.
Calou "FFO" a écrit dans le message de news:
Salut à toi
Vérifies la présence des plages :
definition et prochain
dans ton fichier
Tu peux en supprimant les données confidentielles nous le transmettre par :
http://www.cijoint.fr/index.php
pour l'analyser
Communiques nous le lien
"Calou" wrote:
Bonjour, Voila j'ai un fichier de budget familial que j'ai monté avec votre aide voila quelques temps. J'ai un échéancier où je retrouve toutes mes opérations qui reviennent régulièrement. Mais depuis quelques temps, à l'ouverture de ce fichier j'ai le message suivant : Erreur d'execution 424 Objet requis
Private Sub Worksheet_Change(ByVal Target As Range) =>If Not Intersect(Target, [definition]) Is Nothing And Target.Count = 1 Then Cells(Target.Row, 5) = Cells(Target.Row, 1) + Cells(Target.Row, 4) End If If Not Intersect(Target, [prochain]) Is Nothing And Target.Count = 1 Then If Cells(Target.Row, 5) = "" Then Cells(Target.Row, 5) = Cells(Target.Row, 1) + Cells(Target.Row, 4) End If End Sub
Pouvez vous m'éclairer ??
Un grand merci à vous pour votre patience !
Bonne Journée
Philippe
FFO
Rebonjour à toi
Aprés analyse de ton document il s'averre que les plages utilisées dans ton code :
definition prochain
présentent une anomalie de définition
Voir dans Insertion/Nom/Définir
Une fois cette correction apportée si l'anomalie persiste je modifierai les lignes :
If Not Intersect(Target, [definition]) If Not Intersect(Target, [prochain])
ainsi
If Not Intersect([definition],Target) If Not Intersect([prochain],Target)
Je n'ai pas assez d'élément quant à la finalité de ce code pour t'apporter plus de précision quant aux modifications à apporter
Peux tu m'en dire plus
Merci
Rebonjour à toi
Aprés analyse de ton document il s'averre que les plages utilisées dans ton
code :
definition
prochain
présentent une anomalie de définition
Voir dans Insertion/Nom/Définir
Une fois cette correction apportée si l'anomalie persiste je modifierai les
lignes :
If Not Intersect(Target, [definition])
If Not Intersect(Target, [prochain])
ainsi
If Not Intersect([definition],Target)
If Not Intersect([prochain],Target)
Je n'ai pas assez d'élément quant à la finalité de ce code pour t'apporter
plus de précision quant aux modifications à apporter