voila j'aimerais que ca m'affiche une succession de 4 caracteres et ke ca les affiches ds une cellule (ou une fenetre)
donc au debut il affiche "\"   puis "|" puis "/" puis "-".
et ke ce soit pas trop rapide k'on est bien l'impression ke ca tourne.

pour faire une barre ki tourne koi
aucun interet

et alors, si g envie de faire ca moa, je fait comment !
 
ke ca ai de l'interet ou pas m'en fou moi !

g essayer et y me met une erreur 424 !, mais tu peut expliker ? avoir l'alogo c bien, le comprendre c mieux !

t'as quand même pas fait un copier/coller du code que j'ai posté ? faut changer le 'label1.caption' par l'endroit où tu veux afficher ton texte (une cellule par ex.).
 
 
 
 
qu'est-ce que tu comprends pas dans l'algo ?

comme ça vite fait:
 
Sub jj()
 
temp = ""                              
For i = 1 To 4
temp = temp & Chr(63 + i) & " " 'a remplacer par les codes ascii
Sheets("feuil1" ).Range("a1" ) = temp
For j = 1 To 10000000       'temporisation
Next
Next
End Sub
 
 
 
il faut que tu connaisse les codes ascii des caracteres que tu veux afficher,tu peux les mettres ds un tableau apres et boucler ds ce tableau

bah label1 et caption ca correspond a koi !

à un label et son caption
 
en gros, tu dois remplacer le label1.caption par l'endroit où tu veux mettre ton texte.

tu lui fourni l'algo l'explication et y geule  

d'ou ta vu ke je guelais toi !
 
à un label et son caption  
 
en gros, tu dois remplacer le label1.caption par l'endroit où tu veux mettre ton texte
 
t'as plus simple comme explikation ? g met koi "a1" ?
je suis pas une tete en vba, je suis plutot une grosse b... , mais ca vous l'aurez compris !

et ma solution,elle te convient pas ?
 
tu as dit que tu voulais faire ça ds une cellule pourtant.

 
g une une erreur d'execution 9 !
 
 
mais sinon kand je disait d'expliker ct pour tout le monde, par ke pour une personne !

 
 
dis donc toi! tu serais pas un peu exigeant  ?
ça ça marche(excel2000):
 
Sub jj()
Dim tableau
tableau = Array("\", "|", "/", "_" )
temp = ""
For i = 0 To 3
temp = temp & tableau(i) & " "  
Sheets("feuil1" ).Range("a1" ) = temp
     For j = 1 To 10000000      
      Next
Next
End Sub
 
 
tu as ton resultat ds la cellule A1 de la feuil1
premiere boucle: ta variable temp contient "\"  puis "\ |"  ....
que tu affiche ds A1.
la deuxieme boucle est une temporisation pour que tu ais le temps de voir  
si tu comprend pas ça alors...

g encor du mal, mais a force je v y arriver !

c bon g reussi voila le code ke g fait mais fo reduire encore les valeur de i car c encor lent !
 
Sub jj()
Dim i As Integer
Dim j As Integer
 
For j = 0 To 10 Step 1
i = 0
For i = 0 To 100 Step 1
Sheets("divx" ).Range("a1" ) = "\"
Next
For i = 100 To 200 Step 1
Sheets("divx" ).Range("a1" ) = "|"
Next
For i = 200 To 300 Step 1
Sheets("divx" ).Range("a1" ) = "/"
Next
For i = 300 To 400 Step 1
Sheets("divx" ).Range("a1" ) = "-"
Next
 
Next
Sheets("divx" ).Range("a1" ) = ""
End Sub

 
qu'est ce que tu pense de ça:
 
 
Sub rotate()
    ActiveSheet.Shapes.AddLine(334.5, 57.75, 354.75, 79.5).Select
    Selection.ShapeRange.Line.EndArrowheadStyle = msoArrowheadTriangle
    Selection.ShapeRange.Line.EndArrowheadLength = msoArrowheadLengthMedium
    Selection.ShapeRange.Line.EndArrowheadWidth = msoArrowheadWidthMedium
    Selection.ShapeRange.Flip msoFlipHorizontal
    Selection.Name = "fleche"
   
       
       
       For i = 1 To 10000
        Selection.ShapeRange.IncrementRotation 1
        DoEvents
       For j = 1 To 100000
       Next
    Next
End Sub

trop bon le topic !!
 
le mec qui veut faire du vba et qui ne sait pas ce qu'est label et caption !  

est kand on commence en vba on est pas obliger de tout savoir non plus, on commence toujours par etre un newb avant de passer pro.
 
maintenant plus dur, j'aimerais ke mon truc se mette ds une fenetre a part, genre une msgbox, mais ou g pas besoin de cliker pour fermer !

kk1 a une idée ???

 
ouais m'enfin label et caption    scuse moi mais c pas de la première difficulté hein

et laors g le droit de pas savoir ce ke c, d'ailleur je c toujours pas !

t'as pas d'aide dans Excel ?  
tu peux pas acceder au site de microsoft ?    
t'as pas de librairie à coté de chez toi où tu pourrais acheter un bouquin de VBA ?

et puis koi encor, tu croit pas ke je v aller claker des sous pour un livre vba ke je lirais pas !

adieu  

pkoi adieu !!!