Mettre le nom d'une checkbox en variable

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

6_bullet

XLDnaute Nouveau
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 :
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
 
Re : Mettre le nom d'une checkbox en variable

Bonjour,

peut être comme ceci, enfin si j'ai bien compris, avec le peu d'éléments que tu donnes...
Code:
If ThisWorkbook.Worksheets("Menu").OLEObjects(CheckBoxEtat).Object.Value = True Then

bon après midi
@+
 
Re : Mettre le nom d'une checkbox en variable

Re,

ceci fonctionne chez moi et ne renvoie pas d'erreur :
Code:
Dim CheckBoxEtat As String
CheckBoxEtat = "CheckBox1"
MsgBox ThisWorkbook.Worksheets("Menu").OLEObjects(CheckBoxEtat).Object.Value

maintenant comme je ne sais pas ce que valent tes variables.....
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
3
Affichages
685
Réponses
6
Affichages
906
Retour