Minette en désarroi

Question

J'ai un programme qui fonctionne en VBA, sous Excel. Il se passe pas mal de choses, et j'aimerai pouvoir afficher les étapes par lesquelles passe la macro. Il ne s'agit pas d'une barre de progression mais bien de quelque chose du type :
1 - Ouverture du fichier
2 - Lancement du traitement 
3 - et ainsi de suite...

Si j'utilise une form, elle s'affiche et stoppe la macro tant que je n'ai pas cliqué sur la croix...j'ai essayé de mettre un timer, mais je n'y arrive pas...

Quelqu'un a une idée ?

cs_seblomb · Answer

Salut,

Pour faire apparaître une fenêtre qui affiche "Ouverture du fichier" par exemple,
Tu peux créer une UserForm dans la partie VB de Excel,

Puis dans ton code, tu ajoutes:

UserForm1.Show
UserForm1.Repaint

' ton code....blablabla

Unload UserForm1

Et dans les options de ta userform, choisis la valeur False pour ShowModal.

Bye.

Ah oui, juste un truc, mets un titre un peu plus explicite: ça pourrait aider ceux qui ont le même problème que toi et qui aimeraient le résoudre :approve)

PetitGognol · Answer

PetitGognol

cs_seblomb · Answer

Je sais pas si ça marche avec Excel97, mais verifies si tu as:
 - dans ta fenêtre Excel, clique sur Outils->Macro->Visual Basic Editor

 - une fois que tu as ta fenêtre VB, clique sur Insertion->UserForm

Et ShowModal se trouve dans la liste des propriétés de la UserForm à gauche de l'écran.

Voilà, j'espère que ça t'aura aider, sinon je vois rien d'autres, désolé.

Bon courage.

PetitGognol · Answer

PetitGognol

cs_Charlie · Answer

un simple MSGBOX ne suffirait pas... ou bien prend toi une sheet a part et fait afficher les étapes dedans!

ricomiracle · Answer

Salut

Tu pourrais aussi mettre une ListBox dans dans un userform et ajouter
un item avec un string qui d&#233;crit l'&#233;tape: listbox.add
"....................." &#224; cahqe &#233;tapes?

Xabixu · Answer

Il suffit de mettre des MsgBox!
MsgBox("D&#233;but du programme")
Partie 1 de ton programme
MsgBox("Partie 2 du programme")
Partie 2 du programme
MsgBox("Valeur de la variable var: " & var) 'pour intercepter la valeur d'une variable 
Partie final
MsgBox("C'est fini !")

emilekader · Answer

salut voil&#224; mon code vba et j'ai un pb.

Je voudrai transformer des .xls en .dbf

ce code le fait mais il prend le contenu du premier fichier et l'affecte &#224; tous les fichiers qu'il cr&#233;&#233;...

Dim temp As String

Dim fso, dossier, lstfichiers, f

Const chemin = "C:	esto	emp"

Set fso = CreateObject("Scripting.FileSystemObject") 

Set dossier = fso.GetFolder(chemin) 

Set lstfichiers = dossier.Files 

 



For Each f In lstfichiers 



Range("A1").Select

 Selection.CurrentRegion.Select

 Selection.Columns.AutoFit 

 Columns("C:C").Select

 Selection.NumberFormat = "0.00"

Range("A1").Select

Selection.CurrentRegion.Select

 temp = Left(f.Path, Len(f.Path) - 4) +
".dbf"                         


 ActiveWorkbook.SaveAs Filename:=temp, FileFormat:=xlDBF4, _

 CreateBackup:=False



Next f



 MsgBox "traitement termin&#233;"






emilekaderVotre texte ICIVotre texte ici