[VBA] Test sur checkbox incrémentées

Résolu
Jadeus08 Messages postés 81 Statut Membre -  
Jadeus08 Messages postés 81 Statut Membre -
Bonjour,

J'ai fais une petite macro qui insère une checkbox sur certaines lignes non vide qui se remplissent à partir d'une autre macro (et dont la valeur est variable). Lorsqu'elles sont créer, ces checkbox porte le nom "CB" + le numéro de la ligne où elles sont insérées.

Maintenant, j'aimerai pouvoir tester si la checkbox de la ligne X est cochée, puis le faire avec la ligne X + 1, jusqu'à ce qu'il atteigne la dernière checkbox. Comment puis-je lui indiquer le nom de la checkbox alors que celle-ci contient une variable (qui est la ligne où se trouve la checkbox) ? :x

Je suis sous Excel2000

Merci de vos réponses.

A voir également:

1 réponse

Réponse 1 / 1
michel_m Messages postés 18903 Statut Contributeur 3 317
 
bonjour

si tes cases à cocher son issues de la boite à outils controles 

Sub boucler_cases_à_cocher()
'd'après Michel_XLD
Dim Obj As OLEObject
    
    For Each Obj In ActiveSheet.OLEObjects
        If TypeOf Obj.Object Is MSForms.CheckBox Then _
            MsgBox Obj.Name & ": " & Obj.Object.Value
    Next Obj

End Sub
0
michel_m Messages postés 18903 Statut Contributeur 3 317
 
et si elles sont issues de la barre formulaire 

Sub boucler_cases_à_cocher_form()
'd'après Michel_XLD
    Dim Cb As CheckBox
   
    For Each Cb In Feuil1.CheckBoxes
        If Cb.Value = xlOn Then
           MsgBox Cb.Name & " cochée"
        End If
    Next Cb
End Sub
0
Jadeus08 Messages postés 81 Statut Membre 4
 
Merci de ta réponse : la première méthode a marché parfaitement :)
0