Une boucle au nombre d'une variable...

Question

Allo à tous!!!

Bon voila: je veux faire une boucle dont le nombre de fois de la boucle serait une variable. Le code devrait ressembler à :

    Rem **on déclare la variable I**
    Dim I As Integer
    
    Rem **On éxécute 15 fois la même volée d'instruction grâce à la boucle**
    
    For I = 1 To 15 'la boucle sera éffectuée 15 fois
    Rem **Instructions**
    
            Instruction de notre choix
    
    Next I 'On passe à la valeur de I suivante.

selon le tuto boucle simple dans la section des tuto.
Mais voila: si je veux remplacer le 15 par une variable, comment eske je fais?

    For I = 1 To LoopRequired 'loop required étant ma variable
NE MARCHE PAS !!! SVP de laide!!!

chaibat05 · Answer

Bonsoir,


LoopRequired

est-elle déclarée ?
de quel type est-elle ? numérique ?
initialisée ? supérieure à 0 ?

mortalino · Answer

Salut, il faut que ta variable possède une valeur, et numérique. Exemple : Private Sub Form_Load() Dim i As Integer Dim j As Integer j = 15 For i = 1 To j Debug.Print i * i Next i Unload Me End Sub ~ [code.aspx?ID=39466 Mortalino] ~ @++

--Mortalino-- Le mystérieux chevalier, "Provençal, le Gaulois"

chaibat05 · Answer

58, Mortalino, 58
tu commences à être long

mortalino · Answer

lol, j'ai fourni un exemple, ça compense 
PS : lazlolb, fait Ctrl + G pour voir le résutat.

@++ 

<hr size="2" width="100%" />
  --Mortalino--
Le mystérieux chevalier, "Provençal, le Gaulois"
<!--

chaibat05 · Answer

oui effectivement,
mais dis_moi t' as pas utilisé coloration synthaxique 
moi je l' ai déjà fait sur un topic, tu l' as vu ?

mortalino · Answer

Oui, j-ai vu. Par contre,il me semble que c-est les commentaires, tu devrais changer la couleur, c-est trop clair, et du coup on a du mal à lire.
Sinon, comment tu trouves ?

@++ 

<hr size="2" width="100%" />
  --Mortalino--
Le mystérieux chevalier, "Provençal, le Gaulois"
<!--

lazlolb · Answer

Wowla!
Scuzez moi pour le délai!

Bon: la variable RequiredLoop est:
    TotalLength = Text1.SelLength
    LoopRequired = TotalLength / 6

Voila! Moi j'ai fait ma couleur manuelle! (c'est un peu long  )

chaibat05 · Answer

justement je voulais t' en parlais...
En fait je n' ai fait qu' un copier/coller
c' est ça qu' il fallait faire ? ou poster directement ?
j' ai pas osé le faire...
Pour les commentaires c' est vrai que c' est pas lisible
mais pour les fonctions je ne sais pas pourquoi le combo
passe toujours au code...
Mais en gros c'est bien, grace à lui en passera à la couleur 
(référence à la télé)

lazlolb · Answer

Allo je suis la aussi?

chaibat05 · Answer

ton TotalLength est du texte cher ami ( Text1.SelLength)
    LoopRequired = cint(Text1.SelLength/ 6)
condition Len(Text1.SelLength)>= 6

chaibat05 · Answer

désolé, décalage 
j' habite loin moi !

mortalino · Answer

Allo ? J'ai oublié mon téléphone.. Dim LoopRequired As Integer ' déclaration, t'en as pas parler ... ?! TotalLength = Text1.SelLength LoopRequired = TotalLength \ 6 ' inversion du signe / pour avoir un entier ' pis faut que tout ça soit dans la même procédure que ton For...To...Next ~ [code.aspx?ID=39466 Mortalino] ~ Ps Chaibat : je copie mon text dans la fenêtre de mon prog, je fais convertir, je fait Copier dans press papier, je ferme tout et je colle ici (je passe pas par le 2nd WebBrowser, mais tu peux) ;) @++

--Mortalino-- Le mystérieux chevalier, "Provençal, le Gaulois"

chaibat05 · Answer

désolé j' ai confondu 
Text1.SelLength avec text1.text
je commence à fatiguer,
je crois que je vais me couché
bonne nuit à tous

ps: Mortalino, on continuera plus tard

mortalino · Answer

Chaibat : SelLenght renvoi un Long. Du coup je me suis planté aussi : Dim LoopRequired As ~~Integer~~Long @++

--Mortalino-- Le mystérieux chevalier, "Provençal, le Gaulois"

chaibat05 · Answer

je sens que je vais rester un peu...
c' est exactement ce que j' ai fais Mortalino 
Mais je croyais qu' on pouvait poster directement ?

mortalino · Answer

Oui et non, la page d'origine du second WebBrowser c'est la page FullListe, t'es obligé d'aller sur le bon message et de le coller toi même.

Perso on a mis cette option pour ceux que ça interesse, mais je ne l'utilise pas.

@++ 

<hr size="2" width="100%" />
  --Mortalino--
Le mystérieux chevalier, "Provençal, le Gaulois"
<!--

lazlolb · Answer

Whoa je comprends pas trop... ben dans le fond ptetre que mon prog est toute fouré... je le retravaillerai, moi aussi je fatigue alors CIAO LES AMIGOS!

ah oui, si vous voulez toute la source:
Private Sub cmdCut_Click()
         Clipboard.SetText (txtBin.Caption)
         txtBin.Caption = ""
End Sub

Private Sub Check1_Click()
If Check1.Value = vbChecked Then
    lblQuestion.Visible = True
    txtAnswer.Visible = True
End If

If Check1.Value = vbUnchecked Then
    lblQuestion.Visible = False
    txtAnswer.Visible = False
End If
End Sub

Private Sub Label1_Click()
txtLire.Caption = ""
End Sub

Private Sub txtAnswer_Change()
Pause (1)
Password txtAnswer, txtConvert, txtTrad, lblAccess
End Sub

Private Sub txtBin_Change()
Clipboard.Clear
Clipboard.SetText (txtBin.Caption)
End Sub

Private Sub lblTrad_Click()
txtBin.Caption = ""
End Sub

Private Sub txtConvert_Change()
Convert txtConvert, txtBin
End Sub

Private Sub txtTrad_Change()
Dim LoopReguired As Long
    txtTempSel.Text = -1
    txtTrad.SetFocus
    txtTrad.SelStart = 0
    txtTrad.SelLength = Len(txtTrad)
    TotalLength = txtTrad.SelLength
    Looprequired = TotalLength / 6
    txtBin.Caption = Looprequired
        
    Rem **on déclare la variable I**
    Dim I As Integer
    
    Rem **On éxécute 15 fois la même volée d'instruction grâce à la boucle**
    
    For I = 1 To Looprequired 'la boucle sera éffectuée 15 fois
    Rem **Instructions**
    
            Lire txtTrad, txtTemp, txtLire, txtTempSel
    
    Next I 'On passe à la valeur de I suivante.

End Sub

Les signatures ne servent à rien - elle ne vous décriront jamais... Sauf si vous faites des fautes d'ortografffffe, là elles démontreront que vous êtes un con...

chaibat05 · Answer

désolé lazlolb,
j' espère que tu nous  en voudras pas
on parlais juste d' une source qui se charge de colorier les msg comme tu l' as fait
je comprend que tu sois confu vu que dans ton code il y' a du Clipboard dans l' air
rassures toi on s' interesse bien à ton code

mortalino · Answer

Les signatures ne servent à rien

Fait comme tu veux AMIGOS, tu les utilisent si tu veux, mais pas la peine de dire que ça ne sert à rien. Moi je m'en sers et en suit content.

Sauf si vous faites des fautes d'ortografffffe, là elles démontreront que vous êtes un con..
Heureusement que je n'en fais pas. Toi, par contre...
Tu devrais faire un tour du côté de cette source :
http://www.vbfrance.com/codes/JEU-GRAMMAIRE-POUR-NULS-TA-GRAMMAIRE_40615.aspx

@++ 

<hr size="2" width="100%" />
  --Mortalino--
Le mystérieux chevalier, "Provençal, le Gaulois"
<!--

chaibat05 · Answer

houlà houlà; ça commence à dérapper
c' est pas gentil lazlolb de traiter de con les gens qui ne veulent qu' aider
fais un tour dans le forum pour t' en apercevoir
Restons en là et bonne nuit à tous

econs · Answer

Salut,

Et si tu affichais LoopRequired avant de le passer dans la boucle ?

MsgBox LoopRequired
For i=1 To LoopRequired
' [...]
Next i



Tu pourrais déjà avoir une petite idée de la raison du problème.
Déjà 20 messages et on n'a pas encore résolu une question pareille ... En baisse de forme le forum 

Manu

--------------------------------------------------------------------------------------------
Avant de poster un message, n'oubliez pas de consulter le reglement.

cs_casy · Answer

Problème de nommage des variables LoopReguired et Looprequired
ATTENTION aux erreurs de frappes

Problème de type de variable aussi pour I. LoopRequired est un long (enfin une fois bien déclaré  ), I doit aussi etre un Long

Private Sub txtTrad_Change()
Dim LoopReguired As Long
    txtTempSel.Text =  -1
    txtTrad.SetFocus
    txtTrad.SelStart = 0
    txtTrad.SelLength = Len(txtTrad)
    TotalLength = txtTrad.SelLength
     Looprequired   = TotalLength / 6
    txtBin.Caption =  Looprequired
        
    Rem **on déclare la variable I**
    Dim I As  Long 
    
    Rem **On éxécute 15 fois la même volée d'instruction grâce à la boucle**
    
    For I  = 1 To Looprequired 'la boucle sera éffectuée 15 fois
    Rem **Instructions**
    
            Lire txtTrad, txtTemp, txtLire, txtTempSel
    
    Next I 'On passe à la valeur de I suivante.

End Sub

---- Sevyc64  (alias Casy) ----<hr size="2" width="100%" /># LE PARTAGE EST NOTRE FORCE #

chaibat05 · Answer

casy,
t' es sûr que ton TotalLength=90 ?
car sans ça, ça m' étonnerais que sa boucle
fasse 15 tours...

et si Len(txtTrad) était égale à 5 ou 71 ou 183 ?

con comme il est ça m' étonnerais pas de lui...
car il faiudrait vraiment être con pour nous traiter 
de pareille sorte...

à bon entendeur , salut

Une boucle au nombre d'une variable...

23 réponses

Votre réponse

Discussions similaires