boucle for

[sabrina64]

Bonjour à tous...et toutes...

une question simple mais à laquelle je ne sai spas répondre

comment peut on traduire

Pour chaque controle et pouri allant de 1 à 20
......blabla.....
ocntrol+1, I+1

bref ca ne marche pas

 For (Each ctrl In CreerFicheMetier2.Controls) and (i=1to 20)
....
Next ctrl, i

merci

 

[Catrice]

Re : boucle for

Bonjour,

C'est quoi i ?

ce que j'ai compris :

For Each ctrl In CreerFicheMetier2.Controls
For i = 1 to 20
'insérer ici mon code
Next i
Next ctrl

ou bien

longeurnom=10 'Nb de caracteres du control sans l'index exemple :OptionButton => 12
For Each ctrl In CreerFicheMetier2.Controls
If Right(ctrl.name,len(ctrl.name)-longeurnom) > 1 or right(ctrl.name,len(ctrl.name)-longeurnom) < 20 then
'insérer ici mon code
End If
Next ctrl

 

[sabrina64]

Re : boucle for

bonjour....
merci d avori regardé...
c ce que je viens de faire mais ca ne me marche pas...

Private Sub suivant_Click()
For i = 1 To n
   For Each ctrl In CreerFicheMetier2.Controls
        If TypeName(ctrl) = "TextBox" Then

         If ctrl.Tag = i And ctrl.Text = "" Then

             ctrl.Text = ActiveSheet.Cells(i + 6, 1).Value
           
            

            MsgBox "Vous devez obligatoirement remplir" & vbCr & "le champ <" & ctrl.ControlTipText & "> ", vbInformation


         End If

      End If

   Next ctrl

 Next i

End Sub

 

[Catrice]

Re : boucle for

Re,

Qu'est ce qui ne fonctionne pas ?
Ou cela plante t il ?
Avec un petit bout de fichier ce serait plus clair ...

 

[sabrina64]

Re : boucle for

ca ne me remplit pas les textboxs crées prealablement...

ci joint mon classeur

classeurdele creation.xls

 

[Chloulou]

Re : boucle for

Si tu a gardé tes controles avec les noms d'origne, du style TextBox1 , ComboBox1, tu pourra boucler sur les varaible Combobox & "i" par exemple, d'après ce que j'ai pu voir sur certains posts

Sinon j'avais codé (cf code ci dessous) pour réinitialiser à 0 les controles groupe d'option ("Frame1") d'un USF :

Sub RAZ()
For Each Ctrl In Frame1.Controls
    
    If TypeOf Ctrl Is MSForms.TextBox Then
        Ctrl.Object.Value = ""
        
    ElseIf TypeOf Ctrl Is MSForms.ComboBox Then
        Ctrl.Object.Value = ""
    ElseIf TypeOf Ctrl Is MSForms.ListBox Then


        Ctrl.Object.Value = ""
    ElseIf TypeOf Ctrl Is MSForms.CheckBox Then
        Ctrl.Object.Value = False
    ElseIf TypeOf Ctrl Is MSForms.OptionButton Then
        Ctrl.Object.Value = False
    End If
    
Next Ctrl

End Sub

Après, libre à toi de rajouter une boucle imbriquée pour incrémenter ton compteur "i"

Normalement tu peux adapter ca pour tes besoins, ce qu'il manquait dans ton code ce sont les TypeOf et les additifs .MSForms
PS: j'avais galéré pour trouver ca à l'époque

 

[sabrina64]

Re : boucle for

bonjour,
merci de regarder mon probleme...
je comprends pas trop
c est à dire, for combobox&i
et j incrémente le i comment?

merci.

je viens de voir ton code:

le typeof sert à quoi?

 

[Chloulou]

Re : boucle for

le typeof, c'est pour définir le type de controle, un controle peut etre une textBox, Combobox..

Sinon pour incrémenter sur les noms du type " combobo & "i", je me souviens plus trop comment on fait car je n'utilise pas cette méthode, va voir sur les post concernant la RAZ (Remise à zéro) d'un USF

 

[sabrina64]

Re : boucle for

ok, merci

en fait ca me marchait sans aussi...mais j l ai rajouté
je n arrive pas à donner à chaque textbox la valeur d une cellule..

 

[Chloulou]

Re : boucle for

Dans ta boucle,
sinon c'est juste:

TextBox.value = Worksheet("nom de ta feuille").cells(Ligne de ta cellule, colonne de ta cellule). Text (ou . Value)

 

[sabrina64]

Re : boucle for

Private Sub suivant_Click()

For i = 1 To n
   For Each ctrl In CreerFicheMetier2.Controls
       If TypeOf ctrl Is MSForms.TextBox Then

                If ctrl.Text = "" Then
                    ctrl.Object.Text = ActiveSheet.Cells(i + 6, 1).Value
                End If


            MsgBox "Vous devez obligatoirement remplir" & vbCr & "le champ <" & ctrl.ControlTipText & "> ", vbInformation
         End If

 
   Next ctrl
 Next i

End Sub

cette procedure fonctionne mais mal...

en fait chaque textbox prend la meme valeur...celle de la derniere cellule de la boucle soit i=n?

voyez vous pourquoi?

merci

 

[Chloulou]

Re : boucle for

c'est normal, il ne faut pas que tes boucles soient imbriquées en fait, car a chaque nouvelle itération de i tu remplace la valeur de ta textbox, donc normal qu elles finissent toutes à n...

Il faut un seul for, et tu increment manuellement ton i avec une commande avant le next ctrl du type i=i+1 (n'oublie pas d'initialiser le i avant la boucle)

 

[pierrejean]

Re : boucle for

Atester

Private Sub suivant_Click()

  [COLOR=blue] i=1
[/COLOR]   For Each ctrl In CreerFicheMetier2.Controls
       If TypeOf ctrl Is MSForms.TextBox Then

                If ctrl.Text = "" Then
                    ctrl.Object.Text = ActiveSheet.Cells(i + 6, 1).Value
                 [COLOR=blue]if i=n then exit sub[/COLOR]
[COLOR=blue]                 i=i+1
[/COLOR]                End If


            MsgBox "Vous devez obligatoirement remplir" & vbCr & "le champ <" & ctrl.ControlTipText & "> ", vbInformation
         End If

 
   Next ctrl

End Sub
​

 

[sabrina64]

Re : boucle for

PARFAIT,
un grand merci à vous deux.........

 

[sabrina64]

Re : boucle for

bonjour à tous....
précédemment g bien réussit à avoir accès à mes contrôles...mais là je n y arrive pas avec mes checkbox...

Private Sub checkbox_Click()
Dim ctrl As Control, ctrl2 As Control
i = 1
For Each ctrl In CreerFicheMetier2.Controls
       If TypeOf ctrl Is MSForms.CheckBox Then
                If ctrl.Value = True Then
                    If TypeOf ctrl2 Is MSForms.TextBox Then
                        ctrl2.Text = "hh"
                    End If
                End If

      End If

Next ctrl
End Sub

ya t il une erreur?

merci d avance...