Je voudrais que mon Userform soit lancé à l'ouverture de mon classeur. Si je
fais la macro qui suit "pas-à-pas", alors tout va bien. Si je la laisse
s'exécuter automatiquement, ça ne fonctionne pas.....
Sauriez pourquoi????
Private Sub Workbook_Open()
With ActiveSheet
Dim Sh As Worksheet
For Each Sh In Worksheets
Sh.Unprotect "cont"
Call GetLoginName
Call test
[b6].Value = "X"
[b22].Value = "CAN"
[b9].Select
Sh.Protect password:="cont", Contents:=True, _
DrawingObjects:=True, UserInterfaceOnly:=True
Next
End With
UserForm1.Show
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
isabelle
bonjour Caroline,
la commande Load est pour le charger le userform, lorsque celui-ci a été décharger soit par la commande Unload soit par la croix de fermeture. la commande Show est pour l'afficher lorsque celui-ci a été mit invisible par la commande Hidden. la commande Load ne rend pas le userform visible, il faut accompagner cette commande par la commande Show.
isabelle
Bonjour Isabelle et Denys,
ma question est pour Isabelle. À quoi sert exactement le Load userform1 ? Je vois cela parfois et je me demande.
merci
Caroline
"isabelle" a écrit dans le message de news:
bonjour Denys,
ajoute y, Load UserForm1 juste avant, UserForm1.Show
isabelle
Bonjour à tous,
Je voudrais que mon Userform soit lancé à l'ouverture de mon classeur.
Si je
fais la macro qui suit "pas-à-pas", alors tout va bien. Si je la laisse s'exécuter automatiquement, ça ne fonctionne pas.....
Sauriez pourquoi????
Private Sub Workbook_Open() With ActiveSheet Dim Sh As Worksheet For Each Sh In Worksheets Sh.Unprotect "cont" Call GetLoginName Call test [b6].Value = "X" [b22].Value = "CAN" [b9].Select Sh.Protect password:="cont", Contents:=True, _ DrawingObjects:=True, UserInterfaceOnly:=True Next End With UserForm1.Show End Sub
Merci pour votre temps
Denys
bonjour Caroline,
la commande Load est pour le charger le userform, lorsque celui-ci a été
décharger soit par la commande Unload soit par la croix de fermeture.
la commande Show est pour l'afficher lorsque celui-ci a été mit
invisible par la commande Hidden.
la commande Load ne rend pas le userform visible, il faut accompagner
cette commande par la commande Show.
isabelle
Bonjour Isabelle et Denys,
ma question est pour Isabelle. À quoi sert exactement le Load userform1 ?
Je vois cela parfois et je me demande.
merci
Caroline
"isabelle" <hoHoho@hohoHo> a écrit dans le message de news:
OYtwh7iYFHA.4024@TK2MSFTNGP10.phx.gbl...
bonjour Denys,
ajoute y,
Load UserForm1
juste avant,
UserForm1.Show
isabelle
Bonjour à tous,
Je voudrais que mon Userform soit lancé à l'ouverture de mon classeur.
Si je
fais la macro qui suit "pas-à-pas", alors tout va bien. Si je la laisse
s'exécuter automatiquement, ça ne fonctionne pas.....
Sauriez pourquoi????
Private Sub Workbook_Open()
With ActiveSheet
Dim Sh As Worksheet
For Each Sh In Worksheets
Sh.Unprotect "cont"
Call GetLoginName
Call test
[b6].Value = "X"
[b22].Value = "CAN"
[b9].Select
Sh.Protect password:="cont", Contents:=True, _
DrawingObjects:=True, UserInterfaceOnly:=True
Next
End With
UserForm1.Show
End Sub
la commande Load est pour le charger le userform, lorsque celui-ci a été décharger soit par la commande Unload soit par la croix de fermeture. la commande Show est pour l'afficher lorsque celui-ci a été mit invisible par la commande Hidden. la commande Load ne rend pas le userform visible, il faut accompagner cette commande par la commande Show.
isabelle
Bonjour Isabelle et Denys,
ma question est pour Isabelle. À quoi sert exactement le Load userform1 ? Je vois cela parfois et je me demande.
merci
Caroline
"isabelle" a écrit dans le message de news:
bonjour Denys,
ajoute y, Load UserForm1 juste avant, UserForm1.Show
isabelle
Bonjour à tous,
Je voudrais que mon Userform soit lancé à l'ouverture de mon classeur.
Si je
fais la macro qui suit "pas-à-pas", alors tout va bien. Si je la laisse s'exécuter automatiquement, ça ne fonctionne pas.....
Sauriez pourquoi????
Private Sub Workbook_Open() With ActiveSheet Dim Sh As Worksheet For Each Sh In Worksheets Sh.Unprotect "cont" Call GetLoginName Call test [b6].Value = "X" [b22].Value = "CAN" [b9].Select Sh.Protect password:="cont", Contents:=True, _ DrawingObjects:=True, UserInterfaceOnly:=True Next End With UserForm1.Show End Sub
