For Each or not For Each

Le
M41
Bonjour

UserForm : question de principe :
Pourquopi RAZ1 ne fonctionne pas
mais que RAZ2 fonctionne ?

M41


'
Private L(1 To 10) As Variant
Private Sub Initialisations
L(8) = Array(CheckBox1, CheckBox2, CheckBox3)
end sub
/
'
Private Sub RAZ1()
'ce programme bloque sur For Each
Dim X As CheckBox
For Each X In L(8)
X.Value = false
Next X
End Sub
'
Private Sub RAZ2()
'ce programme fonctionne
Dim i As Integer
For i = 0 To UBound(L(8), 1)
L(8)(i).Value = false
Next i
End Sub
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
Daniel.C
Le #4853631
Bonsoir.
A priori, tu ne peux pas avoir un array d'objets checkboxes. Essaie en
mettant Dim X tout court.
Cordialement.
Daniel
"M41" 46ff7d39$0$27397$
Bonjour

UserForm : question de principe :
Pourquopi RAZ1 ne fonctionne pas
mais que RAZ2 fonctionne ?

M41


'======================= > Private L(1 To 10) As Variant
Private Sub Initialisations
L(8) = Array(CheckBox1, CheckBox2, CheckBox3)
end sub
.../...
'
Private Sub RAZ1()
'ce programme bloque sur For Each
Dim X As CheckBox
For Each X In L(8)
X.Value = false
Next X
End Sub
'
Private Sub RAZ2()
'ce programme fonctionne
Dim i As Integer
For i = 0 To UBound(L(8), 1)
L(8)(i).Value = false
Next i
End Sub



Publicité
Poster une réponse
Anonyme