Bonjour,
J'ai une feuille avec plusieurs checkbox.
Selon un critère insérer dans une boucle For Next qui détermine le nom de la checkbox concernée, je dois aller récupérer le résultat de cette checkbox.
En mettant le nom en dur de la checkbox, pas de soucis, ca marche, par contre dès que je le mets en variable, j'ai une erreur "Propriété ou méthode non géré par cet objet".
Voici mon code :
J'ai une feuille avec plusieurs checkbox.
Selon un critère insérer dans une boucle For Next qui détermine le nom de la checkbox concernée, je dois aller récupérer le résultat de cette checkbox.
En mettant le nom en dur de la checkbox, pas de soucis, ca marche, par contre dès que je le mets en variable, j'ai une erreur "Propriété ou méthode non géré par cet objet".
Voici mon code :
Code:
Dim OUTPUT As New Collection
Dim Compteur As Integer
Dim n As Integer
Application.DefaultSaveFormat = xlOpenXMLWorkbook
'Determine la liste des Etats et les checkbox associés
'Pour chaque checkbox cochée, l'état correspond sera
'traité dans la suite de la macro.
ThisWorkbook.Worksheets("Param OutPut").Activate
ThisWorkbook.Worksheets("Param OutPut").Cells(1, 1).Select
Selection.End(xlDown).Select
FinLigne = Selection.Row
For n = 2 To FinLigne
ETAT = ThisWorkbook.Worksheets("Param OutPut").Cells(n, 1)
CheckBoxEtat = ThisWorkbook.Worksheets("Param OutPut").Cells(n, 2)
If ThisWorkbook.Worksheets("Menu").CheckBoxEtat.Value = True Then
OUTPUT.Add Item:=ETAT
Else
'ne rien faire
End If
Next