boucle sur controls MSFORMS

Version imprimable

1 pièce(s) jointe(s)

Bonjour,

J'ai un userform, comme ceci
Pièce jointe 639789

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:

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

08/06/2023, 15h50
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?)
08/06/2023, 16h40
jurassic pork

Hello,
question bête :mouarf: :
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
08/06/2023, 19h26
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.

Bonjour,

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

Code:

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