[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.

1 réponse

  1.
    michel_m Messages postés 18903 Date d'inscription   Statut Contributeur Dernière intervention   3 320
     
    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
    1. michel_m Messages postés 18903 Date d'inscription   Statut Contributeur Dernière intervention   3 320
       
      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
    2. Jadeus08 Messages postés 81 Statut Membre 4
       
      Merci de ta réponse : la première méthode a marché parfaitement :)
      0