Discussion :

[abj8077]

Bonjour à tous
j'utilise l'éditeur vba intégré dans Excel.
et je cherche à afficher la boite de composant mais je ne la trouve pas j'ai essayé avec clic droit sur la boite à outil mais je trouve ce que je veux
si qu'un à la solution merci

[Chipss]

Qu'appeles tu par "la boite des composants? :/

[abj8077]

c'est la boite pour creer un timer par exemple

[Chipss]

Ah la boite à outils?

Si c'est ca elle apparait quand tu créer un nouvel userform! Si tu l'as fermé entre temps tu peut la rouvrir en cliquant sur l'icone avec un marteau et une clé dans la barre!

Et ensuite en faisant clicque droit tu auras accés aux contrôles supplémentaires!

Chipss

[abj8077]

merci pour ta réponse j'ai déjà fait ça mais le clic droit dans la boite à outil
ne donne pas beaucoup de chose et surtout la case à coché : microsoftWindows...
les ...
je ne sais pas c'est quoi pour le rajout d'un composant timer

[babaothe]

je ne sais pas c'est quoi pour le rajout d'un composant timer

salut

l- es composants proposés doivent exister et être enregistrés, pour y apparaître.
- le composant Timer n'existe pas nativement sous VBA/Excel
- tu n'y en trouveras donc un que si tu en crées un ou que tu enregistres un tel composant (ocx) développé par quelqu'un

[abj8077]

merci babaoth
donc le plus simple c'est de développer un timer

[babaothe]

merci babaoth
donc le plus simple c'est de développer un timer

oui !
Mais VBA ne te permettant pas de développer un ocx, il va te falloir, pour ce faire, utiliser une application qui le permet
Ceci étant dit : tu peux peut-être t'intéresser à Application.Ontime (ton aide VBA + exemples sur ce forum).

[kiki29]

Salut, Il serait judicieux de modifier le titre du post pour une recherche future
Code adapté d'un exemple de S Bullen
Dans un module baptisé mTimer par exemple

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
 
Option Explicit
 
Public Declare Function SetTimer Lib "user32" (ByVal hWnd As Long, ByVal nIDEvent As Long, ByVal uElapse As Long, ByVal lpTimerFunc As Long) As Long
Public Declare Function KillTimer Lib "user32" (ByVal hWnd As Long, ByVal nIDEvent As Long) As Long
 
Public TimerID As Long
Public hWnd As Long
Public i As Long
 
Public Sub StartTimer()
    SetTimer hWnd, TimerID, 2000, AddressOf TTimer
End Sub
 
Public Sub TTimer(ByVal hWnd As Long, ByVal nIDEvent As Long, _
                    ByVal uElapse As Long, ByVal lpTimerFunc As Long)
 
    '	Actions à opérer
 
    UserForm1.TextBox1.Visible = False
End Sub

Créer un UserForm et y ajouter le code suivant

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
 
Option Explicit
 
Private Declare Function FindWindowA Lib "user32" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
 
Private Sub UserForm_Initialize()
    hWnd = FindWindowA("ThunderDFrame", Me.Caption)
    mTimer.StartTimer
End Sub
 
Private Sub UserForm_Terminate()
    mTimer.KillTimer hWnd, TimerID
End Sub

Dans un autre Module1

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
 
Option Explicit
 
Sub Bouton1_QuandClic()
    UserForm1.Show
End Sub

[abj8077]

merci kiki pour ton code
je viens juste de me connecter je vais le tester