Boucles imbriquées

[kiff77]

Bonjour à tous,

Je souhaite remplir une userform (Label et Checkbox) avec une boucle (dans mon fichier j'ai 70 contrôles).

J'ai donc construit la macro, mais lorsque j'affiche la Userform, il prend uniquement la dernière valeur.

Je vous joins un petit fichier, je pense que cela sera plus parlant.

Merci d'avance pour vos réponses.
Franck

 

[Caillou]

Re : Boucles imbriquées

Bonjour,

Il ne faut pas de boucles imbriqués (puisqu'il y a autant de lignes que de checkbox)
... et à mon avis il faut un Else !

moi, j'aurais mis ça :

'
'cases a cocher
'
Private Sub UserForm_Initialize()
    Dim x As Integer
    Dim i As Integer
       
    x = 4
    
    For i = 1 To 2
        
            Me.Controls("Label" & i).Caption = Sheets("Feuil1").Cells(x, 1).Value
            
            If Sheets("Feuil1").Range("B" & x).Value = "X" Then
                Me.Controls("CheckBox" & i).Value = True
            Else
                Me.Controls("CheckBox" & i).Value = False
            End If
            
            x = x + 1
    Next
End Sub

Caillou

 

[kiff77]

Re : Boucles imbriquées

Bonjour,

Merci pour ta réponse, ça marche nickel!

Bonne journée
Franck