Discussion :

[esse2016]

Bonjour,

J'ai un userform, comme ceci


je balayage chaque checkbox
je mets les valeurs des labels "associés" aux Checkbox qui sont sur la même ligne du userform dans tableau essai(cpt)

mon problème est que mon tableau ne balaye pas dans l'ordre d'affichage de mes labels, lorsque j'effectue ma boucle

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
For Each ctrl In UserForm5.Controls
If TypeName(ctrl) = "CheckBox" Then
    If ctrl.Value = True Then
    numero = Mid(ctrl.Name, 9, Len(ctrl.Name) - 8)
    essai(cpt) = Replace(Me.Controls("Label" & numero).Caption, "-", "") & " => " & Me.Controls("ToggleButton" & numero).Caption
    End if
End if
Next ctrl

du coup pour le checkbox1 j'aurai bien mon label1 dans mon essai(Cpt=0) = "R:roue => OK")
au second passage et par exemple
j'aurai le checkbox3 j'aurai mon label3 dans mon essai(Cpt=1) = "M:vitesse =>OK") alors que je voudrais que essai(cpt=1) = "R:gps"

comment faire à part retrier mon tableau mais la c'est compliqué ?