Discussion :

[stepel]

Bonjour,

je suis novice en VBA et rencontre le problème suivant :

Dans un userform, j'ai créé un frame dans lequel j'ai placé 8 checkbox l'un en dessous de l'autre. Mon objectif est de créer une chaine de caractères avec l'intitulé des checkbox sélectionnés.
Exemple : imaginons que mes checkbox s'appellent A1, A2, A3... si je coche A2, A3 et A6, j'aimerais que ma chaine se nomme"_A2_A3_A6".

Mon problème est que la chaine qui se crée ne respecte pas l'ordre vertical du cochage. Dans mon exemple précédent, je vais avoir par exemple "_A2_A6_A3"

Voici mon code.

Code :

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

1
2
3
4
ch_comp = ""
For Each bouton_compet In Frame_competences.Controls
      If bouton_compet.Value Then ch_comp = "_" + bouton_compet.Caption + ch_comp
Next

Je ne vois de quoi peut venir ce non respect de l'ordre vertical des cases cochées. Je précise que j'ai bien nommé mes checkbox : checkbox1, checkbox2,...

Merci pour votre aide.

[Invité]

comme veux tu respecter l'ordre si tu place l’ancienne valeur à la fin?

Code :

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

ch_comp = "_" + bouton_compet.Caption + ch_comp

Code :

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

1
2
3
4
5
6
7
8
9
10
11
ch_comp = ""
For i = 1 To 3
If Me.Controls("CheckBox" & i).Value = True Then
    If ch_comp = "" Then
         ch_comp = Me.Controls("CheckBox" & i).Caption
    Else
         ch_comp = ch_comp & "_" & Me.Controls("CheckBox" & i).Caption
    End If
End If
Next
Debug.Print ch_comp

[stepel]

Merci beaucoup, ça marche. mais je signale que mon souci ne se situait pas au niveau de l'ordre inverse, mais sur le fait que l'ordre dans la chaine était différent de celui de mes checkbox.