Bonjour. J'étais content d'avoir terminé une étude, lorsqu'après "amélioration" je m'aperçus que ça ne fonctionnait plus!
L'amélioration consistait à ajouter 3 OptionButton à la feuille MENU qui contenait déjà 13 CheckBox. J'ai mis un petit moment avant de trouver l'instruction qui "merdait" et j'ai fait une petite proc pour mettre cela en évidence. Voici la proc:

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
Sub TEST_PROC()
Dim CB As OLEObject, Cpt%, AI As Boolean
    For Each CB In ActiveSheet.OLEObjects
        Cpt = Cpt + 1
        If TypeOf CB.Object Is MSForms.CheckBox Then
            MsgBox "Compteur=" & Cpt & SL & CB.Name & vbTab & CB.Object.Caption & vbTab & CB.OLEType, , "CheckBox"
        End If
        If TypeOf CB.Object Is MSForms.OptionButton Then
            MsgBox "Compteur=" & Cpt & SL & CB.Name & vbTab & CB.Object.Caption & vbTab & CB.OLEType, , "OptionButton"
        End If
    Next
    MsgBox "fin boucle"
End Sub
RESULTAT: Pour tout ce qui est différent de CheckBox et OptionButton, RAS.
Pour les 13 CheckBox, seul le 1er MsgBox est exécuté, normal.
Et c'est là que je ne comprends plus, car pour les OptionButton, les 2 MsgBox sont exécutés; c'est à dire que les OptionButton sont aussi considérés comme des CheckBox... C'est ce qui faisait planter ma proc initiale!

Merci de m'indiquer s'il y a une autre méthode pour sélectionner uniquement les CheckBox car j'avoue être un peu dépassé.
Si quelqu'un peut me donner une explication tangible...
D'avance merci.