Discussion :

[nidhal fekih]

Bonjour,

J'ai créé un formulaire qui s'ouvre a partir d'un bouton qui se trouve dans un autre formulaire. Tout a l'air de bien marcher. Le formulaire contient de boites pour entrer des nombres ainsi qu'un bouton pour appliquer ces chiffre a un classeur.

Le probleme est que je remarque un 3 secondes de délais après avoir cliqué sur le bouton. Voici le code que j'ai appliqué au bouton:

Code :

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

1
2
3
4
5
6
Private Sub Appliquer_Click()
    ActiveWorkbook.Sheets("Données").Cells(17, 1) = entreeActAmericaines.Text
    ActiveWorkbook.Sheets("Données").Cells(19, 1) = EntreeActEAEO.Text
    Pourcentages.Hide
    DoEvents
End Sub

[Psychopathe]

Pourquoi faire le DoEvents?

[nidhal fekih]

Voici ce que l'aide en ligne dit :

Arrête momentanément l'exécution afin que le système d'exploitation puisse traiter d'autres événements.

J'ai pensé que ça fermera sur place la fenêtre. Mais ça ne change rien. Il ya toujours un délais avant la fermeture de la fenêtre.

Merci

[Psychopathe]

Qu'es-ce qui prend du temps à s'exécuter? La mise à jour des données dans les cellules, ou... Autre chose?

[nidhal fekih]

En fait, c'est la fermeture du formuaire après avoir cliqué sur le bouton appliquer qui prend beaucoup de temps

Merci

[AlainTech]

Bonjour,

Tu peux changer l'ordre des lignes dans ton code:

Code :

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

1
2
3
4
5
6
Private Sub Appliquer_Click()
    Pourcentages.Hide
    ActiveWorkbook.Sheets("Données").Cells(17, 1) = entreeActAmericaines.Text
    ActiveWorkbook.Sheets("Données").Cells(19, 1) = EntreeActEAEO.Text
    DoEvents
End Sub

Le fgormulaire se fermera instantanément mais le traitement prendra le même temps qu'avant.

[nidhal fekih]

merciiiiii ça marche très bien en fermant a l'instant. Cependant, un autre formulaire est ouvert en arrière de ce formulaire : à la fermeture du formulaire le formulaire des pourcentages laisse pour quelques instant sa place blanche dans le deuxième formulaire. Ce n'est pas très grave mais si on peut le résoudre ce sera excellent!!!

Merci d'avance

[AlainTech]

Bonjour,

Un

Code :

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

DoEvents

après

Code :

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

Pourcentade.Hide

peut-être...

[nidhal fekih]

Voici le code que j'ai appliqué :

Code :

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

1
2
3
4
5
6
7
Private Sub Appliquer_Click()
    Pourcentages.Hide
    DoEvents
    ActiveWorkbook.Sheets("Données").Cells(17, 1) = entreeActAmericaines.Text
    ActiveWorkbook.Sheets("Données").Cells(19, 1) = EntreeActEAEO.Text
 
End Sub

et ça marche a merveilllllllllllllllllle!!!!!!

Merci beaucoup