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é ?

[umfred]

si tes contrôles sont nommés par les numéros dans l'ordre, utilise plutôt un for classique qu'un for each, comme ça tu maitrise ton numéro.
Sinon utilise la variable numero (à convertir en entier) -1 au lieu de la variable cpt et tu seras cohérent.
(il manque l'incrémentation de cpt dans le code fourni, non?)

[jurassic pork]

Hello,
question bête :
Pourquoi n'utilises tu pas la partie Caption des cases à cocher plutôt que d'utiliser une case à cocher + 1 libellé.
Ami calmant, J.P

[esse2016]

Bonjour Umfred, et Jurrasic Pork,

Merci pour vos interventions.
1/ Je regarde la méthode De Umfred, je n’y avais pas pensé en utilisant la variable numéro
2/ Le caption je regarderai aussi idem je n’y avais pas pensé

Je vous dis ça demain.

Encore merci.

[esse2016]

Bonjour,

en faisant ceci et en suivant vos remarques ça fonctionne bien
Merci beaucoup pour votre éclairage

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
For j = 1 To 32
 
If Me.Controls("Checkbox" & j).Value = True Then
    'numero = Mid(ctrl.Name, 9, Len(ctrl.Name) - 8)
    essai(cpt) = Replace(Me.Controls("Label" & j).Caption, "-", "") & " => " & Me.Controls("ToggleButton" & j).Caption
    ReDim Preserve CSum(cpt)
 
            If Me.Controls("Checkbox" & j).Value = True And (j <= 2 Or j = 7 Or (j >= 9 And j <= 13)) Then
            CSum(cpt) = Left(Me.Frame1.Controls("ComboBox" & j).Value, 6)
            Else
            CSum(cpt) = ""
            End If
     cpt = cpt + 1
    End If
Next j