[VBA] aider moi pour un userform
aider moi pour un userform [VBA] - VB/VBA/VBS - Programmation
Marsh Posté le 22-01-2003 à 17:58:44
salut,
au lieu de créer un userform, tu peux peut etre utiliser la message box, avec cette commande :
msg = MsgBox("/", vbOKOnly)
à la place de ta ligne
Sheets("divx" ).Range("a1" ) = "/"
dans ta boucle.
Marsh Posté le 22-01-2003 à 18:56:52
ouais mais non car la fo sans arret cliker sur ok pour k'il mette le reste.
Marsh Posté le 22-01-2003 à 21:34:57
euh...le reste ? koi c'est ce ki reste ?
Parce que je vois pas bien ou tu veux en venir. Tu veux une fenetre qui t'affiche qque chose, mais tu veux qu'elle disparaisse toute seule ?!?
Dis en un peu plus sur le "reste", a savoir keske tu as a afficher au total, et comment tu veux que ta fenetre réagisse, parceke la...spa tres klair tout ca 
Marsh Posté le 22-01-2003 à 21:44:10
ben si il veut simplement afficher une animation pour faire patienter... style les caractères suivants se succèdent l'un après l'autre -> |/-\
faut que t'aille en mode VBA créer une petite form avec un label au milieu... tu lui donnes le nom que tu veux.
Ensuite, tu dois créer cette form pour l'afficher à l'écran, style:
|
Ensuite tu manipules ton label en assignant à l'expression:
|
Quand tu as fini:
|
---------------
Whichever format the fan may want to listen is fine with us – vinyl, wax cylinders, shellac, 8-track, iPod, cloud storage, cranial implants – just as long as it’s loud and rockin' (Billy Gibbons, ZZ Top)
Marsh Posté le 23-01-2003 à 17:48:37
drasche => merci c presque ca, il me met juste le dernier "-" et par les autres.
mais bon on va bien finir par y arriver !
Marsh Posté le 26-01-2003 à 20:00:45
une question
je met bien
userform.label.caption
et kand je veut metre un nouveu message apres (affichage auto)
g voulu remettre la meme commande mais avec une valer differents a caption, et la il affiche ke le 2em et pas le premier !
bonje c pas si kk1 a compris, mais bon ...
Marsh Posté le 30-01-2003 à 09:38:32
c'est peut-être simplement un problème de refresh écran. Lance un TaForm.Refresh après avoir changé le Caption de ton label.
---------------
Whichever format the fan may want to listen is fine with us – vinyl, wax cylinders, shellac, 8-track, iPod, cloud storage, cranial implants – just as long as it’s loud and rockin' (Billy Gibbons, ZZ Top)
Marsh Posté le 30-01-2003 à 13:34:30
le coup de refresh etait bien tenter mais il me sort une erreur ' erreur de compilation : membre de methode ou de données introuvable '
Sujets relatifs:
- VBA procedure publique et param form
- [VBA] Barre de progression ?
- [VBA] : ouvrir EXCEL par Access, sans changer de fenêtre active
- [VBA] Tri de colonne dans une listbox
- Quelqu'un pourrait m'aider svp c'est urgent....
- VBA Access Facile mais pas pour moi
- petite erreur, pouvez m'aider ?
- acces 2000, VBA et temps d'éxécution
- [VBA Access] vous connaitriez pas un site bien pour apprendre
- [nioub] qqn peut m'aider a installer php nuke
Marsh Posté le 20-01-2003 à 19:58:31
voila g cree ceci
Sub char()
Dim i As Integer
Dim j As Integer
For j = 0 To 10 Step 1
i = 0
For i = 0 To 20 Step 1
Sheets("divx" ).Range("a1" ) = "\"
Next
For i = 20 To 40 Step 1
Sheets("divx" ).Range("a1" ) = "|"
Next
For i = 40 To 60 Step 1
Sheets("divx" ).Range("a1" ) = "/"
Next
For i = 60 To 80 Step 1
Sheets("divx" ).Range("a1" ) = "-"
Next
Next
Sheets("divx" ).Range("a1" ) = ""
End Sub
je c ke ca le fait ds la cellule A1 de ma feuille. mais j'aimerais ke cela s'affiche ds une fenetre a part ki apparait.
kk1 peut m'aider pour faire une userform ? car g essayer mais j'y arrive pas du tout !