Splash et RefEdit en VBA pour Excel

Résolu
Signaler
Messages postés
5
Date d'inscription
mardi 26 avril 2005
Statut
Membre
Dernière intervention
6 juin 2006
-
Messages postés
5
Date d'inscription
mardi 26 avril 2005
Statut
Membre
Dernière intervention
6 juin 2006
-
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.

Amphi

________________________
Amphitryon3000

2 réponses

Messages postés
5
Date d'inscription
mardi 26 avril 2005
Statut
Membre
Dernière intervention
6 juin 2006

Merci beaucoup pour cette réponse rapide.



Ce code fonctionne bien.



Mon User Form s'appelle effectivement Splash.


;-)
________________________
Amphitryon3000
3
Messages postés
936
Date d'inscription
lundi 19 janvier 2004
Statut
Membre
Dernière intervention
17 mars 2017
4
Lut,
Attends y'a un prob dans ton code d'un coté c'est UserForm_Activate et de l'autre c'est Splash elle se nomme comment ta UserForm ?

Private Sub Masque_Splash()
UserForm1.Hide
Unload Me
End Sub

sinon tu vires tout et tu mets ceci:

Private Sub UserForm_Activate()
'Tempo de 10"
Application.Wait Now + TimeValue("00:00:10")
UserForm1.Hide
Unload Me
End Sub

Private Sub Workbook_Open()
UserForm1.Show
End Sub

Cordialement, Jean-Paul
______________________________________________________________________

Le Savoir n'a de valeur que s'il est partagé
0