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 !

bah aller aider moi koi !

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.

ouais mais non car la fo sans arret cliker sur ok pour k'il mette le reste.

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  

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:

drasche => merci c presque ca, il me met juste le dernier "-" et par les autres.
mais bon on va bien finir par y arriver !

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 ...

get up aaaaaa

c'est peut-être simplement un problème de refresh écran.  Lance un TaForm.Refresh après avoir changé le Caption de ton label.

le coup de refresh etait bien tenter mais il me sort une erreur ' erreur de compilation : membre de methode ou de données introuvable '