Bonsoir,

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
 
    Dim Ctrl As OLEObjects 'Shape                 'OLEObjects
 
    '--- Identifie les boutons enfoncés
 
    For Each Ctrl In ActiveSheet.Shapes   
        Debug.Print Ctrl.Name                                                 'OK FONCTIONNE
        If UCase(Left(Ctrl.Name, 10)) = "TGBJOURSEM" Then
            Debug.Print "--" & Ctrl.Caption
            Debug.Print "--" & Ctrl.Value
            Debug.Print Ctrl.LinkedCell
           '...
j'ai à chaque fois
Propriété ou méthode non gérée par cet objet
Comment dois-je définir mon "CTRL" ?

Merci

ESVBA