Bonjour !!
J'aimerais qu'un Userform s'ouvre automatiquement dès que je passe sur une
feuille précise de mon classeur qui en comporte plusieurs.
J'ai essayé quelquechose comme :
Private Sub ActiveSheets_Select
UserForm1.Show
End Sub
ou
Private Sub Sheets ("Feuille 01")_Select
UserForm1.Show
End Sub
Mais ça ne veut pas... Quelqu'un pourrait-il me dire où je fais erreur ?
Merci d'avance
Laure
Bonjour !!
J'aimerais qu'un Userform s'ouvre automatiquement dès que je passe sur une
feuille précise de mon classeur qui en comporte plusieurs.
J'ai essayé quelquechose comme :
Private Sub ActiveSheets_Select
UserForm1.Show
End Sub
ou
Private Sub Sheets ("Feuille 01")_Select
UserForm1.Show
End Sub
Mais ça ne veut pas... Quelqu'un pourrait-il me dire où je fais erreur ?
Merci d'avance
Laure
Bonjour !!
J'aimerais qu'un Userform s'ouvre automatiquement dès que je passe sur une
feuille précise de mon classeur qui en comporte plusieurs.
J'ai essayé quelquechose comme :
Private Sub ActiveSheets_Select
UserForm1.Show
End Sub
ou
Private Sub Sheets ("Feuille 01")_Select
UserForm1.Show
End Sub
Mais ça ne veut pas... Quelqu'un pourrait-il me dire où je fais erreur ?
Merci d'avance
Laure
Bonjour !!
J'aimerais qu'un Userform s'ouvre automatiquement dès que je passe sur une
feuille précise de mon classeur qui en comporte plusieurs.
J'ai essayé quelquechose comme :
Private Sub ActiveSheets_Select
UserForm1.Show
End Sub
ou
Private Sub Sheets ("Feuille 01")_Select
UserForm1.Show
End Sub
Mais ça ne veut pas... Quelqu'un pourrait-il me dire où je fais erreur ?
Merci d'avance
Laure
Bonjour !!
J'aimerais qu'un Userform s'ouvre automatiquement dès que je passe sur une
feuille précise de mon classeur qui en comporte plusieurs.
J'ai essayé quelquechose comme :
Private Sub ActiveSheets_Select
UserForm1.Show
End Sub
ou
Private Sub Sheets ("Feuille 01")_Select
UserForm1.Show
End Sub
Mais ça ne veut pas... Quelqu'un pourrait-il me dire où je fais erreur ?
Merci d'avance
Laure
Bonjour !!
J'aimerais qu'un Userform s'ouvre automatiquement dès que je passe sur une
feuille précise de mon classeur qui en comporte plusieurs.
J'ai essayé quelquechose comme :
Private Sub ActiveSheets_Select
UserForm1.Show
End Sub
ou
Private Sub Sheets ("Feuille 01")_Select
UserForm1.Show
End Sub
Mais ça ne veut pas... Quelqu'un pourrait-il me dire où je fais erreur ?
Merci d'avance
Laure
*Bonjour Laure*,
Sur le code de la feuille en question utilise la procedure :
Private Sub Worksheet_Activate()
...
End SubBonjour !!
J'aimerais qu'un Userform s'ouvre automatiquement dès que je passe sur
une feuille précise de mon classeur qui en comporte plusieurs.
J'ai essayé quelquechose comme :
Private Sub ActiveSheets_Select
UserForm1.Show
End Sub
ou
Private Sub Sheets ("Feuille 01")_Select
UserForm1.Show
End Sub
Mais ça ne veut pas... Quelqu'un pourrait-il me dire où je fais erreur ?
Merci d'avance
Laure
--
JLuc
Pensez a regarder ces sites très bien fait, ce sont des mines de trucs et
astuces !
http://www.excelabo.net
http://jacxl.free.fr/
http://dj.joss.free.fr/
C:Program FilesMicrosoft OfficeOffice1036VBALIST.XLS
*Bonjour Laure*,
Sur le code de la feuille en question utilise la procedure :
Private Sub Worksheet_Activate()
...
End Sub
Bonjour !!
J'aimerais qu'un Userform s'ouvre automatiquement dès que je passe sur
une feuille précise de mon classeur qui en comporte plusieurs.
J'ai essayé quelquechose comme :
Private Sub ActiveSheets_Select
UserForm1.Show
End Sub
ou
Private Sub Sheets ("Feuille 01")_Select
UserForm1.Show
End Sub
Mais ça ne veut pas... Quelqu'un pourrait-il me dire où je fais erreur ?
Merci d'avance
Laure
--
JLuc
Pensez a regarder ces sites très bien fait, ce sont des mines de trucs et
astuces !
http://www.excelabo.net
http://jacxl.free.fr/
http://dj.joss.free.fr/
C:Program FilesMicrosoft OfficeOffice1036VBALIST.XLS
*Bonjour Laure*,
Sur le code de la feuille en question utilise la procedure :
Private Sub Worksheet_Activate()
...
End SubBonjour !!
J'aimerais qu'un Userform s'ouvre automatiquement dès que je passe sur
une feuille précise de mon classeur qui en comporte plusieurs.
J'ai essayé quelquechose comme :
Private Sub ActiveSheets_Select
UserForm1.Show
End Sub
ou
Private Sub Sheets ("Feuille 01")_Select
UserForm1.Show
End Sub
Mais ça ne veut pas... Quelqu'un pourrait-il me dire où je fais erreur ?
Merci d'avance
Laure
--
JLuc
Pensez a regarder ces sites très bien fait, ce sont des mines de trucs et
astuces !
http://www.excelabo.net
http://jacxl.free.fr/
http://dj.joss.free.fr/
C:Program FilesMicrosoft OfficeOffice1036VBALIST.XLS
Merci JLuc !!!
Et excellent week-end :-)
Laure
"JLuc" a écrit dans le message de news:*Bonjour Laure*,
Sur le code de la feuille en question utilise la procedure :
Private Sub Worksheet_Activate()
...
End SubBonjour !!
J'aimerais qu'un Userform s'ouvre automatiquement dès que je passe sur
une feuille précise de mon classeur qui en comporte plusieurs.
J'ai essayé quelquechose comme :
Private Sub ActiveSheets_Select
UserForm1.Show
End Sub
ou
Private Sub Sheets ("Feuille 01")_Select
UserForm1.Show
End Sub
Mais ça ne veut pas... Quelqu'un pourrait-il me dire où je fais erreur
?
Merci d'avance
Laure
--
JLuc
Pensez a regarder ces sites très bien fait, ce sont des mines de trucs et
astuces !
http://www.excelabo.net
http://jacxl.free.fr/
http://dj.joss.free.fr/
C:Program FilesMicrosoft OfficeOffice1036VBALIST.XLS
Merci JLuc !!!
Et excellent week-end :-)
Laure
"JLuc" <ns.jeanluc.laurent@free.fr.ns> a écrit dans le message de news:
mn.ac127d618dfca94f.40692@free.fr.ns...
*Bonjour Laure*,
Sur le code de la feuille en question utilise la procedure :
Private Sub Worksheet_Activate()
...
End Sub
Bonjour !!
J'aimerais qu'un Userform s'ouvre automatiquement dès que je passe sur
une feuille précise de mon classeur qui en comporte plusieurs.
J'ai essayé quelquechose comme :
Private Sub ActiveSheets_Select
UserForm1.Show
End Sub
ou
Private Sub Sheets ("Feuille 01")_Select
UserForm1.Show
End Sub
Mais ça ne veut pas... Quelqu'un pourrait-il me dire où je fais erreur
?
Merci d'avance
Laure
--
JLuc
Pensez a regarder ces sites très bien fait, ce sont des mines de trucs et
astuces !
http://www.excelabo.net
http://jacxl.free.fr/
http://dj.joss.free.fr/
C:Program FilesMicrosoft OfficeOffice1036VBALIST.XLS
Merci JLuc !!!
Et excellent week-end :-)
Laure
"JLuc" a écrit dans le message de news:*Bonjour Laure*,
Sur le code de la feuille en question utilise la procedure :
Private Sub Worksheet_Activate()
...
End SubBonjour !!
J'aimerais qu'un Userform s'ouvre automatiquement dès que je passe sur
une feuille précise de mon classeur qui en comporte plusieurs.
J'ai essayé quelquechose comme :
Private Sub ActiveSheets_Select
UserForm1.Show
End Sub
ou
Private Sub Sheets ("Feuille 01")_Select
UserForm1.Show
End Sub
Mais ça ne veut pas... Quelqu'un pourrait-il me dire où je fais erreur
?
Merci d'avance
Laure
--
JLuc
Pensez a regarder ces sites très bien fait, ce sont des mines de trucs et
astuces !
http://www.excelabo.net
http://jacxl.free.fr/
http://dj.joss.free.fr/
C:Program FilesMicrosoft OfficeOffice1036VBALIST.XLS
C'est encore moi.... :-)
J'ai donc :
Private Sub Worksheet_Activate()
UserForm1.Show
End Sub
Qui fonctionne bien.
Mon souci c'est que sur cet userform, j'ai un bouton qui permet de lancer
une macro qui va récupérer des données sur d'autres feuilles, pour enfin
devenir sur la feuille de départ (celle à partir de laquelle s'ouvre le
UserForm)
Et donc ça me fait une erreur, parce que quand il arrive sur la feuille,
il veut exécuter la macro ci-dessus, mais comme le UserForm est déjà
ouvert, ça plante.
Et pourtant dans l'autre macro je termine par "Unload UserForm" mais il en
tient pas compte.
Es-ce qu'il est possible de modifier la macro de façon à contourner ce
problème ? Quelque chose du genre :
Private Sub Worksheet_Activate()
'Si UserForm1 pas ouvert :
UserForm1.Show
'Si UserForm1 déjà ouvert :
'Ne pas tenter de l'ouvrir, et le FERMER.
End Sub
Grand merci d'avance !
Laure
"Laure" a écrit dans le message de news:
dqtpni$416$Merci JLuc !!!
Et excellent week-end :-)
Laure
"JLuc" a écrit dans le message de news:*Bonjour Laure*,
Sur le code de la feuille en question utilise la procedure :
Private Sub Worksheet_Activate()
...
End SubBonjour !!
J'aimerais qu'un Userform s'ouvre automatiquement dès que je passe sur
une feuille précise de mon classeur qui en comporte plusieurs.
J'ai essayé quelquechose comme :
Private Sub ActiveSheets_Select
UserForm1.Show
End Sub
ou
Private Sub Sheets ("Feuille 01")_Select
UserForm1.Show
End Sub
Mais ça ne veut pas... Quelqu'un pourrait-il me dire où je fais erreur
?
Merci d'avance
Laure
--
JLuc
Pensez a regarder ces sites très bien fait, ce sont des mines de trucs
et astuces !
http://www.excelabo.net
http://jacxl.free.fr/
http://dj.joss.free.fr/
C:Program FilesMicrosoft OfficeOffice1036VBALIST.XLS
C'est encore moi.... :-)
J'ai donc :
Private Sub Worksheet_Activate()
UserForm1.Show
End Sub
Qui fonctionne bien.
Mon souci c'est que sur cet userform, j'ai un bouton qui permet de lancer
une macro qui va récupérer des données sur d'autres feuilles, pour enfin
devenir sur la feuille de départ (celle à partir de laquelle s'ouvre le
UserForm)
Et donc ça me fait une erreur, parce que quand il arrive sur la feuille,
il veut exécuter la macro ci-dessus, mais comme le UserForm est déjà
ouvert, ça plante.
Et pourtant dans l'autre macro je termine par "Unload UserForm" mais il en
tient pas compte.
Es-ce qu'il est possible de modifier la macro de façon à contourner ce
problème ? Quelque chose du genre :
Private Sub Worksheet_Activate()
'Si UserForm1 pas ouvert :
UserForm1.Show
'Si UserForm1 déjà ouvert :
'Ne pas tenter de l'ouvrir, et le FERMER.
End Sub
Grand merci d'avance !
Laure
"Laure" <laure@nospam.com> a écrit dans le message de news:
dqtpni$416$1@apollon.grec.isp.9tel.net...
Merci JLuc !!!
Et excellent week-end :-)
Laure
"JLuc" <ns.jeanluc.laurent@free.fr.ns> a écrit dans le message de news:
mn.ac127d618dfca94f.40692@free.fr.ns...
*Bonjour Laure*,
Sur le code de la feuille en question utilise la procedure :
Private Sub Worksheet_Activate()
...
End Sub
Bonjour !!
J'aimerais qu'un Userform s'ouvre automatiquement dès que je passe sur
une feuille précise de mon classeur qui en comporte plusieurs.
J'ai essayé quelquechose comme :
Private Sub ActiveSheets_Select
UserForm1.Show
End Sub
ou
Private Sub Sheets ("Feuille 01")_Select
UserForm1.Show
End Sub
Mais ça ne veut pas... Quelqu'un pourrait-il me dire où je fais erreur
?
Merci d'avance
Laure
--
JLuc
Pensez a regarder ces sites très bien fait, ce sont des mines de trucs
et astuces !
http://www.excelabo.net
http://jacxl.free.fr/
http://dj.joss.free.fr/
C:Program FilesMicrosoft OfficeOffice1036VBALIST.XLS
C'est encore moi.... :-)
J'ai donc :
Private Sub Worksheet_Activate()
UserForm1.Show
End Sub
Qui fonctionne bien.
Mon souci c'est que sur cet userform, j'ai un bouton qui permet de lancer
une macro qui va récupérer des données sur d'autres feuilles, pour enfin
devenir sur la feuille de départ (celle à partir de laquelle s'ouvre le
UserForm)
Et donc ça me fait une erreur, parce que quand il arrive sur la feuille,
il veut exécuter la macro ci-dessus, mais comme le UserForm est déjà
ouvert, ça plante.
Et pourtant dans l'autre macro je termine par "Unload UserForm" mais il en
tient pas compte.
Es-ce qu'il est possible de modifier la macro de façon à contourner ce
problème ? Quelque chose du genre :
Private Sub Worksheet_Activate()
'Si UserForm1 pas ouvert :
UserForm1.Show
'Si UserForm1 déjà ouvert :
'Ne pas tenter de l'ouvrir, et le FERMER.
End Sub
Grand merci d'avance !
Laure
"Laure" a écrit dans le message de news:
dqtpni$416$Merci JLuc !!!
Et excellent week-end :-)
Laure
"JLuc" a écrit dans le message de news:*Bonjour Laure*,
Sur le code de la feuille en question utilise la procedure :
Private Sub Worksheet_Activate()
...
End SubBonjour !!
J'aimerais qu'un Userform s'ouvre automatiquement dès que je passe sur
une feuille précise de mon classeur qui en comporte plusieurs.
J'ai essayé quelquechose comme :
Private Sub ActiveSheets_Select
UserForm1.Show
End Sub
ou
Private Sub Sheets ("Feuille 01")_Select
UserForm1.Show
End Sub
Mais ça ne veut pas... Quelqu'un pourrait-il me dire où je fais erreur
?
Merci d'avance
Laure
--
JLuc
Pensez a regarder ces sites très bien fait, ce sont des mines de trucs
et astuces !
http://www.excelabo.net
http://jacxl.free.fr/
http://dj.joss.free.fr/
C:Program FilesMicrosoft OfficeOffice1036VBALIST.XLS
Je continue à chercher....
J'ai :
Private Sub Worksheet_Activate()
If UserForm1 = Show Then
Unload UserForm1
ElseIf UserForm1 = Unload Then
UserForm1.Show
End If
End Sub
Mais ça ne fonctionne pas... J'ai le message "erreur de type" sur
"UserForm1"
----- Original Message -----
From: "Laure"C'est encore moi.... :-)
J'ai donc :
Private Sub Worksheet_Activate()
UserForm1.Show
End Sub
Qui fonctionne bien.
Mon souci c'est que sur cet userform, j'ai un bouton qui permet de lancer
une macro qui va récupérer des données sur d'autres feuilles, pour enfin
devenir sur la feuille de départ (celle à partir de laquelle s'ouvre le
UserForm)
Et donc ça me fait une erreur, parce que quand il arrive sur la feuille,
il veut exécuter la macro ci-dessus, mais comme le UserForm est déjà
ouvert, ça plante.
Et pourtant dans l'autre macro je termine par "Unload UserForm" mais il
en tient pas compte.
Es-ce qu'il est possible de modifier la macro de façon à contourner ce
problème ? Quelque chose du genre :
Private Sub Worksheet_Activate()
'Si UserForm1 pas ouvert :
UserForm1.Show
'Si UserForm1 déjà ouvert :
'Ne pas tenter de l'ouvrir, et le FERMER.
End Sub
Grand merci d'avance !
Laure
"Laure" a écrit dans le message de news:
dqtpni$416$Merci JLuc !!!
Et excellent week-end :-)
Laure
"JLuc" a écrit dans le message de news:*Bonjour Laure*,
Sur le code de la feuille en question utilise la procedure :
Private Sub Worksheet_Activate()
...
End SubBonjour !!
J'aimerais qu'un Userform s'ouvre automatiquement dès que je passe sur
une feuille précise de mon classeur qui en comporte plusieurs.
J'ai essayé quelquechose comme :
Private Sub ActiveSheets_Select
UserForm1.Show
End Sub
ou
Private Sub Sheets ("Feuille 01")_Select
UserForm1.Show
End Sub
Mais ça ne veut pas... Quelqu'un pourrait-il me dire où je fais
erreur ?
Merci d'avance
Laure
--
JLuc
Pensez a regarder ces sites très bien fait, ce sont des mines de trucs
et astuces !
http://www.excelabo.net
http://jacxl.free.fr/
http://dj.joss.free.fr/
C:Program FilesMicrosoft OfficeOffice1036VBALIST.XLS
Je continue à chercher....
J'ai :
Private Sub Worksheet_Activate()
If UserForm1 = Show Then
Unload UserForm1
ElseIf UserForm1 = Unload Then
UserForm1.Show
End If
End Sub
Mais ça ne fonctionne pas... J'ai le message "erreur de type" sur
"UserForm1"
----- Original Message -----
From: "Laure" <laure@nospam.com>
C'est encore moi.... :-)
J'ai donc :
Private Sub Worksheet_Activate()
UserForm1.Show
End Sub
Qui fonctionne bien.
Mon souci c'est que sur cet userform, j'ai un bouton qui permet de lancer
une macro qui va récupérer des données sur d'autres feuilles, pour enfin
devenir sur la feuille de départ (celle à partir de laquelle s'ouvre le
UserForm)
Et donc ça me fait une erreur, parce que quand il arrive sur la feuille,
il veut exécuter la macro ci-dessus, mais comme le UserForm est déjà
ouvert, ça plante.
Et pourtant dans l'autre macro je termine par "Unload UserForm" mais il
en tient pas compte.
Es-ce qu'il est possible de modifier la macro de façon à contourner ce
problème ? Quelque chose du genre :
Private Sub Worksheet_Activate()
'Si UserForm1 pas ouvert :
UserForm1.Show
'Si UserForm1 déjà ouvert :
'Ne pas tenter de l'ouvrir, et le FERMER.
End Sub
Grand merci d'avance !
Laure
"Laure" <laure@nospam.com> a écrit dans le message de news:
dqtpni$416$1@apollon.grec.isp.9tel.net...
Merci JLuc !!!
Et excellent week-end :-)
Laure
"JLuc" <ns.jeanluc.laurent@free.fr.ns> a écrit dans le message de news:
mn.ac127d618dfca94f.40692@free.fr.ns...
*Bonjour Laure*,
Sur le code de la feuille en question utilise la procedure :
Private Sub Worksheet_Activate()
...
End Sub
Bonjour !!
J'aimerais qu'un Userform s'ouvre automatiquement dès que je passe sur
une feuille précise de mon classeur qui en comporte plusieurs.
J'ai essayé quelquechose comme :
Private Sub ActiveSheets_Select
UserForm1.Show
End Sub
ou
Private Sub Sheets ("Feuille 01")_Select
UserForm1.Show
End Sub
Mais ça ne veut pas... Quelqu'un pourrait-il me dire où je fais
erreur ?
Merci d'avance
Laure
--
JLuc
Pensez a regarder ces sites très bien fait, ce sont des mines de trucs
et astuces !
http://www.excelabo.net
http://jacxl.free.fr/
http://dj.joss.free.fr/
C:Program FilesMicrosoft OfficeOffice1036VBALIST.XLS
Je continue à chercher....
J'ai :
Private Sub Worksheet_Activate()
If UserForm1 = Show Then
Unload UserForm1
ElseIf UserForm1 = Unload Then
UserForm1.Show
End If
End Sub
Mais ça ne fonctionne pas... J'ai le message "erreur de type" sur
"UserForm1"
----- Original Message -----
From: "Laure"C'est encore moi.... :-)
J'ai donc :
Private Sub Worksheet_Activate()
UserForm1.Show
End Sub
Qui fonctionne bien.
Mon souci c'est que sur cet userform, j'ai un bouton qui permet de lancer
une macro qui va récupérer des données sur d'autres feuilles, pour enfin
devenir sur la feuille de départ (celle à partir de laquelle s'ouvre le
UserForm)
Et donc ça me fait une erreur, parce que quand il arrive sur la feuille,
il veut exécuter la macro ci-dessus, mais comme le UserForm est déjà
ouvert, ça plante.
Et pourtant dans l'autre macro je termine par "Unload UserForm" mais il
en tient pas compte.
Es-ce qu'il est possible de modifier la macro de façon à contourner ce
problème ? Quelque chose du genre :
Private Sub Worksheet_Activate()
'Si UserForm1 pas ouvert :
UserForm1.Show
'Si UserForm1 déjà ouvert :
'Ne pas tenter de l'ouvrir, et le FERMER.
End Sub
Grand merci d'avance !
Laure
"Laure" a écrit dans le message de news:
dqtpni$416$Merci JLuc !!!
Et excellent week-end :-)
Laure
"JLuc" a écrit dans le message de news:*Bonjour Laure*,
Sur le code de la feuille en question utilise la procedure :
Private Sub Worksheet_Activate()
...
End SubBonjour !!
J'aimerais qu'un Userform s'ouvre automatiquement dès que je passe sur
une feuille précise de mon classeur qui en comporte plusieurs.
J'ai essayé quelquechose comme :
Private Sub ActiveSheets_Select
UserForm1.Show
End Sub
ou
Private Sub Sheets ("Feuille 01")_Select
UserForm1.Show
End Sub
Mais ça ne veut pas... Quelqu'un pourrait-il me dire où je fais
erreur ?
Merci d'avance
Laure
--
JLuc
Pensez a regarder ces sites très bien fait, ce sont des mines de trucs
et astuces !
http://www.excelabo.net
http://jacxl.free.fr/
http://dj.joss.free.fr/
C:Program FilesMicrosoft OfficeOffice1036VBALIST.XLS
Bonsopir Laure,
Si j'ai bien saisie ce que tu veux faire, il est préférable d'utiliser
"Workbook_SheetActivate", de ce fait, la Form est affichée quand tu clique
sur la feuille voulue et fermée en cliquant sur les autres. Si tu ne veux
pas la fermer, tu peux la cacher avec "UserForm1.Hide" au lieu de "Unload
UserForm1".
A mettre donc dans le module du classeur :
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
If Sh.Name = "Feuil1" Then 'adapte le nom
UserForm1.Show 0 'non modale (aprés Excel 97)
Else
Unload UserForm1
End If
End Sub
Hervé.
"Laure" a écrit dans le message de news:
dqu29f$8bn$Je continue à chercher....
J'ai :
Private Sub Worksheet_Activate()
If UserForm1 = Show Then
Unload UserForm1
ElseIf UserForm1 = Unload Then
UserForm1.Show
End If
End Sub
Mais ça ne fonctionne pas... J'ai le message "erreur de type" sur
"UserForm1"
----- Original Message -----
From: "Laure"C'est encore moi.... :-)
J'ai donc :
Private Sub Worksheet_Activate()
UserForm1.Show
End Sub
Qui fonctionne bien.
Mon souci c'est que sur cet userform, j'ai un bouton qui permet de
lancer une macro qui va récupérer des données sur d'autres feuilles,
pour enfin devenir sur la feuille de départ (celle à partir de laquelle
s'ouvre le UserForm)
Et donc ça me fait une erreur, parce que quand il arrive sur la feuille,
il veut exécuter la macro ci-dessus, mais comme le UserForm est déjà
ouvert, ça plante.
Et pourtant dans l'autre macro je termine par "Unload UserForm" mais il
en tient pas compte.
Es-ce qu'il est possible de modifier la macro de façon à contourner ce
problème ? Quelque chose du genre :
Private Sub Worksheet_Activate()
'Si UserForm1 pas ouvert :
UserForm1.Show
'Si UserForm1 déjà ouvert :
'Ne pas tenter de l'ouvrir, et le FERMER.
End Sub
Grand merci d'avance !
Laure
"Laure" a écrit dans le message de news:
dqtpni$416$Merci JLuc !!!
Et excellent week-end :-)
Laure
"JLuc" a écrit dans le message de news:*Bonjour Laure*,
Sur le code de la feuille en question utilise la procedure :
Private Sub Worksheet_Activate()
...
End SubBonjour !!
J'aimerais qu'un Userform s'ouvre automatiquement dès que je passe
sur une feuille précise de mon classeur qui en comporte plusieurs.
J'ai essayé quelquechose comme :
Private Sub ActiveSheets_Select
UserForm1.Show
End Sub
ou
Private Sub Sheets ("Feuille 01")_Select
UserForm1.Show
End Sub
Mais ça ne veut pas... Quelqu'un pourrait-il me dire où je fais
erreur ?
Merci d'avance
Laure
--
JLuc
Pensez a regarder ces sites très bien fait, ce sont des mines de trucs
et astuces !
http://www.excelabo.net
http://jacxl.free.fr/
http://dj.joss.free.fr/
C:Program FilesMicrosoft OfficeOffice1036VBALIST.XLS
Bonsopir Laure,
Si j'ai bien saisie ce que tu veux faire, il est préférable d'utiliser
"Workbook_SheetActivate", de ce fait, la Form est affichée quand tu clique
sur la feuille voulue et fermée en cliquant sur les autres. Si tu ne veux
pas la fermer, tu peux la cacher avec "UserForm1.Hide" au lieu de "Unload
UserForm1".
A mettre donc dans le module du classeur :
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
If Sh.Name = "Feuil1" Then 'adapte le nom
UserForm1.Show 0 'non modale (aprés Excel 97)
Else
Unload UserForm1
End If
End Sub
Hervé.
"Laure" <laure@nospam.com> a écrit dans le message de news:
dqu29f$8bn$1@apollon.grec.isp.9tel.net...
Je continue à chercher....
J'ai :
Private Sub Worksheet_Activate()
If UserForm1 = Show Then
Unload UserForm1
ElseIf UserForm1 = Unload Then
UserForm1.Show
End If
End Sub
Mais ça ne fonctionne pas... J'ai le message "erreur de type" sur
"UserForm1"
----- Original Message -----
From: "Laure" <laure@nospam.com>
C'est encore moi.... :-)
J'ai donc :
Private Sub Worksheet_Activate()
UserForm1.Show
End Sub
Qui fonctionne bien.
Mon souci c'est que sur cet userform, j'ai un bouton qui permet de
lancer une macro qui va récupérer des données sur d'autres feuilles,
pour enfin devenir sur la feuille de départ (celle à partir de laquelle
s'ouvre le UserForm)
Et donc ça me fait une erreur, parce que quand il arrive sur la feuille,
il veut exécuter la macro ci-dessus, mais comme le UserForm est déjà
ouvert, ça plante.
Et pourtant dans l'autre macro je termine par "Unload UserForm" mais il
en tient pas compte.
Es-ce qu'il est possible de modifier la macro de façon à contourner ce
problème ? Quelque chose du genre :
Private Sub Worksheet_Activate()
'Si UserForm1 pas ouvert :
UserForm1.Show
'Si UserForm1 déjà ouvert :
'Ne pas tenter de l'ouvrir, et le FERMER.
End Sub
Grand merci d'avance !
Laure
"Laure" <laure@nospam.com> a écrit dans le message de news:
dqtpni$416$1@apollon.grec.isp.9tel.net...
Merci JLuc !!!
Et excellent week-end :-)
Laure
"JLuc" <ns.jeanluc.laurent@free.fr.ns> a écrit dans le message de news:
mn.ac127d618dfca94f.40692@free.fr.ns...
*Bonjour Laure*,
Sur le code de la feuille en question utilise la procedure :
Private Sub Worksheet_Activate()
...
End Sub
Bonjour !!
J'aimerais qu'un Userform s'ouvre automatiquement dès que je passe
sur une feuille précise de mon classeur qui en comporte plusieurs.
J'ai essayé quelquechose comme :
Private Sub ActiveSheets_Select
UserForm1.Show
End Sub
ou
Private Sub Sheets ("Feuille 01")_Select
UserForm1.Show
End Sub
Mais ça ne veut pas... Quelqu'un pourrait-il me dire où je fais
erreur ?
Merci d'avance
Laure
--
JLuc
Pensez a regarder ces sites très bien fait, ce sont des mines de trucs
et astuces !
http://www.excelabo.net
http://jacxl.free.fr/
http://dj.joss.free.fr/
C:Program FilesMicrosoft OfficeOffice1036VBALIST.XLS
Bonsopir Laure,
Si j'ai bien saisie ce que tu veux faire, il est préférable d'utiliser
"Workbook_SheetActivate", de ce fait, la Form est affichée quand tu clique
sur la feuille voulue et fermée en cliquant sur les autres. Si tu ne veux
pas la fermer, tu peux la cacher avec "UserForm1.Hide" au lieu de "Unload
UserForm1".
A mettre donc dans le module du classeur :
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
If Sh.Name = "Feuil1" Then 'adapte le nom
UserForm1.Show 0 'non modale (aprés Excel 97)
Else
Unload UserForm1
End If
End Sub
Hervé.
"Laure" a écrit dans le message de news:
dqu29f$8bn$Je continue à chercher....
J'ai :
Private Sub Worksheet_Activate()
If UserForm1 = Show Then
Unload UserForm1
ElseIf UserForm1 = Unload Then
UserForm1.Show
End If
End Sub
Mais ça ne fonctionne pas... J'ai le message "erreur de type" sur
"UserForm1"
----- Original Message -----
From: "Laure"C'est encore moi.... :-)
J'ai donc :
Private Sub Worksheet_Activate()
UserForm1.Show
End Sub
Qui fonctionne bien.
Mon souci c'est que sur cet userform, j'ai un bouton qui permet de
lancer une macro qui va récupérer des données sur d'autres feuilles,
pour enfin devenir sur la feuille de départ (celle à partir de laquelle
s'ouvre le UserForm)
Et donc ça me fait une erreur, parce que quand il arrive sur la feuille,
il veut exécuter la macro ci-dessus, mais comme le UserForm est déjà
ouvert, ça plante.
Et pourtant dans l'autre macro je termine par "Unload UserForm" mais il
en tient pas compte.
Es-ce qu'il est possible de modifier la macro de façon à contourner ce
problème ? Quelque chose du genre :
Private Sub Worksheet_Activate()
'Si UserForm1 pas ouvert :
UserForm1.Show
'Si UserForm1 déjà ouvert :
'Ne pas tenter de l'ouvrir, et le FERMER.
End Sub
Grand merci d'avance !
Laure
"Laure" a écrit dans le message de news:
dqtpni$416$Merci JLuc !!!
Et excellent week-end :-)
Laure
"JLuc" a écrit dans le message de news:*Bonjour Laure*,
Sur le code de la feuille en question utilise la procedure :
Private Sub Worksheet_Activate()
...
End SubBonjour !!
J'aimerais qu'un Userform s'ouvre automatiquement dès que je passe
sur une feuille précise de mon classeur qui en comporte plusieurs.
J'ai essayé quelquechose comme :
Private Sub ActiveSheets_Select
UserForm1.Show
End Sub
ou
Private Sub Sheets ("Feuille 01")_Select
UserForm1.Show
End Sub
Mais ça ne veut pas... Quelqu'un pourrait-il me dire où je fais
erreur ?
Merci d'avance
Laure
--
JLuc
Pensez a regarder ces sites très bien fait, ce sont des mines de trucs
et astuces !
http://www.excelabo.net
http://jacxl.free.fr/
http://dj.joss.free.fr/
C:Program FilesMicrosoft OfficeOffice1036VBALIST.XLS
Bonsopir Laure,
Si j'ai bien saisie ce que tu veux faire, il est préférable d'utiliser
"Workbook_SheetActivate", de ce fait, la Form est affichée quand tu clique
sur la feuille voulue et fermée en cliquant sur les autres. Si tu ne veux
pas la fermer, tu peux la cacher avec "UserForm1.Hide" au lieu de "Unload
UserForm1".
A mettre donc dans le module du classeur :
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
If Sh.Name = "Feuil1" Then 'adapte le nom
UserForm1.Show 0 'non modale (aprés Excel 97)
Else
Unload UserForm1
End If
End Sub
Hervé.
"Laure" a écrit dans le message de news:
dqu29f$8bn$Je continue à chercher....
J'ai :
Private Sub Worksheet_Activate()
If UserForm1 = Show Then
Unload UserForm1
ElseIf UserForm1 = Unload Then
UserForm1.Show
End If
End Sub
Mais ça ne fonctionne pas... J'ai le message "erreur de type" sur
"UserForm1"
----- Original Message -----
From: "Laure"C'est encore moi.... :-)
J'ai donc :
Private Sub Worksheet_Activate()
UserForm1.Show
End Sub
Qui fonctionne bien.
Mon souci c'est que sur cet userform, j'ai un bouton qui permet de
lancer une macro qui va récupérer des données sur d'autres feuilles,
pour enfin devenir sur la feuille de départ (celle à partir de laquelle
s'ouvre le UserForm)
Et donc ça me fait une erreur, parce que quand il arrive sur la feuille,
il veut exécuter la macro ci-dessus, mais comme le UserForm est déjà
ouvert, ça plante.
Et pourtant dans l'autre macro je termine par "Unload UserForm" mais il
en tient pas compte.
Es-ce qu'il est possible de modifier la macro de façon à contourner ce
problème ? Quelque chose du genre :
Private Sub Worksheet_Activate()
'Si UserForm1 pas ouvert :
UserForm1.Show
'Si UserForm1 déjà ouvert :
'Ne pas tenter de l'ouvrir, et le FERMER.
End Sub
Grand merci d'avance !
Laure
"Laure" a écrit dans le message de news:
dqtpni$416$Merci JLuc !!!
Et excellent week-end :-)
Laure
"JLuc" a écrit dans le message de news:*Bonjour Laure*,
Sur le code de la feuille en question utilise la procedure :
Private Sub Worksheet_Activate()
...
End SubBonjour !!
J'aimerais qu'un Userform s'ouvre automatiquement dès que je passe
sur une feuille précise de mon classeur qui en comporte plusieurs.
J'ai essayé quelquechose comme :
Private Sub ActiveSheets_Select
UserForm1.Show
End Sub
ou
Private Sub Sheets ("Feuille 01")_Select
UserForm1.Show
End Sub
Mais ça ne veut pas... Quelqu'un pourrait-il me dire où je fais
erreur ?
Merci d'avance
Laure
--
JLuc
Pensez a regarder ces sites très bien fait, ce sont des mines de trucs
et astuces !
http://www.excelabo.net
http://jacxl.free.fr/
http://dj.joss.free.fr/
C:Program FilesMicrosoft OfficeOffice1036VBALIST.XLS
Bonsopir Laure,
Si j'ai bien saisie ce que tu veux faire, il est préférable d'utiliser
"Workbook_SheetActivate", de ce fait, la Form est affichée quand tu clique
sur la feuille voulue et fermée en cliquant sur les autres. Si tu ne veux
pas la fermer, tu peux la cacher avec "UserForm1.Hide" au lieu de "Unload
UserForm1".
A mettre donc dans le module du classeur :
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
If Sh.Name = "Feuil1" Then 'adapte le nom
UserForm1.Show 0 'non modale (aprés Excel 97)
Else
Unload UserForm1
End If
End Sub
Hervé.
"Laure" <laure@nospam.com> a écrit dans le message de news:
dqu29f$8bn$1@apollon.grec.isp.9tel.net...
Je continue à chercher....
J'ai :
Private Sub Worksheet_Activate()
If UserForm1 = Show Then
Unload UserForm1
ElseIf UserForm1 = Unload Then
UserForm1.Show
End If
End Sub
Mais ça ne fonctionne pas... J'ai le message "erreur de type" sur
"UserForm1"
----- Original Message -----
From: "Laure" <laure@nospam.com>
C'est encore moi.... :-)
J'ai donc :
Private Sub Worksheet_Activate()
UserForm1.Show
End Sub
Qui fonctionne bien.
Mon souci c'est que sur cet userform, j'ai un bouton qui permet de
lancer une macro qui va récupérer des données sur d'autres feuilles,
pour enfin devenir sur la feuille de départ (celle à partir de laquelle
s'ouvre le UserForm)
Et donc ça me fait une erreur, parce que quand il arrive sur la feuille,
il veut exécuter la macro ci-dessus, mais comme le UserForm est déjà
ouvert, ça plante.
Et pourtant dans l'autre macro je termine par "Unload UserForm" mais il
en tient pas compte.
Es-ce qu'il est possible de modifier la macro de façon à contourner ce
problème ? Quelque chose du genre :
Private Sub Worksheet_Activate()
'Si UserForm1 pas ouvert :
UserForm1.Show
'Si UserForm1 déjà ouvert :
'Ne pas tenter de l'ouvrir, et le FERMER.
End Sub
Grand merci d'avance !
Laure
"Laure" <laure@nospam.com> a écrit dans le message de news:
dqtpni$416$1@apollon.grec.isp.9tel.net...
Merci JLuc !!!
Et excellent week-end :-)
Laure
"JLuc" <ns.jeanluc.laurent@free.fr.ns> a écrit dans le message de news:
mn.ac127d618dfca94f.40692@free.fr.ns...
*Bonjour Laure*,
Sur le code de la feuille en question utilise la procedure :
Private Sub Worksheet_Activate()
...
End Sub
Bonjour !!
J'aimerais qu'un Userform s'ouvre automatiquement dès que je passe
sur une feuille précise de mon classeur qui en comporte plusieurs.
J'ai essayé quelquechose comme :
Private Sub ActiveSheets_Select
UserForm1.Show
End Sub
ou
Private Sub Sheets ("Feuille 01")_Select
UserForm1.Show
End Sub
Mais ça ne veut pas... Quelqu'un pourrait-il me dire où je fais
erreur ?
Merci d'avance
Laure
--
JLuc
Pensez a regarder ces sites très bien fait, ce sont des mines de trucs
et astuces !
http://www.excelabo.net
http://jacxl.free.fr/
http://dj.joss.free.fr/
C:Program FilesMicrosoft OfficeOffice1036VBALIST.XLS
Bonsopir Laure,
Si j'ai bien saisie ce que tu veux faire, il est préférable d'utiliser
"Workbook_SheetActivate", de ce fait, la Form est affichée quand tu clique
sur la feuille voulue et fermée en cliquant sur les autres. Si tu ne veux
pas la fermer, tu peux la cacher avec "UserForm1.Hide" au lieu de "Unload
UserForm1".
A mettre donc dans le module du classeur :
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
If Sh.Name = "Feuil1" Then 'adapte le nom
UserForm1.Show 0 'non modale (aprés Excel 97)
Else
Unload UserForm1
End If
End Sub
Hervé.
"Laure" a écrit dans le message de news:
dqu29f$8bn$Je continue à chercher....
J'ai :
Private Sub Worksheet_Activate()
If UserForm1 = Show Then
Unload UserForm1
ElseIf UserForm1 = Unload Then
UserForm1.Show
End If
End Sub
Mais ça ne fonctionne pas... J'ai le message "erreur de type" sur
"UserForm1"
----- Original Message -----
From: "Laure"C'est encore moi.... :-)
J'ai donc :
Private Sub Worksheet_Activate()
UserForm1.Show
End Sub
Qui fonctionne bien.
Mon souci c'est que sur cet userform, j'ai un bouton qui permet de
lancer une macro qui va récupérer des données sur d'autres feuilles,
pour enfin devenir sur la feuille de départ (celle à partir de laquelle
s'ouvre le UserForm)
Et donc ça me fait une erreur, parce que quand il arrive sur la feuille,
il veut exécuter la macro ci-dessus, mais comme le UserForm est déjà
ouvert, ça plante.
Et pourtant dans l'autre macro je termine par "Unload UserForm" mais il
en tient pas compte.
Es-ce qu'il est possible de modifier la macro de façon à contourner ce
problème ? Quelque chose du genre :
Private Sub Worksheet_Activate()
'Si UserForm1 pas ouvert :
UserForm1.Show
'Si UserForm1 déjà ouvert :
'Ne pas tenter de l'ouvrir, et le FERMER.
End Sub
Grand merci d'avance !
Laure
"Laure" a écrit dans le message de news:
dqtpni$416$Merci JLuc !!!
Et excellent week-end :-)
Laure
"JLuc" a écrit dans le message de news:*Bonjour Laure*,
Sur le code de la feuille en question utilise la procedure :
Private Sub Worksheet_Activate()
...
End SubBonjour !!
J'aimerais qu'un Userform s'ouvre automatiquement dès que je passe
sur une feuille précise de mon classeur qui en comporte plusieurs.
J'ai essayé quelquechose comme :
Private Sub ActiveSheets_Select
UserForm1.Show
End Sub
ou
Private Sub Sheets ("Feuille 01")_Select
UserForm1.Show
End Sub
Mais ça ne veut pas... Quelqu'un pourrait-il me dire où je fais
erreur ?
Merci d'avance
Laure
--
JLuc
Pensez a regarder ces sites très bien fait, ce sont des mines de trucs
et astuces !
http://www.excelabo.net
http://jacxl.free.fr/
http://dj.joss.free.fr/
C:Program FilesMicrosoft OfficeOffice1036VBALIST.XLS
Je continue à chercher....
J'ai :
Private Sub Worksheet_Activate()
If UserForm1 = Show Then
Unload UserForm1
ElseIf UserForm1 = Unload Then
UserForm1.Show
End If
End Sub
Mais ça ne fonctionne pas... J'ai le message "erreur de type" sur
"UserForm1"
----- Original Message -----
From: "Laure"C'est encore moi.... :-)
J'ai donc :
Private Sub Worksheet_Activate()
UserForm1.Show
End Sub
Qui fonctionne bien.
Mon souci c'est que sur cet userform, j'ai un bouton qui permet de lancer
une macro qui va récupérer des données sur d'autres feuilles, pour enfin
devenir sur la feuille de départ (celle à partir de laquelle s'ouvre le
UserForm)
Et donc ça me fait une erreur, parce que quand il arrive sur la feuille,
il veut exécuter la macro ci-dessus, mais comme le UserForm est déjà
ouvert, ça plante.
Et pourtant dans l'autre macro je termine par "Unload UserForm" mais il en
tient pas compte.
Es-ce qu'il est possible de modifier la macro de façon à contourner ce
problème ? Quelque chose du genre :
Private Sub Worksheet_Activate()
'Si UserForm1 pas ouvert :
UserForm1.Show
'Si UserForm1 déjà ouvert :
'Ne pas tenter de l'ouvrir, et le FERMER.
End Sub
Grand merci d'avance !
Laure
"Laure" a écrit dans le message de news:
dqtpni$416$Merci JLuc !!!
Et excellent week-end :-)
Laure
"JLuc" a écrit dans le message de news:*Bonjour Laure*,
Sur le code de la feuille en question utilise la procedure :
Private Sub Worksheet_Activate()
...
End SubBonjour !!
J'aimerais qu'un Userform s'ouvre automatiquement dès que je passe sur
une feuille précise de mon classeur qui en comporte plusieurs.
J'ai essayé quelquechose comme :
Private Sub ActiveSheets_Select
UserForm1.Show
End Sub
ou
Private Sub Sheets ("Feuille 01")_Select
UserForm1.Show
End Sub
Mais ça ne veut pas... Quelqu'un pourrait-il me dire où je fais erreur
?
Merci d'avance
Laure
--
JLuc
Pensez a regarder ces sites très bien fait, ce sont des mines de trucs
et astuces !
http://www.excelabo.net
http://jacxl.free.fr/
http://dj.joss.free.fr/
C:Program FilesMicrosoft OfficeOffice1036VBALIST.XLS
Je continue à chercher....
J'ai :
Private Sub Worksheet_Activate()
If UserForm1 = Show Then
Unload UserForm1
ElseIf UserForm1 = Unload Then
UserForm1.Show
End If
End Sub
Mais ça ne fonctionne pas... J'ai le message "erreur de type" sur
"UserForm1"
----- Original Message -----
From: "Laure" <laure@nospam.com>
C'est encore moi.... :-)
J'ai donc :
Private Sub Worksheet_Activate()
UserForm1.Show
End Sub
Qui fonctionne bien.
Mon souci c'est que sur cet userform, j'ai un bouton qui permet de lancer
une macro qui va récupérer des données sur d'autres feuilles, pour enfin
devenir sur la feuille de départ (celle à partir de laquelle s'ouvre le
UserForm)
Et donc ça me fait une erreur, parce que quand il arrive sur la feuille,
il veut exécuter la macro ci-dessus, mais comme le UserForm est déjà
ouvert, ça plante.
Et pourtant dans l'autre macro je termine par "Unload UserForm" mais il en
tient pas compte.
Es-ce qu'il est possible de modifier la macro de façon à contourner ce
problème ? Quelque chose du genre :
Private Sub Worksheet_Activate()
'Si UserForm1 pas ouvert :
UserForm1.Show
'Si UserForm1 déjà ouvert :
'Ne pas tenter de l'ouvrir, et le FERMER.
End Sub
Grand merci d'avance !
Laure
"Laure" <laure@nospam.com> a écrit dans le message de news:
dqtpni$416$1@apollon.grec.isp.9tel.net...
Merci JLuc !!!
Et excellent week-end :-)
Laure
"JLuc" <ns.jeanluc.laurent@free.fr.ns> a écrit dans le message de news:
mn.ac127d618dfca94f.40692@free.fr.ns...
*Bonjour Laure*,
Sur le code de la feuille en question utilise la procedure :
Private Sub Worksheet_Activate()
...
End Sub
Bonjour !!
J'aimerais qu'un Userform s'ouvre automatiquement dès que je passe sur
une feuille précise de mon classeur qui en comporte plusieurs.
J'ai essayé quelquechose comme :
Private Sub ActiveSheets_Select
UserForm1.Show
End Sub
ou
Private Sub Sheets ("Feuille 01")_Select
UserForm1.Show
End Sub
Mais ça ne veut pas... Quelqu'un pourrait-il me dire où je fais erreur
?
Merci d'avance
Laure
--
JLuc
Pensez a regarder ces sites très bien fait, ce sont des mines de trucs
et astuces !
http://www.excelabo.net
http://jacxl.free.fr/
http://dj.joss.free.fr/
C:Program FilesMicrosoft OfficeOffice1036VBALIST.XLS
Je continue à chercher....
J'ai :
Private Sub Worksheet_Activate()
If UserForm1 = Show Then
Unload UserForm1
ElseIf UserForm1 = Unload Then
UserForm1.Show
End If
End Sub
Mais ça ne fonctionne pas... J'ai le message "erreur de type" sur
"UserForm1"
----- Original Message -----
From: "Laure"C'est encore moi.... :-)
J'ai donc :
Private Sub Worksheet_Activate()
UserForm1.Show
End Sub
Qui fonctionne bien.
Mon souci c'est que sur cet userform, j'ai un bouton qui permet de lancer
une macro qui va récupérer des données sur d'autres feuilles, pour enfin
devenir sur la feuille de départ (celle à partir de laquelle s'ouvre le
UserForm)
Et donc ça me fait une erreur, parce que quand il arrive sur la feuille,
il veut exécuter la macro ci-dessus, mais comme le UserForm est déjà
ouvert, ça plante.
Et pourtant dans l'autre macro je termine par "Unload UserForm" mais il en
tient pas compte.
Es-ce qu'il est possible de modifier la macro de façon à contourner ce
problème ? Quelque chose du genre :
Private Sub Worksheet_Activate()
'Si UserForm1 pas ouvert :
UserForm1.Show
'Si UserForm1 déjà ouvert :
'Ne pas tenter de l'ouvrir, et le FERMER.
End Sub
Grand merci d'avance !
Laure
"Laure" a écrit dans le message de news:
dqtpni$416$Merci JLuc !!!
Et excellent week-end :-)
Laure
"JLuc" a écrit dans le message de news:*Bonjour Laure*,
Sur le code de la feuille en question utilise la procedure :
Private Sub Worksheet_Activate()
...
End SubBonjour !!
J'aimerais qu'un Userform s'ouvre automatiquement dès que je passe sur
une feuille précise de mon classeur qui en comporte plusieurs.
J'ai essayé quelquechose comme :
Private Sub ActiveSheets_Select
UserForm1.Show
End Sub
ou
Private Sub Sheets ("Feuille 01")_Select
UserForm1.Show
End Sub
Mais ça ne veut pas... Quelqu'un pourrait-il me dire où je fais erreur
?
Merci d'avance
Laure
--
JLuc
Pensez a regarder ces sites très bien fait, ce sont des mines de trucs
et astuces !
http://www.excelabo.net
http://jacxl.free.fr/
http://dj.joss.free.fr/
C:Program FilesMicrosoft OfficeOffice1036VBALIST.XLS
C'est encore moi.... :-)
J'ai donc :
Private Sub Worksheet_Activate()
UserForm1.Show
End Sub
Qui fonctionne bien.
Mon souci c'est que sur cet userform, j'ai un bouton qui permet de lancer une
macro qui va récupérer des données sur d'autres feuilles, pour enfin devenir
sur la feuille de départ (celle à partir de laquelle s'ouvre le UserForm)
Et donc ça me fait une erreur, parce que quand il arrive sur la feuille, il
veut exécuter la macro ci-dessus, mais comme le UserForm est déjà ouvert, ça
plante.
Et pourtant dans l'autre macro je termine par "Unload UserForm" mais il en
tient pas compte.
Es-ce qu'il est possible de modifier la macro de façon à contourner ce
problème ? Quelque chose du genre :
Private Sub Worksheet_Activate()
'Si UserForm1 pas ouvert :
UserForm1.Show
'Si UserForm1 déjà ouvert :
'Ne pas tenter de l'ouvrir, et le FERMER.
End Sub
Grand merci d'avance !
Laure
"Laure" a écrit dans le message de news:
dqtpni$416$Merci JLuc !!!
Et excellent week-end :-)
Laure
"JLuc" a écrit dans le message de news:*Bonjour Laure*,
Sur le code de la feuille en question utilise la procedure :
Private Sub Worksheet_Activate()
...
End SubBonjour !!
J'aimerais qu'un Userform s'ouvre automatiquement dès que je passe sur
une feuille précise de mon classeur qui en comporte plusieurs.
J'ai essayé quelquechose comme :
Private Sub ActiveSheets_Select
UserForm1.Show
End Sub
ou
Private Sub Sheets ("Feuille 01")_Select
UserForm1.Show
End Sub
Mais ça ne veut pas... Quelqu'un pourrait-il me dire où je fais erreur ?
Merci d'avance
Laure
-- JLuc
Pensez a regarder ces sites très bien fait, ce sont des mines de trucs et
astuces !
http://www.excelabo.net" target="_blank" class="text-blue hover:opacity-90 " style="word-break: break-all;" rel="noopener nofollow">http://www.excelabo.net
http://jacxl.free.fr/" target="_blank" class="text-blue hover:opacity-90 " style="word-break: break-all;" rel="noopener nofollow">http://jacxl.free.fr/
http://dj.joss.free.fr/" target="_blank" class="text-blue hover:opacity-90 " style="word-break: break-all;" rel="noopener nofollow">http://dj.joss.free.fr/
C:Program FilesMicrosoft OfficeOffice1036VBALIST.XLS
C'est encore moi.... :-)
J'ai donc :
Private Sub Worksheet_Activate()
UserForm1.Show
End Sub
Qui fonctionne bien.
Mon souci c'est que sur cet userform, j'ai un bouton qui permet de lancer une
macro qui va récupérer des données sur d'autres feuilles, pour enfin devenir
sur la feuille de départ (celle à partir de laquelle s'ouvre le UserForm)
Et donc ça me fait une erreur, parce que quand il arrive sur la feuille, il
veut exécuter la macro ci-dessus, mais comme le UserForm est déjà ouvert, ça
plante.
Et pourtant dans l'autre macro je termine par "Unload UserForm" mais il en
tient pas compte.
Es-ce qu'il est possible de modifier la macro de façon à contourner ce
problème ? Quelque chose du genre :
Private Sub Worksheet_Activate()
'Si UserForm1 pas ouvert :
UserForm1.Show
'Si UserForm1 déjà ouvert :
'Ne pas tenter de l'ouvrir, et le FERMER.
End Sub
Grand merci d'avance !
Laure
"Laure" <laure@nospam.com> a écrit dans le message de news:
dqtpni$416$1@apollon.grec.isp.9tel.net...
Merci JLuc !!!
Et excellent week-end :-)
Laure
"JLuc" <ns.jeanluc.laurent@free.fr.ns> a écrit dans le message de news:
mn.ac127d618dfca94f.40692@free.fr.ns...
*Bonjour Laure*,
Sur le code de la feuille en question utilise la procedure :
Private Sub Worksheet_Activate()
...
End Sub
Bonjour !!
J'aimerais qu'un Userform s'ouvre automatiquement dès que je passe sur
une feuille précise de mon classeur qui en comporte plusieurs.
J'ai essayé quelquechose comme :
Private Sub ActiveSheets_Select
UserForm1.Show
End Sub
ou
Private Sub Sheets ("Feuille 01")_Select
UserForm1.Show
End Sub
Mais ça ne veut pas... Quelqu'un pourrait-il me dire où je fais erreur ?
Merci d'avance
Laure
-- JLuc
Pensez a regarder ces sites très bien fait, ce sont des mines de trucs et
astuces !
http://www.excelabo.net
http://jacxl.free.fr/
http://dj.joss.free.fr/
C:Program FilesMicrosoft OfficeOffice1036VBALIST.XLS
C'est encore moi.... :-)
J'ai donc :
Private Sub Worksheet_Activate()
UserForm1.Show
End Sub
Qui fonctionne bien.
Mon souci c'est que sur cet userform, j'ai un bouton qui permet de lancer une
macro qui va récupérer des données sur d'autres feuilles, pour enfin devenir
sur la feuille de départ (celle à partir de laquelle s'ouvre le UserForm)
Et donc ça me fait une erreur, parce que quand il arrive sur la feuille, il
veut exécuter la macro ci-dessus, mais comme le UserForm est déjà ouvert, ça
plante.
Et pourtant dans l'autre macro je termine par "Unload UserForm" mais il en
tient pas compte.
Es-ce qu'il est possible de modifier la macro de façon à contourner ce
problème ? Quelque chose du genre :
Private Sub Worksheet_Activate()
'Si UserForm1 pas ouvert :
UserForm1.Show
'Si UserForm1 déjà ouvert :
'Ne pas tenter de l'ouvrir, et le FERMER.
End Sub
Grand merci d'avance !
Laure
"Laure" a écrit dans le message de news:
dqtpni$416$Merci JLuc !!!
Et excellent week-end :-)
Laure
"JLuc" a écrit dans le message de news:*Bonjour Laure*,
Sur le code de la feuille en question utilise la procedure :
Private Sub Worksheet_Activate()
...
End SubBonjour !!
J'aimerais qu'un Userform s'ouvre automatiquement dès que je passe sur
une feuille précise de mon classeur qui en comporte plusieurs.
J'ai essayé quelquechose comme :
Private Sub ActiveSheets_Select
UserForm1.Show
End Sub
ou
Private Sub Sheets ("Feuille 01")_Select
UserForm1.Show
End Sub
Mais ça ne veut pas... Quelqu'un pourrait-il me dire où je fais erreur ?
Merci d'avance
Laure
-- JLuc
Pensez a regarder ces sites très bien fait, ce sont des mines de trucs et
astuces !
http://www.excelabo.net" target="_blank" class="text-blue hover:opacity-90 " style="word-break: break-all;" rel="noopener nofollow">http://www.excelabo.net
http://jacxl.free.fr/" target="_blank" class="text-blue hover:opacity-90 " style="word-break: break-all;" rel="noopener nofollow">http://jacxl.free.fr/
http://dj.joss.free.fr/" target="_blank" class="text-blue hover:opacity-90 " style="word-break: break-all;" rel="noopener nofollow">http://dj.joss.free.fr/
C:Program FilesMicrosoft OfficeOffice1036VBALIST.XLS