Probleme Redaction: Boucle avec "i" qui ne se suivent pas

[sim]

Cher Forum,

Une etite question,

Je voudrais activer des checkbox dont les numero ne se suivent pas, par une autre checkbox.

J'ai deja un code qui fait ca mais pour des check box qui se suivent....

Le voici:

Private Sub CheckBox190_Click()
Dim i As Byte
If CheckBox190.Value = True Then
    For i = 107 To 149
        Me.Controls("CheckBox" & i).Value = True
    Next i
End If
If CheckBox190.Value = False Then
    For i = 107 To 149
        Me.Controls("CheckBox" & i).Value = False
    Next i
End If
End Sub

Au lieu de mettre

For i = 107 To 149

je voudrait savoir s'il est possible de faire quelque chose du genre

For i = 107, 110, 130, 132

Si c'est pas possible comment puis je proceder??

Merci d'avance pour le coup de main 😉


Sim

 

[pierrejean]

Re : Probleme Redaction: Boucle avec "i" qui ne se suivent pas

Bonjour sim

A tester

Private Sub CheckBox190_Click()
tablo = Array(107, 110, 130, 132)
Dim i As Byte
If CheckBox190.Value = True Then
    For i = LBound(tablo) To UBound(tablo)
        Me.Controls("CheckBox" & tablo(i)).Value = True
    Next i
End If
If CheckBox190.Value = False Then
    For i = LBound(tablo) To UBound(tablo)
        Me.Controls("CheckBox" & tablo(i)).Value = False
    Next i
End If
End Sub

 

[Pierrot93]

Re : Probleme Redaction: Boucle avec "i" qui ne se suivent pas

Bonjour,

essaye ceci :

Dim t() As Variant, i As Byte
t = Array(107, 110, 130, 132)
For i = 0 To UBound(t)
    Me.Controls("CheckBox" & t(i)).Value = False
Next i

bon après midi
@+

Edition : bonjour PierreJean🙂

 

[néné06]

Re : Probleme Redaction: Boucle avec "i" qui ne se suivent pas

Bonjour Sim
Peut étre comme ceci ??

For i = 107 To 149
If CheckBox190.Value = True Then
select case i
case 107, 110, 130, 132
Me.Controls("CheckBox" & i).Value = True
endselect
End If
next i

Bonjour Pierrejean, Pierrot 93

@sim les autres méthodes sont beaucoup plus efficaces

A+

 

[sim]

Re : Probleme Redaction: Boucle avec "i" qui ne se suivent pas

J'adore,

2 min d'attente, 2 reponses, 2 solutions qui marchent.....vous etes des chefs messieurs!!!!

Merci bcp!

Sim

Edit: oops j'avais pas vu la troisiee reponse, vous m'en voudrez pas j'ai pas tester la troisieme!!🙄 mais je suis sur qu'elle fonctionne....

Euhhhh vous avez vu mon autre post de la journee? un peu plus complexe donc encore plus besoin de votre aide!! 😱