Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel For Each or not For Each

For Each or not For Each

1 réponse
Avatar
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
Signaler un problème avec ce contenu

1 réponse

Supprimer
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
Avatar
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