Montrer un chargement

Question

Bonjour,
Voila mon code vba:

Private Sub CommandButtonOK_Click()

Application.ScreenUpdating = False

'Effacer texte + présentation dans la feuille données
Sheets("Données").Select
Cells.ClearContents
Cells.NumberFormat = "General"
Cells.Interior.ColorIndex = xlNone
Cells.Borders.LineStyle = xlNone
Call FusionCells(Range("A1:IV65536"), xlGeneral, xlBottom, False, False)

'Effacer texte + présentation dans la feuille données
Sheets("Etat des décisions").Select
Cells.ClearContents
Cells.NumberFormat = "General"
Cells.Interior.ColorIndex = xlNone
Cells.Borders.LineStyle = xlNone
Call FusionCells(Range("A1:IV65536"), xlGeneral, xlBottom, False, False)

'Effacer texte + présentation dans la feuille données
Sheets("Comptabilisation automatique").Select
Cells.ClearContents
Cells.NumberFormat = "General"
Cells.Interior.ColorIndex = xlNone
Cells.Borders.LineStyle = xlNone
Call FusionCells(Range("A1:IV65536"), xlGeneral, xlBottom, False, False)

'on teste les 2 zones de texte pour savoir si elles sont renseignées
'et si oui on fait le traitementIf Not (TextBoxDate1 "" Or TextBoxDate2 "") Then
Dim db As DAO.Database 'une base de données
Dim rq As DAO.QueryDef 'une requête
Dim rs As DAO.Recordset 'un jeu d'enregistrements (recordset)
Dim c As Field 'un champ
Dim i As Integer 'un compteur

'connexion à la bdd et à la requête
Set db = DBEngine.OpenDatabase("O:\ENGAGE\ENGAGE.mdb")
Set rq = db.QueryDefs("11)état décision en rentrant parametre")

'spécification des valeurs des paramètres
rq.Parameters(0).Value = TextBoxDate1
rq.Parameters(1).Value = TextBoxDate2

'accès aux données de la requête
Set rs = rq.OpenRecordset

'on se positionne à la cellule de départ
Sheets("Données").Select
Range("A7").Select

'Boucle sur tous les enregistrements du jeu
Do While Not rs.EOF
'initialisation du compteur
i = 0
'Boucle sur tous les champs
For Each c In rs.fields
ActiveCell.Offset(0, i).Value = rs.fields(c.Name)
i = i + 1
Next
ActiveCell.Offset(1).Select
rs.MoveNext
Loop

Call titre
Call soustitre
Call AfficherData
Call miseenpage
Call Compta
Call miseenpagecompta

'fermeture de l'userform + réinitialisation
'si laisse code ci dessous la date n'apparaitra pas automatiquement lors de la sauvegarde
'TextBoxDate1 = ""
'TextBoxDate2 = ""
UserForm1.Hide

'les 2 zones de texte ne sont pas renseignées, on affiche un message
Else
MsgBox "Saisie incomplète !", vbExclamation
End If

Sheets("Etat des décisions").Select
Range("A2").Select
Application.ScreenUpdating = False

End Sub

Je souhaiterai que lorsque je clique sur le bouton OK qu'il est quelquechose pour montrer que le programme est lancé, car le chargement dure environ 1minute mais rien n'indique que l'ordinateur travaille, si vous pouviez me proposer un code vba qui puisse répondre à ma demande.
Tous les propositions sont le bien venue.
Merci d'avance

cs_Exploreur · Answer

Salut,

Pourquoi ne pas changer le curseur de ta souris pendant le chargement(sablier) et remettre une fois fini le curseur standard....Enfin je dit cela, mais il y a peut-être mieux.....

A+
Exploreur

 Linux a un noyau, Windows un pépin

cs_akmer · Answer

Quel est le code pour faire cela et ou je devrais mettre ce code.
Merci pour l'attention que vous pourtez à ma demande.

jrivet · Answer

Salut,
tu postes ici  [infomsg.aspx Thèmes] / [infomsgf_VB-NET-VB-2005_40.aspx VB.NET et VB 2005]: et ta premiere ligne est "Voila mon code vba:
"
Pour tes questions FUTURES MERCI de regarder attentivement les sections disponibles

pour changer  le curseur de la souris.
Screen.MousePointer = vbHourglass
'[...] Traitement
Screen.MousePointer = vbDefault, ----
[code.aspx?ID=41455 By Renfield]

@+: Ju£i?n
Pensez: Réponse acceptée

Montrer un chargement

3 réponses

Votre réponse

Discussions similaires