amphitryon3000
Messages postés5Date d'inscriptionmardi 26 avril 2005StatutMembreDernière intervention 6 juin 2006
-
26 avril 2005 à 23:32
amphitryon3000
Messages postés5Date d'inscriptionmardi 26 avril 2005StatutMembreDernière intervention 6 juin 2006
-
27 avril 2005 à 14:02
Bonjour à tous,
je me permets de vous poser quelques petites questions, qui vous paraîtront
peut-être très simplistes, mais que je ne sais pas résoudre seul, pauvre
amateur que je suis.
1) Je cherche à programmer une fenêtre de présentation d'un petit logiciel
addin en VBA pour Excel (je crois que l'on appelle cela un "splash") : pour
cela, j'ai créé un User Form contenant les infos que je souhaite présenter.
Mais je ne parviens pas à temporiser la disparition de ce User Form en
utilisant les lignes de code suivantes :
Private Sub UserForm_Activate()
Application.OnTime Now + TimeValue("00:00:10"), "Masque_Splash" (Masque
Splash est la procédure qui fait disparaître la fenêtre)
End Sub
Private Sub Masque_Splash()
Splash.Hide
Unload Splash
End Sub
Apparemment, la fonction Application.OnTime Now + TimeValue("00:00:10"),
"Masque_Splash" ne permet pas de gérer des User Form (j'ai essayé pour
l'affiche de MsgBox est cela fonctionne). Que je place la procédure
Masque_Splash dans le code du Userform ou dans un module, ça ne fonctionne
pas. Pour l'instant, je dois me donc me contenter de cliquer sur le splash
pour le faire disparaître (cf code ci-dessous), mais cela ne me satisfait
guère.
Private Sub UserForm_Click()
Splash.Hide
Unload Splash
End Sub
2) Dans un autre User Form, j'utilise un contrôle RefEdit (pour
sélectionner des données en vue de tracer un graphique), cependant, par la
suite, je ne parviens pas à récupérer le nombre de lignes et de colonnes de
de données sélectionnées pour les afficher dans deux textbox en dessous. Je
sais obtenir l'adresse des cellules (= RefEdit1.Value), mais c'est tout.
Pourriez-vous me renseigner.
D'avance merci beaucoup.