Il doit y avoir une erreur dans cette macro. Lorsque je clique en B8, le
userform1 apparaît bien. Par contre, quand je clique en C8, rien ne se passe
(alors que le userform2 est prêt...). Avez-vous une explication?
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address <> "$B$8" Then Exit Sub
UserForm1.Show
[C8].Select
If Target.Address <> "$C$8" Then Exit Sub
UserForm2.Show
[D8].Select
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
michdenis
Bonjour Greg,
Tu dois afficher ton formulaire dans une fenêtre non modale.
Au lieu de cette commande : UserForm1.Show Utilise UserForm1.Show 0
"Greg" a écrit dans le message de groupe de discussion :
Bonjour à tous,
Il doit y avoir une erreur dans cette macro. Lorsque je clique en B8, le userform1 apparaît bien. Par contre, quand je clique en C8, rien ne se passe (alors que le userform2 est prêt...). Avez-vous une explication?
Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Address <> "$B$8" Then Exit Sub UserForm1.Show [C8].Select If Target.Address <> "$C$8" Then Exit Sub UserForm2.Show [D8].Select End Sub
Merci à vous
Greg
Bonjour Greg,
Tu dois afficher ton formulaire dans une fenêtre non modale.
Au lieu de cette commande :
UserForm1.Show
Utilise
UserForm1.Show 0
"Greg" <debutant@free.fr> a écrit dans le message de groupe de discussion :
746E2603-722A-4B48-8729-9A51E46554A5@microsoft.com...
Bonjour à tous,
Il doit y avoir une erreur dans cette macro. Lorsque je clique en B8, le
userform1 apparaît bien. Par contre, quand je clique en C8, rien ne se passe
(alors que le userform2 est prêt...). Avez-vous une explication?
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address <> "$B$8" Then Exit Sub
UserForm1.Show
[C8].Select
If Target.Address <> "$C$8" Then Exit Sub
UserForm2.Show
[D8].Select
End Sub
Tu dois afficher ton formulaire dans une fenêtre non modale.
Au lieu de cette commande : UserForm1.Show Utilise UserForm1.Show 0
"Greg" a écrit dans le message de groupe de discussion :
Bonjour à tous,
Il doit y avoir une erreur dans cette macro. Lorsque je clique en B8, le userform1 apparaît bien. Par contre, quand je clique en C8, rien ne se passe (alors que le userform2 est prêt...). Avez-vous une explication?
Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Address <> "$B$8" Then Exit Sub UserForm1.Show [C8].Select If Target.Address <> "$C$8" Then Exit Sub UserForm2.Show [D8].Select End Sub
Merci à vous
Greg
Greg
Bonjour MichDenis et merci pour ta réponse,
J'ai essayé mais rien ne se passe. Je ne dois pas bien m'y prendre. En fait, j'essaye de faire fonctionner la fonction calendrier de Daniel (http://www.cijoint.fr/cjlink.php?file=cj200903/cijlzpAY7F.xls) dans deux cellules différentes, A1 et A2 par exemple.
Aussi, j'aurais aimé que le calendrier se déclenche au double-clic...
Pouvez-vous me donner un coup de main?
Merci
Greg
"michdenis" a écrit dans le message de news:
Bonjour Greg,
Tu dois afficher ton formulaire dans une fenêtre non modale.
Au lieu de cette commande : UserForm1.Show Utilise UserForm1.Show 0
"Greg" a écrit dans le message de groupe de discussion :
Bonjour à tous,
Il doit y avoir une erreur dans cette macro. Lorsque je clique en B8, le userform1 apparaît bien. Par contre, quand je clique en C8, rien ne se passe (alors que le userform2 est prêt...). Avez-vous une explication?
Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Address <> "$B$8" Then Exit Sub UserForm1.Show [C8].Select If Target.Address <> "$C$8" Then Exit Sub UserForm2.Show [D8].Select End Sub
Merci à vous
Greg
Bonjour MichDenis et merci pour ta réponse,
J'ai essayé mais rien ne se passe. Je ne dois pas bien m'y prendre. En fait,
j'essaye de faire fonctionner la fonction calendrier de Daniel
(http://www.cijoint.fr/cjlink.php?file=cj200903/cijlzpAY7F.xls) dans deux
cellules différentes, A1 et A2 par exemple.
Aussi, j'aurais aimé que le calendrier se déclenche au double-clic...
Pouvez-vous me donner un coup de main?
Merci
Greg
"michdenis" <michdenis@hotmail.com> a écrit dans le message de
news:3E5B9E5F-F8D0-4368-BE0D-6A9732A24ACF@microsoft.com...
Bonjour Greg,
Tu dois afficher ton formulaire dans une fenêtre non modale.
Au lieu de cette commande :
UserForm1.Show
Utilise
UserForm1.Show 0
"Greg" <debutant@free.fr> a écrit dans le message de groupe de discussion
:
746E2603-722A-4B48-8729-9A51E46554A5@microsoft.com...
Bonjour à tous,
Il doit y avoir une erreur dans cette macro. Lorsque je clique en B8, le
userform1 apparaît bien. Par contre, quand je clique en C8, rien ne se
passe
(alors que le userform2 est prêt...). Avez-vous une explication?
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address <> "$B$8" Then Exit Sub
UserForm1.Show
[C8].Select
If Target.Address <> "$C$8" Then Exit Sub
UserForm2.Show
[D8].Select
End Sub
J'ai essayé mais rien ne se passe. Je ne dois pas bien m'y prendre. En fait, j'essaye de faire fonctionner la fonction calendrier de Daniel (http://www.cijoint.fr/cjlink.php?file=cj200903/cijlzpAY7F.xls) dans deux cellules différentes, A1 et A2 par exemple.
Aussi, j'aurais aimé que le calendrier se déclenche au double-clic...
Pouvez-vous me donner un coup de main?
Merci
Greg
"michdenis" a écrit dans le message de news:
Bonjour Greg,
Tu dois afficher ton formulaire dans une fenêtre non modale.
Au lieu de cette commande : UserForm1.Show Utilise UserForm1.Show 0
"Greg" a écrit dans le message de groupe de discussion :
Bonjour à tous,
Il doit y avoir une erreur dans cette macro. Lorsque je clique en B8, le userform1 apparaît bien. Par contre, quand je clique en C8, rien ne se passe (alors que le userform2 est prêt...). Avez-vous une explication?
Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Address <> "$B$8" Then Exit Sub UserForm1.Show [C8].Select If Target.Address <> "$C$8" Then Exit Sub UserForm2.Show [D8].Select End Sub
Merci à vous
Greg
Jc
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address <> "$B$8" Then Exit Sub UserForm1.Show [C8].Select If Target.Address <> "$C$8" Then Exit Sub UserForm2.Show [D8].Select End Sub
Si je comprends bien ta macro, quand tu sélectionnes C8 tu passes d'abord à l'instruction qui vérifie si c'est B8, et là tu sors... Et en utilisant select case
select case Target.Address case "$B$8" UserForm1.Show [C8].Select case "$C$8" UserForm2.Show end select
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address <> "$B$8" Then Exit Sub
UserForm1.Show
[C8].Select
If Target.Address <> "$C$8" Then Exit Sub
UserForm2.Show
[D8].Select
End Sub
Si je comprends bien ta macro, quand tu sélectionnes C8 tu passes d'abord à
l'instruction qui vérifie si c'est B8, et là tu sors...
Et en utilisant select case
select case Target.Address
case "$B$8"
UserForm1.Show
[C8].Select
case "$C$8"
UserForm2.Show
end select
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address <> "$B$8" Then Exit Sub UserForm1.Show [C8].Select If Target.Address <> "$C$8" Then Exit Sub UserForm2.Show [D8].Select End Sub
Si je comprends bien ta macro, quand tu sélectionnes C8 tu passes d'abord à l'instruction qui vérifie si c'est B8, et là tu sors... Et en utilisant select case
select case Target.Address case "$B$8" UserForm1.Show [C8].Select case "$C$8" UserForm2.Show end select
Aussi, j'aurais aimé que le calendrier se déclenche au double-clic...
Le calendrier se déclenche sur un double clique sur A1 ou A2 '-------------- Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) If Not Intersect(Target, [a1:a2]) Is Nothing And Target.Count = 1 Then Cancel = True UserForm1.Show End If End Sub '--------------- Voir ici http://www.cijoint.fr/cjlink.php?file=cj200911/cij47Lj1Re.xls -- Salutations JJ
"Greg" a écrit dans le message de news:
Bonjour MichDenis et merci pour ta réponse,
J'ai essayé mais rien ne se passe. Je ne dois pas bien m'y prendre. En fait, j'essaye de faire fonctionner la fonction calendrier de Daniel (http://www.cijoint.fr/cjlink.php?file=cj200903/cijlzpAY7F.xls) dans deux cellules différentes, A1 et A2 par exemple.
Aussi, j'aurais aimé que le calendrier se déclenche au double-clic...
Pouvez-vous me donner un coup de main?
Merci
Greg
"michdenis" a écrit dans le message de news:
Bonjour Greg,
Tu dois afficher ton formulaire dans une fenêtre non modale.
Au lieu de cette commande : UserForm1.Show Utilise UserForm1.Show 0
"Greg" a écrit dans le message de groupe de discussion :
Bonjour à tous,
Il doit y avoir une erreur dans cette macro. Lorsque je clique en B8, le userform1 apparaît bien. Par contre, quand je clique en C8, rien ne se passe (alors que le userform2 est prêt...). Avez-vous une explication?
Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Address <> "$B$8" Then Exit Sub UserForm1.Show [C8].Select If Target.Address <> "$C$8" Then Exit Sub UserForm2.Show [D8].Select End Sub
Merci à vous
Greg
Bonjour,
Aussi, j'aurais aimé que le calendrier se déclenche au double-clic...
Le calendrier se déclenche sur un double clique sur A1 ou A2
'--------------
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As
Boolean)
If Not Intersect(Target, [a1:a2]) Is Nothing And Target.Count = 1 Then
Cancel = True
UserForm1.Show
End If
End Sub
'---------------
Voir ici
http://www.cijoint.fr/cjlink.php?file=cj200911/cij47Lj1Re.xls
--
Salutations
JJ
"Greg" <debutant@free.fr> a écrit dans le message de news:
381B03F2-2B92-41D0-A5FF-9C1C1E33B5DE@microsoft.com...
Bonjour MichDenis et merci pour ta réponse,
J'ai essayé mais rien ne se passe. Je ne dois pas bien m'y prendre. En
fait, j'essaye de faire fonctionner la fonction calendrier de Daniel
(http://www.cijoint.fr/cjlink.php?file=cj200903/cijlzpAY7F.xls) dans deux
cellules différentes, A1 et A2 par exemple.
Aussi, j'aurais aimé que le calendrier se déclenche au double-clic...
Pouvez-vous me donner un coup de main?
Merci
Greg
"michdenis" <michdenis@hotmail.com> a écrit dans le message de
news:3E5B9E5F-F8D0-4368-BE0D-6A9732A24ACF@microsoft.com...
Bonjour Greg,
Tu dois afficher ton formulaire dans une fenêtre non modale.
Au lieu de cette commande :
UserForm1.Show
Utilise
UserForm1.Show 0
"Greg" <debutant@free.fr> a écrit dans le message de groupe de discussion
:
746E2603-722A-4B48-8729-9A51E46554A5@microsoft.com...
Bonjour à tous,
Il doit y avoir une erreur dans cette macro. Lorsque je clique en B8, le
userform1 apparaît bien. Par contre, quand je clique en C8, rien ne se
passe
(alors que le userform2 est prêt...). Avez-vous une explication?
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address <> "$B$8" Then Exit Sub
UserForm1.Show
[C8].Select
If Target.Address <> "$C$8" Then Exit Sub
UserForm2.Show
[D8].Select
End Sub
Aussi, j'aurais aimé que le calendrier se déclenche au double-clic...
Le calendrier se déclenche sur un double clique sur A1 ou A2 '-------------- Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) If Not Intersect(Target, [a1:a2]) Is Nothing And Target.Count = 1 Then Cancel = True UserForm1.Show End If End Sub '--------------- Voir ici http://www.cijoint.fr/cjlink.php?file=cj200911/cij47Lj1Re.xls -- Salutations JJ
"Greg" a écrit dans le message de news:
Bonjour MichDenis et merci pour ta réponse,
J'ai essayé mais rien ne se passe. Je ne dois pas bien m'y prendre. En fait, j'essaye de faire fonctionner la fonction calendrier de Daniel (http://www.cijoint.fr/cjlink.php?file=cj200903/cijlzpAY7F.xls) dans deux cellules différentes, A1 et A2 par exemple.
Aussi, j'aurais aimé que le calendrier se déclenche au double-clic...
Pouvez-vous me donner un coup de main?
Merci
Greg
"michdenis" a écrit dans le message de news:
Bonjour Greg,
Tu dois afficher ton formulaire dans une fenêtre non modale.
Au lieu de cette commande : UserForm1.Show Utilise UserForm1.Show 0
"Greg" a écrit dans le message de groupe de discussion :
Bonjour à tous,
Il doit y avoir une erreur dans cette macro. Lorsque je clique en B8, le userform1 apparaît bien. Par contre, quand je clique en C8, rien ne se passe (alors que le userform2 est prêt...). Avez-vous une explication?
Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Address <> "$B$8" Then Exit Sub UserForm1.Show [C8].Select If Target.Address <> "$C$8" Then Exit Sub UserForm2.Show [D8].Select End Sub
Merci à vous
Greg
michdenis
Pour faire suite à ta question originale, utilise ceci :
Il y aurait probablement une façon d'écrire ce code plus efficacement si tu expliquais ce que tu veux faire...
Le fichier que tu as publié ne correspond pas à ton message initial. '------------------------------------ Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Address <> "$B$8" Then Exit Sub Application.EnableEvents = False UserForm1.Show 0 [C8].Select If ActiveCell.Address <> "$C$8" Then Exit Sub UserForm2.Show 0 [D8].Select Application.EnableEvents = True End Sub '------------------------------------
"Greg" a écrit dans le message de groupe de discussion :
Bonjour MichDenis et merci pour ta réponse,
J'ai essayé mais rien ne se passe. Je ne dois pas bien m'y prendre. En fait, j'essaye de faire fonctionner la fonction calendrier de Daniel (http://www.cijoint.fr/cjlink.php?file=cj200903/cijlzpAY7F.xls) dans deux cellules différentes, A1 et A2 par exemple.
Aussi, j'aurais aimé que le calendrier se déclenche au double-clic...
Pouvez-vous me donner un coup de main?
Merci
Greg
"michdenis" a écrit dans le message de news:
Bonjour Greg,
Tu dois afficher ton formulaire dans une fenêtre non modale.
Au lieu de cette commande : UserForm1.Show Utilise UserForm1.Show 0
"Greg" a écrit dans le message de groupe de discussion :
Bonjour à tous,
Il doit y avoir une erreur dans cette macro. Lorsque je clique en B8, le userform1 apparaît bien. Par contre, quand je clique en C8, rien ne se passe (alors que le userform2 est prêt...). Avez-vous une explication?
Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Address <> "$B$8" Then Exit Sub UserForm1.Show [C8].Select If Target.Address <> "$C$8" Then Exit Sub UserForm2.Show [D8].Select End Sub
Merci à vous
Greg
Pour faire suite à ta question originale, utilise ceci :
Il y aurait probablement une façon d'écrire ce code plus efficacement
si tu expliquais ce que tu veux faire...
Le fichier que tu as publié ne correspond pas à ton message initial.
'------------------------------------
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address <> "$B$8" Then Exit Sub
Application.EnableEvents = False
UserForm1.Show 0
[C8].Select
If ActiveCell.Address <> "$C$8" Then Exit Sub
UserForm2.Show 0
[D8].Select
Application.EnableEvents = True
End Sub
'------------------------------------
"Greg" <debutant@free.fr> a écrit dans le message de groupe de discussion :
381B03F2-2B92-41D0-A5FF-9C1C1E33B5DE@microsoft.com...
Bonjour MichDenis et merci pour ta réponse,
J'ai essayé mais rien ne se passe. Je ne dois pas bien m'y prendre. En fait,
j'essaye de faire fonctionner la fonction calendrier de Daniel
(http://www.cijoint.fr/cjlink.php?file=cj200903/cijlzpAY7F.xls) dans deux
cellules différentes, A1 et A2 par exemple.
Aussi, j'aurais aimé que le calendrier se déclenche au double-clic...
Pouvez-vous me donner un coup de main?
Merci
Greg
"michdenis" <michdenis@hotmail.com> a écrit dans le message de
news:3E5B9E5F-F8D0-4368-BE0D-6A9732A24ACF@microsoft.com...
Bonjour Greg,
Tu dois afficher ton formulaire dans une fenêtre non modale.
Au lieu de cette commande :
UserForm1.Show
Utilise
UserForm1.Show 0
"Greg" <debutant@free.fr> a écrit dans le message de groupe de discussion
:
746E2603-722A-4B48-8729-9A51E46554A5@microsoft.com...
Bonjour à tous,
Il doit y avoir une erreur dans cette macro. Lorsque je clique en B8, le
userform1 apparaît bien. Par contre, quand je clique en C8, rien ne se
passe
(alors que le userform2 est prêt...). Avez-vous une explication?
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address <> "$B$8" Then Exit Sub
UserForm1.Show
[C8].Select
If Target.Address <> "$C$8" Then Exit Sub
UserForm2.Show
[D8].Select
End Sub
Pour faire suite à ta question originale, utilise ceci :
Il y aurait probablement une façon d'écrire ce code plus efficacement si tu expliquais ce que tu veux faire...
Le fichier que tu as publié ne correspond pas à ton message initial. '------------------------------------ Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Address <> "$B$8" Then Exit Sub Application.EnableEvents = False UserForm1.Show 0 [C8].Select If ActiveCell.Address <> "$C$8" Then Exit Sub UserForm2.Show 0 [D8].Select Application.EnableEvents = True End Sub '------------------------------------
"Greg" a écrit dans le message de groupe de discussion :
Bonjour MichDenis et merci pour ta réponse,
J'ai essayé mais rien ne se passe. Je ne dois pas bien m'y prendre. En fait, j'essaye de faire fonctionner la fonction calendrier de Daniel (http://www.cijoint.fr/cjlink.php?file=cj200903/cijlzpAY7F.xls) dans deux cellules différentes, A1 et A2 par exemple.
Aussi, j'aurais aimé que le calendrier se déclenche au double-clic...
Pouvez-vous me donner un coup de main?
Merci
Greg
"michdenis" a écrit dans le message de news:
Bonjour Greg,
Tu dois afficher ton formulaire dans une fenêtre non modale.
Au lieu de cette commande : UserForm1.Show Utilise UserForm1.Show 0
"Greg" a écrit dans le message de groupe de discussion :
Bonjour à tous,
Il doit y avoir une erreur dans cette macro. Lorsque je clique en B8, le userform1 apparaît bien. Par contre, quand je clique en C8, rien ne se passe (alors que le userform2 est prêt...). Avez-vous une explication?
Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Address <> "$B$8" Then Exit Sub UserForm1.Show [C8].Select If Target.Address <> "$C$8" Then Exit Sub UserForm2.Show [D8].Select End Sub
Merci à vous
Greg
Greg
Bonsoir et merci pour vos réponses. C'est parfait!
A l'avenir, j'essaierai de mettre la démarche complère MichDenis ;-)
à plus
Greg
"michdenis" a écrit dans le message de news:
Pour faire suite à ta question originale, utilise ceci :
Il y aurait probablement une façon d'écrire ce code plus efficacement si tu expliquais ce que tu veux faire...
Le fichier que tu as publié ne correspond pas à ton message initial. '------------------------------------ Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Address <> "$B$8" Then Exit Sub Application.EnableEvents = False UserForm1.Show 0 [C8].Select If ActiveCell.Address <> "$C$8" Then Exit Sub UserForm2.Show 0 [D8].Select Application.EnableEvents = True End Sub '------------------------------------
"Greg" a écrit dans le message de groupe de discussion :
Bonjour MichDenis et merci pour ta réponse,
J'ai essayé mais rien ne se passe. Je ne dois pas bien m'y prendre. En fait, j'essaye de faire fonctionner la fonction calendrier de Daniel (http://www.cijoint.fr/cjlink.php?file=cj200903/cijlzpAY7F.xls) dans deux cellules différentes, A1 et A2 par exemple.
Aussi, j'aurais aimé que le calendrier se déclenche au double-clic...
Pouvez-vous me donner un coup de main?
Merci
Greg
"michdenis" a écrit dans le message de news:
Bonjour Greg,
Tu dois afficher ton formulaire dans une fenêtre non modale.
Au lieu de cette commande : UserForm1.Show Utilise UserForm1.Show 0
"Greg" a écrit dans le message de groupe de discussion :
Bonjour à tous,
Il doit y avoir une erreur dans cette macro. Lorsque je clique en B8, le userform1 apparaît bien. Par contre, quand je clique en C8, rien ne se passe (alors que le userform2 est prêt...). Avez-vous une explication?
Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Address <> "$B$8" Then Exit Sub UserForm1.Show [C8].Select If Target.Address <> "$C$8" Then Exit Sub UserForm2.Show [D8].Select End Sub
Merci à vous
Greg
Bonsoir et merci pour vos réponses. C'est parfait!
A l'avenir, j'essaierai de mettre la démarche complère MichDenis ;-)
à plus
Greg
"michdenis" <michdenis@hotmail.com> a écrit dans le message de
news:3E1B2F7E-BBF6-42C7-A083-9FF97A2712C3@microsoft.com...
Pour faire suite à ta question originale, utilise ceci :
Il y aurait probablement une façon d'écrire ce code plus efficacement
si tu expliquais ce que tu veux faire...
Le fichier que tu as publié ne correspond pas à ton message initial.
'------------------------------------
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address <> "$B$8" Then Exit Sub
Application.EnableEvents = False
UserForm1.Show 0
[C8].Select
If ActiveCell.Address <> "$C$8" Then Exit Sub
UserForm2.Show 0
[D8].Select
Application.EnableEvents = True
End Sub
'------------------------------------
"Greg" <debutant@free.fr> a écrit dans le message de groupe de discussion
:
381B03F2-2B92-41D0-A5FF-9C1C1E33B5DE@microsoft.com...
Bonjour MichDenis et merci pour ta réponse,
J'ai essayé mais rien ne se passe. Je ne dois pas bien m'y prendre. En
fait,
j'essaye de faire fonctionner la fonction calendrier de Daniel
(http://www.cijoint.fr/cjlink.php?file=cj200903/cijlzpAY7F.xls) dans deux
cellules différentes, A1 et A2 par exemple.
Aussi, j'aurais aimé que le calendrier se déclenche au double-clic...
Pouvez-vous me donner un coup de main?
Merci
Greg
"michdenis" <michdenis@hotmail.com> a écrit dans le message de
news:3E5B9E5F-F8D0-4368-BE0D-6A9732A24ACF@microsoft.com...
Bonjour Greg,
Tu dois afficher ton formulaire dans une fenêtre non modale.
Au lieu de cette commande :
UserForm1.Show
Utilise
UserForm1.Show 0
"Greg" <debutant@free.fr> a écrit dans le message de groupe de discussion
:
746E2603-722A-4B48-8729-9A51E46554A5@microsoft.com...
Bonjour à tous,
Il doit y avoir une erreur dans cette macro. Lorsque je clique en B8, le
userform1 apparaît bien. Par contre, quand je clique en C8, rien ne se
passe
(alors que le userform2 est prêt...). Avez-vous une explication?
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address <> "$B$8" Then Exit Sub
UserForm1.Show
[C8].Select
If Target.Address <> "$C$8" Then Exit Sub
UserForm2.Show
[D8].Select
End Sub
Bonsoir et merci pour vos réponses. C'est parfait!
A l'avenir, j'essaierai de mettre la démarche complère MichDenis ;-)
à plus
Greg
"michdenis" a écrit dans le message de news:
Pour faire suite à ta question originale, utilise ceci :
Il y aurait probablement une façon d'écrire ce code plus efficacement si tu expliquais ce que tu veux faire...
Le fichier que tu as publié ne correspond pas à ton message initial. '------------------------------------ Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Address <> "$B$8" Then Exit Sub Application.EnableEvents = False UserForm1.Show 0 [C8].Select If ActiveCell.Address <> "$C$8" Then Exit Sub UserForm2.Show 0 [D8].Select Application.EnableEvents = True End Sub '------------------------------------
"Greg" a écrit dans le message de groupe de discussion :
Bonjour MichDenis et merci pour ta réponse,
J'ai essayé mais rien ne se passe. Je ne dois pas bien m'y prendre. En fait, j'essaye de faire fonctionner la fonction calendrier de Daniel (http://www.cijoint.fr/cjlink.php?file=cj200903/cijlzpAY7F.xls) dans deux cellules différentes, A1 et A2 par exemple.
Aussi, j'aurais aimé que le calendrier se déclenche au double-clic...
Pouvez-vous me donner un coup de main?
Merci
Greg
"michdenis" a écrit dans le message de news:
Bonjour Greg,
Tu dois afficher ton formulaire dans une fenêtre non modale.
Au lieu de cette commande : UserForm1.Show Utilise UserForm1.Show 0
"Greg" a écrit dans le message de groupe de discussion :
Bonjour à tous,
Il doit y avoir une erreur dans cette macro. Lorsque je clique en B8, le userform1 apparaît bien. Par contre, quand je clique en C8, rien ne se passe (alors que le userform2 est prêt...). Avez-vous une explication?
Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Address <> "$B$8" Then Exit Sub UserForm1.Show [C8].Select If Target.Address <> "$C$8" Then Exit Sub UserForm2.Show [D8].Select End Sub