Bonjour à tous,
Excel 2000,
Je voudrais déclencher une procédure chaque fois que la valeur d'une cellule
est modifiée à la suite d'un recalcul.

Par exemple, j'ai une formule d'addition à la cellule C31.
Quelle serait la synthaxe à utiliser pour déclencher une procédure si la
valeur de cette cellule est modifiée?

Merci

Flac

Bonjour,
J'ai tenté d'adapter les procédures suivantes tirées de la page
evenements.htm#WorkSheetChange de ton site.

Private Sub Worksheet_Calculate()
If [A8] <> CDbl([mémo]) Then
MsgBox [mémo]
ActiveWorkbook.Names.Add Name:="mémo", RefersToR1C1:="=" & Chr(34) &
[A8] & Chr(34)
End If
End Sub

Private Sub Workbook_Open()
ActiveWorkbook.Names.Add Name:="mémo", RefersToR1C1:="=" & Chr(34) &
Sheets(2).[A8] & Chr(34)
End Sub

en faisant les modifications comme suit:

Private Sub Worksheet_Calculate() "Dans le module de Feuil5(Together)"
If [c31] <> CDbl([mémo]) Then
MsgBox [mémo]
ActiveWorkbook.Names.Add Name:="mémo", RefersToR1C1:="=" & Chr(34) &
[c31] & Chr(34)
End If
End Sub

Private Sub Workbook_Open() "Dans le module de ThisWorkbook"

Sheets("menu").Select
ActiveWorkbook.Names.Add Name:="mémo", RefersToR1C1:="=" & Chr(34) &
Sheets(5).[c31] & Chr(34)
End Sub



J'ai modifié A8 par C31, et Sheets(2) pour Sheets(5) pour les adapter.

Je m'aperçois que chaque fois que je modifie une cellule quelle quelle soit,
j'ai un message:

Erreur d'exécution '13':

Incompatibilité de type

Pourtant, la valeur de la celule C31 n'a pas changé.

Pourrais-tu, s'il te plaît, me dépanner.



Merci à l'avance



Flac





"JB" <boisgontier***hotmail.com> a écrit dans le message de news:
7dd5a906-b4bc-48a2-b4c6-22b7763ded42...oglegroups.com...
Bonjour,

Utiliser l'événnement Calculate()

Private Sub Worksheet_Calculate()
ActiveSheet.Shapes("monshape").Visible = ([A10] > 100)
End Sub

http://boisgontierjacques.free.fr/pa....htm#calculate

JB
http://boisgontierjacques.free.fr

On 23 juil, 17:55, "Flac" <luc...***hotmail.com> wrote:
> Bonjour à tous,
> Excel 2000,
> Je voudrais déclencher une procédure chaque fois que la valeur d'une
> cellule
> est modifiée à la suite d'un recalcul.
>
> Par exemple, j'ai une formule d'addition à la cellule C31.
> Quelle serait la synthaxe à utiliser pour déclencher une procédure si la
> valeur de cette cellule est modifiée?
>
> Merci
>
> Flac

Bonjour,
J'aimerais savoir dans le cadre de "Worksheet_Calculate()" s'il est possible
de
limiter le déclenchement de la procédure seulement si la valeur de la
cellule C31
est modifiée.
Merci

Flac




"Flac" <luc_bt***hotmail.com> a écrit dans le message de news:
uDHSxwO7IHA.3736***TK2MSFTNGP06.phx.gbl...
> Bonjour,
> J'ai tenté d'adapter les procédures suivantes tirées de la page
> evenements.htm#WorkSheetChange de ton site.
>
> Private Sub Worksheet_Calculate()
> If [A8] <> CDbl([mémo]) Then
> MsgBox [mémo]
> ActiveWorkbook.Names.Add Name:="mémo", RefersToR1C1:="=" & Chr(34) &
> [A8] & Chr(34)
> End If
> End Sub
>
> Private Sub Workbook_Open()
> ActiveWorkbook.Names.Add Name:="mémo", RefersToR1C1:="=" & Chr(34) &
> Sheets(2).[A8] & Chr(34)
> End Sub
>
> en faisant les modifications comme suit:
>
> Private Sub Worksheet_Calculate() "Dans le module de Feuil5(Together)"
> If [c31] <> CDbl([mémo]) Then
> MsgBox [mémo]
> ActiveWorkbook.Names.Add Name:="mémo", RefersToR1C1:="=" & Chr(34) &
> [c31] & Chr(34)
> End If
> End Sub
>
> Private Sub Workbook_Open() "Dans le module de ThisWorkbook"
>
> Sheets("menu").Select
> ActiveWorkbook.Names.Add Name:="mémo", RefersToR1C1:="=" & Chr(34) &
> Sheets(5).[c31] & Chr(34)
> End Sub
>
>
>
> J'ai modifié A8 par C31, et Sheets(2) pour Sheets(5) pour les adapter.
>
> Je m'aperçois que chaque fois que je modifie une cellule quelle quelle
> soit, j'ai un message:
>
> Erreur d'exécution '13':
>
> Incompatibilité de type
>
> Pourtant, la valeur de la celule C31 n'a pas changé.
>
> Pourrais-tu, s'il te plaît, me dépanner.
>
>
>
> Merci à l'avance
>
>
>
> Flac
>
>
>
>
>
> "JB" <boisgontier***hotmail.com> a écrit dans le message de news:
> 7dd5a906-b4bc-48a2-b4c6-22b7763ded42...oglegroups.com...
> Bonjour,
>
> Utiliser l'événnement Calculate()
>
> Private Sub Worksheet_Calculate()
> ActiveSheet.Shapes("monshape").Visible = ([A10] > 100)
> End Sub
>
> http://boisgontierjacques.free.fr/pa....htm#calculate
>
> JB
> http://boisgontierjacques.free.fr
>
> On 23 juil, 17:55, "Flac" <luc...***hotmail.com> wrote:
>> Bonjour à tous,
>> Excel 2000,
>> Je voudrais déclencher une procédure chaque fois que la valeur d'une
>> cellule
>> est modifiée à la suite d'un recalcul.
>>
>> Par exemple, j'ai une formule d'addition à la cellule C31.
>> Quelle serait la synthaxe à utiliser pour déclencher une procédure si la
>> valeur de cette cellule est modifiée?
>>
>> Merci
>>
>> Flac
>
>

Bonjour
Perso, par macro, je ferais copier la valeur de la cel (C31) en D31.
Puis lancer l'addition
Ensuite, dans la procédure qui est lancée après la nouvelle addition, mettre
en début
Si [D31]=[C31] ----> ouste dehors, sinon...
procédure

Si ça va, alors ça va, sinon, taper sur un autre.-))
--
Bien amicalmement,
"Le vin est au repas ce que le parfum est à la femme."

Jacquouille.

"Flac" <luc_bt***hotmail.com> a écrit dans le message de news:
OgpueLQ7IHA.1428***TK2MSFTNGP06.phx.gbl...
> Bonjour,
> J'aimerais savoir dans le cadre de "Worksheet_Calculate()" s'il est
> possible de
> limiter le déclenchement de la procédure seulement si la valeur de la
> cellule C31
> est modifiée.
> Merci
>
> Flac
>
>
>
>
> "Flac" <luc_bt***hotmail.com> a écrit dans le message de news:
> uDHSxwO7IHA.3736***TK2MSFTNGP06.phx.gbl...
>> Bonjour,
>> J'ai tenté d'adapter les procédures suivantes tirées de la page
>> evenements.htm#WorkSheetChange de ton site.
>>
>> Private Sub Worksheet_Calculate()
>> If [A8] <> CDbl([mémo]) Then
>> MsgBox [mémo]
>> ActiveWorkbook.Names.Add Name:="mémo", RefersToR1C1:="=" & Chr(34) &
>> [A8] & Chr(34)
>> End If
>> End Sub
>>
>> Private Sub Workbook_Open()
>> ActiveWorkbook.Names.Add Name:="mémo", RefersToR1C1:="=" & Chr(34) &
>> Sheets(2).[A8] & Chr(34)
>> End Sub
>>
>> en faisant les modifications comme suit:
>>
>> Private Sub Worksheet_Calculate() "Dans le module de Feuil5(Together)"
>> If [c31] <> CDbl([mémo]) Then
>> MsgBox [mémo]
>> ActiveWorkbook.Names.Add Name:="mémo", RefersToR1C1:="=" & Chr(34) &
>> [c31] & Chr(34)
>> End If
>> End Sub
>>
>> Private Sub Workbook_Open() "Dans le module de ThisWorkbook"
>>
>> Sheets("menu").Select
>> ActiveWorkbook.Names.Add Name:="mémo", RefersToR1C1:="=" & Chr(34) &
>> Sheets(5).[c31] & Chr(34)
>> End Sub
>>
>>
>>
>> J'ai modifié A8 par C31, et Sheets(2) pour Sheets(5) pour les adapter.
>>
>> Je m'aperçois que chaque fois que je modifie une cellule quelle quelle
>> soit, j'ai un message:
>>
>> Erreur d'exécution '13':
>>
>> Incompatibilité de type
>>
>> Pourtant, la valeur de la celule C31 n'a pas changé.
>>
>> Pourrais-tu, s'il te plaît, me dépanner.
>>
>>
>>
>> Merci à l'avance
>>
>>
>>
>> Flac
>>
>>
>>
>>
>>
>> "JB" <boisgontier***hotmail.com> a écrit dans le message de news:
>> 7dd5a906-b4bc-48a2-b4c6-22b7763ded42...oglegroups.com...
>> Bonjour,
>>
>> Utiliser l'événnement Calculate()
>>
>> Private Sub Worksheet_Calculate()
>> ActiveSheet.Shapes("monshape").Visible = ([A10] > 100)
>> End Sub
>>
>> http://boisgontierjacques.free.fr/pa....htm#calculate
>>
>> JB
>> http://boisgontierjacques.free.fr
>>
>> On 23 juil, 17:55, "Flac" <luc...***hotmail.com> wrote:
>>> Bonjour à tous,
>>> Excel 2000,
>>> Je voudrais déclencher une procédure chaque fois que la valeur d'une
>>> cellule
>>> est modifiée à la suite d'un recalcul.
>>>
>>> Par exemple, j'ai une formule d'addition à la cellule C31.
>>> Quelle serait la synthaxe à utiliser pour déclencher une procédure si la
>>> valeur de cette cellule est modifiée?
>>>
>>> Merci
>>>
>>> Flac
>>
>>
>
>

Merci
Ça fonctionne

Flac




"JB" <boisgontier***hotmail.com> a écrit dans le message de news:
65ee84b0-58c7-45ef-ba50-0fd7867da514...oglegroups.com...
Bonjour,

On vérifie si [A8] - qui contient =Somme(A2:A6) - a changé de valeur
lors d'un recalcul:

Private Sub Workbook_Open()
ActiveWorkbook.Names.Add Name:="mémo", RefersToR1C1:="=" & Chr(34)
& Sheets(1).[A8] & Chr(34)
End Sub

Private Sub Worksheet_Calculate()
If [A8] <> Val([mémo]) Then
MsgBox [mémo]
ActiveWorkbook.Names.Add Name:="mémo", RefersToR1C1:="=" & Chr(34)
& Sheets(1).[A8] & Chr(34)
End If
End Sub

http://cjoint.com/?hyhwFfEhpf

JB
http://boisgontierjacques.free.fr


On 23 juil, 22:29, "Flac" <luc...***hotmail.com> wrote:
> Bonjour,
> J'aimerais savoir dans le cadre de "Worksheet_Calculate()" s'il est
> possible
> de
> limiter le déclenchement de la procédure seulement si la valeur de la
> cellule C31
> est modifiée.
> Merci
>
> Flac
>
> "Flac" <luc...***hotmail.com> a écrit dans le message de news:
> uDHSxwO7IHA.3...***TK2MSFTNGP06.phx.gbl...
>
>
>
> > Bonjour,
> > J'ai tenté d'adapter les procédures suivantes tirées de la page
> > evenements.htm#WorkSheetChange de ton site.
>
> > Private Sub Worksheet_Calculate()
> > If [A8] <> CDbl([mémo]) Then
> > MsgBox [mémo]
> > ActiveWorkbook.Names.Add Name:="mémo", RefersToR1C1:="=" & Chr(34) &
> > [A8] & Chr(34)
> > End If
> > End Sub
>
> > Private Sub Workbook_Open()
> > ActiveWorkbook.Names.Add Name:="mémo", RefersToR1C1:="=" & Chr(34) &
> > Sheets(2).[A8] & Chr(34)
> > End Sub
>
> > en faisant les modifications comme suit:
>
> > Private Sub Worksheet_Calculate() "Dans le module de Feuil5(Together)"
> > If [c31] <> CDbl([mémo]) Then
> > MsgBox [mémo]
> > ActiveWorkbook.Names.Add Name:="mémo", RefersToR1C1:="=" & Chr(34) &
> > [c31] & Chr(34)
> > End If
> > End Sub
>
> > Private Sub Workbook_Open() "Dans le module de ThisWorkbook"
>
> > Sheets("menu").Select
> > ActiveWorkbook.Names.Add Name:="mémo", RefersToR1C1:="=" & Chr(34) &
> > Sheets(5).[c31] & Chr(34)
> > End Sub
>
> > J'ai modifié A8 par C31, et Sheets(2) pour Sheets(5) pour les adapter.
>
> > Je m'aperçois que chaque fois que je modifie une cellule quelle quelle
> > soit, j'ai un message:
>
> > Erreur d'exécution '13':
>
> > Incompatibilité de type
>
> > Pourtant, la valeur de la celule C31 n'a pas changé.
>
> > Pourrais-tu, s'il te plaît, me dépanner.
>
> > Merci à l'avance
>
> > Flac
>
> > "JB" <boisgont...***hotmail.com> a écrit dans le message de news:
> > 7dd5a906-b4bc-48a2-b4c6-22b7763de...***k37g2000hsf.googlegroups.com...
> > Bonjour,
>
> > Utiliser l'événnement Calculate()
>
> > Private Sub Worksheet_Calculate()
> > ActiveSheet.Shapes("monshape").Visible = ([A10] > 100)
> > End Sub
>
> >http://boisgontierjacques.free.fr/pa....htm#calculate
>
> > JB
> >http://boisgontierjacques.free.fr
>
> > On 23 juil, 17:55, "Flac" <luc...***hotmail.com> wrote:
> >> Bonjour à tous,
> >> Excel 2000,
> >> Je voudrais déclencher une procédure chaque fois que la valeur d'une
> >> cellule
> >> est modifiée à la suite d'un recalcul.
>
> >> Par exemple, j'ai une formule d'addition à la cellule C31.
> >> Quelle serait la synthaxe à utiliser pour déclencher une procédure si
> >> la
> >> valeur de cette cellule est modifiée?
>
> >> Merci
>
> >> Flac- Masquer le texte des messages précédents -
>
> - Afficher le texte des messages précédents -