J'ai cherché sur ce forum mais tout ce que j'ai trouvé et essayé ne
fonctionne pas...
Je dois être un peu nul...
En B3, j'ai une liste déroulante (validation) qui peut contenir les
nombres 6, 12, 18, 24 ou 30
Je souhaiterais que lorsqu'on choisi 12 par exemple, la macro (présente
dans un module "normal") nommée mepq12 soit lancée...
Dans le code de la feuille, j'ai écrit ceci:
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(ActiveCell, [B3]) Is Nothing Then
Select Case Target
Case 6: mepq6
Case 12: mepq12
Case 18: mepq18
Case 24: mepq24
Case 30: mepq30
End Select
End If
End Sub
J'ai essayé de placer ce code dans le ThisWorkbook... mais ça ne va pas
mieux :-(
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
Jacky
Bonjour, La code en question fonctionne parfaitement chez moi.(ActiveCell==>target ne change rien) http://cjoint.com/?kpnp7R02Ld Reboot le pc. -- Salutations JJ
"Pierre F." a écrit dans le message de news: a75b6$48f5c88c$55da2eb8$
Bonjour à toutes et tous
J'ai cherché sur ce forum mais tout ce que j'ai trouvé et essayé ne fonctionne pas... Je dois être un peu nul...
En B3, j'ai une liste déroulante (validation) qui peut contenir les nombres 6, 12, 18, 24 ou 30
Je souhaiterais que lorsqu'on choisi 12 par exemple, la macro (présente dans un module "normal") nommée mepq12 soit lancée...
Dans le code de la feuille, j'ai écrit ceci:
Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(ActiveCell, [B3]) Is Nothing Then Select Case Target Case 6: mepq6 Case 12: mepq12 Case 18: mepq18 Case 24: mepq24 Case 30: mepq30 End Select End If End Sub
J'ai essayé de placer ce code dans le ThisWorkbook... mais ça ne va pas mieux :-(
Il y a des jours comme ça :-)
Merci pour votre aide.
Cordialement, Pierre F.
Bonjour,
La code en question fonctionne parfaitement chez moi.(ActiveCell==>target ne
change rien)
http://cjoint.com/?kpnp7R02Ld
Reboot le pc.
--
Salutations
JJ
"Pierre F." <pfornerodNO@SPAMhotmail.com> a écrit dans le message de news:
a75b6$48f5c88c$55da2eb8$4744@news.hispeed.ch...
Bonjour à toutes et tous
J'ai cherché sur ce forum mais tout ce que j'ai trouvé et essayé ne
fonctionne pas...
Je dois être un peu nul...
En B3, j'ai une liste déroulante (validation) qui peut contenir les
nombres 6, 12, 18, 24 ou 30
Je souhaiterais que lorsqu'on choisi 12 par exemple, la macro (présente
dans un module "normal") nommée mepq12 soit lancée...
Dans le code de la feuille, j'ai écrit ceci:
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(ActiveCell, [B3]) Is Nothing Then
Select Case Target
Case 6: mepq6
Case 12: mepq12
Case 18: mepq18
Case 24: mepq24
Case 30: mepq30
End Select
End If
End Sub
J'ai essayé de placer ce code dans le ThisWorkbook... mais ça ne va pas
mieux :-(
Bonjour, La code en question fonctionne parfaitement chez moi.(ActiveCell==>target ne change rien) http://cjoint.com/?kpnp7R02Ld Reboot le pc. -- Salutations JJ
"Pierre F." a écrit dans le message de news: a75b6$48f5c88c$55da2eb8$
Bonjour à toutes et tous
J'ai cherché sur ce forum mais tout ce que j'ai trouvé et essayé ne fonctionne pas... Je dois être un peu nul...
En B3, j'ai une liste déroulante (validation) qui peut contenir les nombres 6, 12, 18, 24 ou 30
Je souhaiterais que lorsqu'on choisi 12 par exemple, la macro (présente dans un module "normal") nommée mepq12 soit lancée...
Dans le code de la feuille, j'ai écrit ceci:
Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(ActiveCell, [B3]) Is Nothing Then Select Case Target Case 6: mepq6 Case 12: mepq12 Case 18: mepq18 Case 24: mepq24 Case 30: mepq30 End Select End If End Sub
J'ai essayé de placer ce code dans le ThisWorkbook... mais ça ne va pas mieux :-(
Il y a des jours comme ça :-)
Merci pour votre aide.
Cordialement, Pierre F.
JPMonnier
Bonjour, en plaçant le code dans la feuille (VBA) contenant la liste déroulant, ça fonctionne chez moi mais placé dans ThisWorkbook ça ne fonctionne pas -- Cordialement
"Pierre F." a écrit dans le message de news:a75b6$48f5c88c$55da2eb8$
Bonjour à toutes et tous
J'ai cherché sur ce forum mais tout ce que j'ai trouvé et essayé ne fonctionne pas... Je dois être un peu nul...
En B3, j'ai une liste déroulante (validation) qui peut contenir les nombres 6, 12, 18, 24 ou 30
Je souhaiterais que lorsqu'on choisi 12 par exemple, la macro (présente dans un module "normal") nommée mepq12 soit lancée...
Dans le code de la feuille, j'ai écrit ceci:
Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(ActiveCell, [B3]) Is Nothing Then Select Case Target Case 6: mepq6 Case 12: mepq12 Case 18: mepq18 Case 24: mepq24 Case 30: mepq30 End Select End If End Sub
J'ai essayé de placer ce code dans le ThisWorkbook... mais ça ne va pas mieux :-(
Il y a des jours comme ça :-)
Merci pour votre aide.
Cordialement, Pierre F.
Bonjour,
en plaçant le code dans la feuille (VBA) contenant la liste déroulant, ça
fonctionne chez moi
mais placé dans ThisWorkbook ça ne fonctionne pas
--
Cordialement
jpmonnier-nospam@neuf.fr
"Pierre F." <pfornerodNO@SPAMhotmail.com> a écrit dans le message de
news:a75b6$48f5c88c$55da2eb8$4744@news.hispeed.ch...
Bonjour à toutes et tous
J'ai cherché sur ce forum mais tout ce que j'ai trouvé et essayé ne
fonctionne pas...
Je dois être un peu nul...
En B3, j'ai une liste déroulante (validation) qui peut contenir les
nombres 6, 12, 18, 24 ou 30
Je souhaiterais que lorsqu'on choisi 12 par exemple, la macro (présente
dans un module "normal") nommée mepq12 soit lancée...
Dans le code de la feuille, j'ai écrit ceci:
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(ActiveCell, [B3]) Is Nothing Then
Select Case Target
Case 6: mepq6
Case 12: mepq12
Case 18: mepq18
Case 24: mepq24
Case 30: mepq30
End Select
End If
End Sub
J'ai essayé de placer ce code dans le ThisWorkbook... mais ça ne va pas
mieux :-(
Bonjour, en plaçant le code dans la feuille (VBA) contenant la liste déroulant, ça fonctionne chez moi mais placé dans ThisWorkbook ça ne fonctionne pas -- Cordialement
"Pierre F." a écrit dans le message de news:a75b6$48f5c88c$55da2eb8$
Bonjour à toutes et tous
J'ai cherché sur ce forum mais tout ce que j'ai trouvé et essayé ne fonctionne pas... Je dois être un peu nul...
En B3, j'ai une liste déroulante (validation) qui peut contenir les nombres 6, 12, 18, 24 ou 30
Je souhaiterais que lorsqu'on choisi 12 par exemple, la macro (présente dans un module "normal") nommée mepq12 soit lancée...
Dans le code de la feuille, j'ai écrit ceci:
Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(ActiveCell, [B3]) Is Nothing Then Select Case Target Case 6: mepq6 Case 12: mepq12 Case 18: mepq18 Case 24: mepq24 Case 30: mepq30 End Select End If End Sub
J'ai essayé de placer ce code dans le ThisWorkbook... mais ça ne va pas mieux :-(
Il y a des jours comme ça :-)
Merci pour votre aide.
Cordialement, Pierre F.
Daniel.C
Bonjour. Non, c'est bien, il faut le mettre dans le module feuille (clic droit sur l'onglet et clic sur "visualiser le code". Remplace aussi activecell par "target", les deux pouvant être différents. -- Cordialement. Daniel "Pierre F." a écrit dans le message de news: a75b6$48f5c88c$55da2eb8$
Bonjour à toutes et tous
J'ai cherché sur ce forum mais tout ce que j'ai trouvé et essayé ne fonctionne pas... Je dois être un peu nul...
En B3, j'ai une liste déroulante (validation) qui peut contenir les nombres 6, 12, 18, 24 ou 30
Je souhaiterais que lorsqu'on choisi 12 par exemple, la macro (présente dans un module "normal") nommée mepq12 soit lancée...
Dans le code de la feuille, j'ai écrit ceci:
Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(ActiveCell, [B3]) Is Nothing Then Select Case Target Case 6: mepq6 Case 12: mepq12 Case 18: mepq18 Case 24: mepq24 Case 30: mepq30 End Select End If End Sub
J'ai essayé de placer ce code dans le ThisWorkbook... mais ça ne va pas mieux :-(
Il y a des jours comme ça :-)
Merci pour votre aide.
Cordialement, Pierre F.
Bonjour.
Non, c'est bien, il faut le mettre dans le module feuille (clic droit sur
l'onglet et clic sur "visualiser le code". Remplace aussi activecell par
"target", les deux pouvant être différents.
--
Cordialement.
Daniel
"Pierre F." <pfornerodNO@SPAMhotmail.com> a écrit dans le message de news:
a75b6$48f5c88c$55da2eb8$4744@news.hispeed.ch...
Bonjour à toutes et tous
J'ai cherché sur ce forum mais tout ce que j'ai trouvé et essayé ne
fonctionne pas...
Je dois être un peu nul...
En B3, j'ai une liste déroulante (validation) qui peut contenir les
nombres 6, 12, 18, 24 ou 30
Je souhaiterais que lorsqu'on choisi 12 par exemple, la macro (présente
dans un module "normal") nommée mepq12 soit lancée...
Dans le code de la feuille, j'ai écrit ceci:
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(ActiveCell, [B3]) Is Nothing Then
Select Case Target
Case 6: mepq6
Case 12: mepq12
Case 18: mepq18
Case 24: mepq24
Case 30: mepq30
End Select
End If
End Sub
J'ai essayé de placer ce code dans le ThisWorkbook... mais ça ne va pas
mieux :-(
Bonjour. Non, c'est bien, il faut le mettre dans le module feuille (clic droit sur l'onglet et clic sur "visualiser le code". Remplace aussi activecell par "target", les deux pouvant être différents. -- Cordialement. Daniel "Pierre F." a écrit dans le message de news: a75b6$48f5c88c$55da2eb8$
Bonjour à toutes et tous
J'ai cherché sur ce forum mais tout ce que j'ai trouvé et essayé ne fonctionne pas... Je dois être un peu nul...
En B3, j'ai une liste déroulante (validation) qui peut contenir les nombres 6, 12, 18, 24 ou 30
Je souhaiterais que lorsqu'on choisi 12 par exemple, la macro (présente dans un module "normal") nommée mepq12 soit lancée...
Dans le code de la feuille, j'ai écrit ceci:
Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(ActiveCell, [B3]) Is Nothing Then Select Case Target Case 6: mepq6 Case 12: mepq12 Case 18: mepq18 Case 24: mepq24 Case 30: mepq30 End Select End If End Sub
J'ai essayé de placer ce code dans le ThisWorkbook... mais ça ne va pas mieux :-(
Il y a des jours comme ça :-)
Merci pour votre aide.
Cordialement, Pierre F.
Daniel.C
Bonjour. J'ai eu un jour un gros souci avec un utilisateur dont la sélection descend d'une cellule après validation, auquel cas target <> activecell -- Cordialement. Daniel "Jacky" a écrit dans le message de news:
Bonjour, La code en question fonctionne parfaitement chez moi.(ActiveCell==>target ne change rien) http://cjoint.com/?kpnp7R02Ld Reboot le pc. -- Salutations JJ
"Pierre F." a écrit dans le message de news: a75b6$48f5c88c$55da2eb8$
Bonjour à toutes et tous
J'ai cherché sur ce forum mais tout ce que j'ai trouvé et essayé ne fonctionne pas... Je dois être un peu nul...
En B3, j'ai une liste déroulante (validation) qui peut contenir les nombres 6, 12, 18, 24 ou 30
Je souhaiterais que lorsqu'on choisi 12 par exemple, la macro (présente dans un module "normal") nommée mepq12 soit lancée...
Dans le code de la feuille, j'ai écrit ceci:
Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(ActiveCell, [B3]) Is Nothing Then Select Case Target Case 6: mepq6 Case 12: mepq12 Case 18: mepq18 Case 24: mepq24 Case 30: mepq30 End Select End If End Sub
J'ai essayé de placer ce code dans le ThisWorkbook... mais ça ne va pas mieux :-(
Il y a des jours comme ça :-)
Merci pour votre aide.
Cordialement, Pierre F.
Bonjour.
J'ai eu un jour un gros souci avec un utilisateur dont la sélection descend
d'une cellule après validation, auquel cas target <> activecell
--
Cordialement.
Daniel
"Jacky" <Dupond@marcel.fr> a écrit dans le message de news:
Ot0OYfrLJHA.728@TK2MSFTNGP03.phx.gbl...
Bonjour,
La code en question fonctionne parfaitement chez moi.(ActiveCell==>target
ne
change rien)
http://cjoint.com/?kpnp7R02Ld
Reboot le pc.
--
Salutations
JJ
"Pierre F." <pfornerodNO@SPAMhotmail.com> a écrit dans le message de news:
a75b6$48f5c88c$55da2eb8$4744@news.hispeed.ch...
Bonjour à toutes et tous
J'ai cherché sur ce forum mais tout ce que j'ai trouvé et essayé ne
fonctionne pas...
Je dois être un peu nul...
En B3, j'ai une liste déroulante (validation) qui peut contenir les
nombres 6, 12, 18, 24 ou 30
Je souhaiterais que lorsqu'on choisi 12 par exemple, la macro (présente
dans un module "normal") nommée mepq12 soit lancée...
Dans le code de la feuille, j'ai écrit ceci:
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(ActiveCell, [B3]) Is Nothing Then
Select Case Target
Case 6: mepq6
Case 12: mepq12
Case 18: mepq18
Case 24: mepq24
Case 30: mepq30
End Select
End If
End Sub
J'ai essayé de placer ce code dans le ThisWorkbook... mais ça ne va pas
mieux :-(
Bonjour. J'ai eu un jour un gros souci avec un utilisateur dont la sélection descend d'une cellule après validation, auquel cas target <> activecell -- Cordialement. Daniel "Jacky" a écrit dans le message de news:
Bonjour, La code en question fonctionne parfaitement chez moi.(ActiveCell==>target ne change rien) http://cjoint.com/?kpnp7R02Ld Reboot le pc. -- Salutations JJ
"Pierre F." a écrit dans le message de news: a75b6$48f5c88c$55da2eb8$
Bonjour à toutes et tous
J'ai cherché sur ce forum mais tout ce que j'ai trouvé et essayé ne fonctionne pas... Je dois être un peu nul...
En B3, j'ai une liste déroulante (validation) qui peut contenir les nombres 6, 12, 18, 24 ou 30
Je souhaiterais que lorsqu'on choisi 12 par exemple, la macro (présente dans un module "normal") nommée mepq12 soit lancée...
Dans le code de la feuille, j'ai écrit ceci:
Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(ActiveCell, [B3]) Is Nothing Then Select Case Target Case 6: mepq6 Case 12: mepq12 Case 18: mepq18 Case 24: mepq24 Case 30: mepq30 End Select End If End Sub
J'ai essayé de placer ce code dans le ThisWorkbook... mais ça ne va pas mieux :-(
Il y a des jours comme ça :-)
Merci pour votre aide.
Cordialement, Pierre F.
Jacky
Bonjour Daniel
Oui, tu as tout à fait raison. Perso, je ne déplace pas le curseur après validation d'ou ce manque de vérification. Donc Pierre, If Not Intersect(ActiveCell, [B3]) Is Nothing Then à remplacer par If Not Intersect(Target, [B3]) Is Nothing Then
-- Salutations JJ
"Daniel.C" a écrit dans le message de news:
Bonjour. J'ai eu un jour un gros souci avec un utilisateur dont la sélection descend d'une cellule après validation, auquel cas target <> activecell -- Cordialement. Daniel "Jacky" a écrit dans le message de news:
Bonjour, La code en question fonctionne parfaitement chez moi.(ActiveCell==>target ne change rien) http://cjoint.com/?kpnp7R02Ld Reboot le pc. -- Salutations JJ
"Pierre F." a écrit dans le message de news: a75b6$48f5c88c$55da2eb8$
Bonjour à toutes et tous
J'ai cherché sur ce forum mais tout ce que j'ai trouvé et essayé ne fonctionne pas... Je dois être un peu nul...
En B3, j'ai une liste déroulante (validation) qui peut contenir les nombres 6, 12, 18, 24 ou 30
Je souhaiterais que lorsqu'on choisi 12 par exemple, la macro (présente dans un module "normal") nommée mepq12 soit lancée...
Dans le code de la feuille, j'ai écrit ceci:
Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(ActiveCell, [B3]) Is Nothing Then Select Case Target Case 6: mepq6 Case 12: mepq12 Case 18: mepq18 Case 24: mepq24 Case 30: mepq30 End Select End If End Sub
J'ai essayé de placer ce code dans le ThisWorkbook... mais ça ne va pas mieux :-(
Il y a des jours comme ça :-)
Merci pour votre aide.
Cordialement, Pierre F.
Bonjour Daniel
Oui, tu as tout à fait raison.
Perso, je ne déplace pas le curseur après validation d'ou ce manque de
vérification.
Donc Pierre,
If Not Intersect(ActiveCell, [B3]) Is Nothing Then
à remplacer par
If Not Intersect(Target, [B3]) Is Nothing Then
--
Salutations
JJ
"Daniel.C" <dZZZcolardelle@free.fr> a écrit dans le message de news:
u6eCyurLJHA.1500@TK2MSFTNGP06.phx.gbl...
Bonjour.
J'ai eu un jour un gros souci avec un utilisateur dont la sélection
descend d'une cellule après validation, auquel cas target <> activecell
--
Cordialement.
Daniel
"Jacky" <Dupond@marcel.fr> a écrit dans le message de news:
Ot0OYfrLJHA.728@TK2MSFTNGP03.phx.gbl...
Bonjour,
La code en question fonctionne parfaitement chez moi.(ActiveCell==>target
ne
change rien)
http://cjoint.com/?kpnp7R02Ld
Reboot le pc.
--
Salutations
JJ
"Pierre F." <pfornerodNO@SPAMhotmail.com> a écrit dans le message de
news:
a75b6$48f5c88c$55da2eb8$4744@news.hispeed.ch...
Bonjour à toutes et tous
J'ai cherché sur ce forum mais tout ce que j'ai trouvé et essayé ne
fonctionne pas...
Je dois être un peu nul...
En B3, j'ai une liste déroulante (validation) qui peut contenir les
nombres 6, 12, 18, 24 ou 30
Je souhaiterais que lorsqu'on choisi 12 par exemple, la macro (présente
dans un module "normal") nommée mepq12 soit lancée...
Dans le code de la feuille, j'ai écrit ceci:
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(ActiveCell, [B3]) Is Nothing Then
Select Case Target
Case 6: mepq6
Case 12: mepq12
Case 18: mepq18
Case 24: mepq24
Case 30: mepq30
End Select
End If
End Sub
J'ai essayé de placer ce code dans le ThisWorkbook... mais ça ne va pas
mieux :-(
Oui, tu as tout à fait raison. Perso, je ne déplace pas le curseur après validation d'ou ce manque de vérification. Donc Pierre, If Not Intersect(ActiveCell, [B3]) Is Nothing Then à remplacer par If Not Intersect(Target, [B3]) Is Nothing Then
-- Salutations JJ
"Daniel.C" a écrit dans le message de news:
Bonjour. J'ai eu un jour un gros souci avec un utilisateur dont la sélection descend d'une cellule après validation, auquel cas target <> activecell -- Cordialement. Daniel "Jacky" a écrit dans le message de news:
Bonjour, La code en question fonctionne parfaitement chez moi.(ActiveCell==>target ne change rien) http://cjoint.com/?kpnp7R02Ld Reboot le pc. -- Salutations JJ
"Pierre F." a écrit dans le message de news: a75b6$48f5c88c$55da2eb8$
Bonjour à toutes et tous
J'ai cherché sur ce forum mais tout ce que j'ai trouvé et essayé ne fonctionne pas... Je dois être un peu nul...
En B3, j'ai une liste déroulante (validation) qui peut contenir les nombres 6, 12, 18, 24 ou 30
Je souhaiterais que lorsqu'on choisi 12 par exemple, la macro (présente dans un module "normal") nommée mepq12 soit lancée...
Dans le code de la feuille, j'ai écrit ceci:
Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(ActiveCell, [B3]) Is Nothing Then Select Case Target Case 6: mepq6 Case 12: mepq12 Case 18: mepq18 Case 24: mepq24 Case 30: mepq30 End Select End If End Sub
J'ai essayé de placer ce code dans le ThisWorkbook... mais ça ne va pas mieux :-(
Il y a des jours comme ça :-)
Merci pour votre aide.
Cordialement, Pierre F.
Pierre F.
Daniel.C a écrit :
Bonjour. Non, c'est bien, il faut le mettre dans le module feuille (clic droit sur l'onglet et clic sur "visualiser le code". Remplace aussi activecell par "target", les deux pouvant être différents.
Merci à vous tous...
Je n'y comprends plus rien :-(
Quand je fais tourner l'exemple de Jacky, tout fonctionne !!! Mais pour mon classeur... que dalle
J'ai testé mes macros une à une et elles fonctionnent correctement.
Je vous met en cjoint un extrait de mon classeur. Merci pour votre collaboration.
http://cjoint.com/?kpoyu54jBZ
Cordialement Pierre F.
PS: Bizarrerie au démarrage d'Excel, j'ai le message suivant (depuis quelques jours): "Impossible de créer le menu".
Mais le fichier de Jacky a eu le même message et il fonctionne :-(
Daniel.C a écrit :
Bonjour.
Non, c'est bien, il faut le mettre dans le module feuille (clic droit sur
l'onglet et clic sur "visualiser le code". Remplace aussi activecell par
"target", les deux pouvant être différents.
Merci à vous tous...
Je n'y comprends plus rien :-(
Quand je fais tourner l'exemple de Jacky, tout fonctionne !!!
Mais pour mon classeur... que dalle
J'ai testé mes macros une à une et elles fonctionnent correctement.
Je vous met en cjoint un extrait de mon classeur.
Merci pour votre collaboration.
http://cjoint.com/?kpoyu54jBZ
Cordialement
Pierre F.
PS: Bizarrerie au démarrage d'Excel, j'ai le message suivant (depuis
quelques jours): "Impossible de créer le menu".
Mais le fichier de Jacky a eu le même message et il fonctionne :-(
Bonjour. Non, c'est bien, il faut le mettre dans le module feuille (clic droit sur l'onglet et clic sur "visualiser le code". Remplace aussi activecell par "target", les deux pouvant être différents.
Merci à vous tous...
Je n'y comprends plus rien :-(
Quand je fais tourner l'exemple de Jacky, tout fonctionne !!! Mais pour mon classeur... que dalle
J'ai testé mes macros une à une et elles fonctionnent correctement.
Je vous met en cjoint un extrait de mon classeur. Merci pour votre collaboration.
http://cjoint.com/?kpoyu54jBZ
Cordialement Pierre F.
PS: Bizarrerie au démarrage d'Excel, j'ai le message suivant (depuis quelques jours): "Impossible de créer le menu".
Mais le fichier de Jacky a eu le même message et il fonctionne :-(
Pierre F.
Jacky a écrit :
Donc Pierre, If Not Intersect(ActiveCell, [B3]) Is Nothing Then à remplacer par If Not Intersect(Target, [B3]) Is Nothing Then
OK; j'ai fait le changement... mais pas d'amélioration :-( Voir ma réponse à Daniel C.
Merci; cordialement, Pierre F.
Jacky a écrit :
Donc Pierre,
If Not Intersect(ActiveCell, [B3]) Is Nothing Then
à remplacer par
If Not Intersect(Target, [B3]) Is Nothing Then
OK; j'ai fait le changement... mais pas d'amélioration :-(
Voir ma réponse à Daniel C.
Ca fonctionne chez moi. A tout hasard, mets la macro suivante dans un classeur et exécute-la avant de tester :
Sub test() application.EnableEvents=True End Sub
-- Cordialement. Daniel "Pierre F." a écrit dans le message de news: bd546$48f5e17e$55da2eb8$
Daniel.C a écrit :
Bonjour. Non, c'est bien, il faut le mettre dans le module feuille (clic droit sur l'onglet et clic sur "visualiser le code". Remplace aussi activecell par "target", les deux pouvant être différents.
Merci à vous tous...
Je n'y comprends plus rien :-(
Quand je fais tourner l'exemple de Jacky, tout fonctionne !!! Mais pour mon classeur... que dalle
J'ai testé mes macros une à une et elles fonctionnent correctement.
Je vous met en cjoint un extrait de mon classeur. Merci pour votre collaboration.
http://cjoint.com/?kpoyu54jBZ
Cordialement Pierre F.
PS: Bizarrerie au démarrage d'Excel, j'ai le message suivant (depuis quelques jours): "Impossible de créer le menu".
Mais le fichier de Jacky a eu le même message et il fonctionne :-(
Ca fonctionne chez moi. A tout hasard, mets la macro suivante dans un
classeur et exécute-la avant de tester :
Sub test()
application.EnableEvents=True
End Sub
--
Cordialement.
Daniel
"Pierre F." <pfornerodNO@SPAMhotmail.com> a écrit dans le message de news:
bd546$48f5e17e$55da2eb8$9388@news.hispeed.ch...
Daniel.C a écrit :
Bonjour.
Non, c'est bien, il faut le mettre dans le module feuille (clic droit sur
l'onglet et clic sur "visualiser le code". Remplace aussi activecell par
"target", les deux pouvant être différents.
Merci à vous tous...
Je n'y comprends plus rien :-(
Quand je fais tourner l'exemple de Jacky, tout fonctionne !!!
Mais pour mon classeur... que dalle
J'ai testé mes macros une à une et elles fonctionnent correctement.
Je vous met en cjoint un extrait de mon classeur.
Merci pour votre collaboration.
http://cjoint.com/?kpoyu54jBZ
Cordialement
Pierre F.
PS: Bizarrerie au démarrage d'Excel, j'ai le message suivant (depuis
quelques jours): "Impossible de créer le menu".
Mais le fichier de Jacky a eu le même message et il fonctionne :-(
Ca fonctionne chez moi. A tout hasard, mets la macro suivante dans un classeur et exécute-la avant de tester :
Sub test() application.EnableEvents=True End Sub
-- Cordialement. Daniel "Pierre F." a écrit dans le message de news: bd546$48f5e17e$55da2eb8$
Daniel.C a écrit :
Bonjour. Non, c'est bien, il faut le mettre dans le module feuille (clic droit sur l'onglet et clic sur "visualiser le code". Remplace aussi activecell par "target", les deux pouvant être différents.
Merci à vous tous...
Je n'y comprends plus rien :-(
Quand je fais tourner l'exemple de Jacky, tout fonctionne !!! Mais pour mon classeur... que dalle
J'ai testé mes macros une à une et elles fonctionnent correctement.
Je vous met en cjoint un extrait de mon classeur. Merci pour votre collaboration.
http://cjoint.com/?kpoyu54jBZ
Cordialement Pierre F.
PS: Bizarrerie au démarrage d'Excel, j'ai le message suivant (depuis quelques jours): "Impossible de créer le menu".
Mais le fichier de Jacky a eu le même message et il fonctionne :-(
Pierre F.
Daniel.C a écrit :
Ca fonctionne chez moi. A tout hasard, mets la macro suivante dans un classeur et exécute-la avant de tester :
Sub test() application.EnableEvents=True End Sub
Merci.
Trouvé la soluce mais ne comprends pas pourquoi. J'ai fait tourner ta petite macro dans un classeur vide puis dans le classeur en question.
Rien n'a changé
.. sauf que ... sans le faire exprès, j'ai été touiller les options (mode de calcul automatique --> mis en mode calcul sur ordre...) et ça fonctionne !!! Je crois rêver :-)
Merci à vous tous pour votre patience.
Cordialement, Pierre F.
PS: en prime, je n'ai plus le message au démarrage d'Excel...
Daniel.C a écrit :
Ca fonctionne chez moi. A tout hasard, mets la macro suivante dans un
classeur et exécute-la avant de tester :
Sub test()
application.EnableEvents=True
End Sub
Merci.
Trouvé la soluce mais ne comprends pas pourquoi.
J'ai fait tourner ta petite macro dans un classeur vide puis dans le
classeur en question.
Rien n'a changé
.. sauf que ... sans le faire exprès, j'ai été touiller les options
(mode de calcul automatique --> mis en mode calcul sur ordre...) et ça
fonctionne !!! Je crois rêver :-)
Merci à vous tous pour votre patience.
Cordialement,
Pierre F.
PS: en prime, je n'ai plus le message au démarrage d'Excel...
Ca fonctionne chez moi. A tout hasard, mets la macro suivante dans un classeur et exécute-la avant de tester :
Sub test() application.EnableEvents=True End Sub
Merci.
Trouvé la soluce mais ne comprends pas pourquoi. J'ai fait tourner ta petite macro dans un classeur vide puis dans le classeur en question.
Rien n'a changé
.. sauf que ... sans le faire exprès, j'ai été touiller les options (mode de calcul automatique --> mis en mode calcul sur ordre...) et ça fonctionne !!! Je crois rêver :-)
Merci à vous tous pour votre patience.
Cordialement, Pierre F.
PS: en prime, je n'ai plus le message au démarrage d'Excel...