Excel/macro : boucle complexe ! Résolu/Fermé

Question

Bonjour, 

Je suis en train de faire une macro sous Excel 2007.

Je suis à la recherche d'une solution pour pouvoir faire une boucle un peu tordue, où le compteur est utilisé pour passer d'un contôle à l'autre :

        UserForm1.lbl_enf__1__.Visible = True
        UserForm1.lbl_enf__2__.Visible = True
        UserForm1.lbl_enf__3__.Visible = True
        ...


ou encore 


        UserForm1.txt_enf__1___prenom.Value = Cells(i, col_enf__1___prenom)
        UserForm1.txt_enf__2___prenom.Value = Cells(i, col_enf__2___prenom)
        UserForm1.txt_enf__3___prenom.Value = Cells(i, col_enf__3___prenom)


Auriez-vous avez une idée ?

Configuration: Excel 2007

cousinhub29 · Answer

Bonjour,

Peut-être ainsi :

Dim I As Byte
For I = 1 To 3
    With UserForm1
        .Controls("lbl_enf__" & I & "__").Visible = True
        ' et si la colonne des prénoms est la colonne "C"
        ' ainsi que les prénoms commencent en ligne 2
        .Controls("txt_enf__" & I & "___prenom").Value = Cells(I + 1, 3)
    End With
Next I


Peut-être....

Excel/macro : boucle complexe !

1 réponse

Discussions similaires