private sub ne fonctionnant pas en xl2007

[gilles72]

bonjour,
une macro qui fonctionne bien en XL2003, est récalcitrante en XL2007
Voir ci-dessous:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Calculate
End Sub

kekun en connaitrait-il la raison?
merci
Gilles

 

[gilles72]

Re : private sub ne fonctionnant pas en xl2007

Merci MARCEL,
j'ai réintégré dans la private sub
ça ne marche pas...
marci quand même
Gilles

 

[job75]

Re : private sub ne fonctionnant pas en xl2007

Bonsoir,

La Private Sub dans le code de la feuille.

La macro de Jean-Marcel est à laisser dans un Module, comme il l'a dit.

Elle est à lancer au cas où les évènements auraient été désactivés...

A+

 

[gilles72]

Re : private sub ne fonctionnant pas en xl2007

Merci Job et Marcel,
...effectivement..!!
Private Sub Worksheet_SelectionChange(ByVal Target As Range)'dans la feuille
'Calculate
Call Essai' dans un module
End Sub

Ce soir je l'essaie en XL2003, sans succès
demain je l'essaierai en xl2007, à laboite
Merci
Gilles

 

[job75]

Re : private sub ne fonctionnant pas en xl2007

Bonjour gilles72, le forum,

...effectivement..!!
Private Sub Worksheet_SelectionChange(ByVal Target As Range)'dans la feuille
'Calculate
Call Essai' dans un module
End Sub

Effectivement vous avez la comprenette difficile 🙁

Si pour une raison ou une autre les évènements ont été désactivés,
Private Sub Worksheet_SelectionChange ne s'exécutera pas !

Il faut donc exécuter manuellement la macro Essai (Alt+F8).

A+

 

[gilles72]

Re : private sub ne fonctionnant pas en xl2007

Bonjour,
Effectivement j'ai la comprenette difficile, et si je m'adresse au forum, c'est pour que les gens qui ont les compétences que je n'ai pas, puissent m'aider.
Toutefois, avant de proposer de tester le lendemain, le code (qui ne fonctionne pas), j'avais bien testé en manuel
Sans succès
...pas plus que j'en ai maintenant.
j'ai ré-essayé en manuel en 2007 au cas ou je me serai mélangé les yeux
la procédure évenementielle ne fonctionne pas sur monXL2007, (même apès avoir lancé le code Essai), alors qu'en 2003 ça baigne.
Merci, de toutes façons
bon we
à+
Gilles

 

[job75]

Re : private sub ne fonctionnant pas en xl2007

Bonjour gilles72,

Si vous avez compris l'utilité des EnableEvents, alors c'est bien.

Mais puisque le problème ne semble pas venir de là, essayez :

Private Sub Worksheet_SelectionChange(ByVal Target As Range) 'dans la feuille
Calculate
End Sub

Private Sub Worksheet_Calculate() 'dans la feuille
MsgBox "l'évènement Calculate a bien été créé..."
End Sub

Qu'est-ce que ça donne en sélectionnant une cellule ?

A+

 

[job75]

Re : private sub ne fonctionnant pas en xl2007

Re,

Un complément au post précédent.

L'évènement Calculate n'est créé que si des formules de la feuille sont recalculées.

Pour cela il faut que leurs résultats soient modifiés (entrée d'une valeur qui modifie une référence) ou qu'elles contiennent une fonction volatile.

Quelques fonctions volatiles : AUJOURDHUI MAINTENANT DECALER INDIRECT.

A+

 

[gilles72]

Re : private sub ne fonctionnant pas en xl2007

bonjour,
J'ai fait une réponse mais qui n'a pas été prise en compte (pb de validation?...)
En complément, je disais que:
En précisions:
les fonctions qui ne se calculent pas sont les suivantes:
en format conditionnel, si je clique dans une cellule, j'ai une formule qui teinte les cellules A à N de la ligne
=LIGNE()=CELLULE("ligne")

les codes fournis fonctionnent (msgbox s'affiche bien), mais les calculs ne s'effectuent pas, et j'ai une fenêtre XL qui me dit:
"l'évenement calculate a bien été crée"
mes excuses pour le retard
à+Gilles

 

[job75]

Re : private sub ne fonctionnant pas en xl2007

Bonjour gilles72,

les codes fournis fonctionnent (msgbox s'affiche bien), mais les calculs ne s'effectuent pas, et j'ai une fenêtre XL qui me dit:
"l'évenement calculate a bien été crée"

Donc la Private Sub Worksheet_SelectionChange s'exécute bien sous Excel 2007.

Par contre la formule de la MFC ne semble pas s'exécuter :

=LIGNE()=CELLULE("ligne")

Essayez alors de la remplacer par :

=LIGNE()=CELLULE("ligne")+INDIRECT("IV1")

A+

 

[gilles72]

Re : private sub ne fonctionnant pas en xl2007

Bonjour,
Merci de ton suivi, et excuses pour le différé dans le mien...
Pas plus de réussite, après avoir modifié la règle de format conditionnel en y insérant ta suggestion
merci
Gilles

 

[gilles72]

Re : private sub ne fonctionnant pas en xl2007

Mes excuses JOB75, car j'ai recrée le format conditionnel, et la private sub dans un fivhier vierge sous xl2007, et ça fonctionne.
ça vient donc de mon fichier
mais ça ne me dit pas pourquoi il marche en 2003 et pas en 2007
je vais creuser, et si je trouve une réponse, je la poste
merci encore
Gilles72