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
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Daniel.C
Bonsoir. A priori, tu ne peux pas avoir un array d'objets checkboxes. Essaie en mettant Dim X tout court. Cordialement. Daniel "M41" a écrit dans le message de news: 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
Bonsoir.
A priori, tu ne peux pas avoir un array d'objets checkboxes. Essaie en
mettant Dim X tout court.
Cordialement.
Daniel
"M41" <boomerang.pro00@wanadoo.fr> a écrit dans le message de news:
46ff7d39$0$27397$ba4acef3@news.orange.fr...
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
Bonsoir. A priori, tu ne peux pas avoir un array d'objets checkboxes. Essaie en mettant Dim X tout court. Cordialement. Daniel "M41" a écrit dans le message de news: 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