[VBA] Test sur checkbox incrémentées

Résolu
Jadeus08 -  
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.

1 réponse

  1. michel_m Contributeur
    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
    1. michel_m Contributeur
      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
    2. Jadeus08 Auteur
      Merci de ta réponse : la première méthode a marché parfaitement :)