vérifier la présence un bouton vba

Bonsoir Julian, le forum,

Si tu n'as créé qu'un seul bouton, tu peux essayer le code suivant :

If ActiveSheet.Shapes.count = 1 Then
TonCode1
Else
TonCode2
End If

Tiens nous au courant 🙂

Amicalement
Charly

Bonsoir julian, Charly (Lionel),

En complément, on peut cibler uniquement les contrôles ActiveX (pour les distinguer des objets dessin par exemple).

Par exemple, pour boucler sur tous les boutons ActiveX de la feuille (et seulement les boutons) :

Sub Boutons()
Dim B As OLEObject
      For Each B In ActiveSheet.OLEObjects
           If TypeOf B.Object Is MSForms.CommandButton Then
                  MsgBox B.Name
           End If
      Next
End Sub

Cliquez pour agrandir...

Le code ci-dessous permet de vérifier la présence d'un contrôle ActiveX nommé 'MonBouton' (propriété Name) dans la feuille et s'assure également qu'il s'agit bien d'un objet CommandButton :

Sub VerifBoutonFeuille()
'Pour vérifier la présence d'un bouton nommé
''MonBouton' (propriété Name) dans la feuille
Dim B As OLEObject
      On Error Resume Next
      Set B = ActiveSheet.OLEObjects('MonBouton')
      On Error GoTo 0
      If Not B Is Nothing Then
            If B.progID = 'Forms.CommandButton.1' Then
                  'code1
                  MsgBox 'Le bouton nommé 'MonBouton' est présent'
                  Exit Sub
            End If
      End If
      'code2
      MsgBox 'Le bouton nommé 'MonBouton' n'existe pas'
End Sub

Cliquez pour agrandir...

Cordialement,

Message édité par: myDearFriend!, à: 20/10/2005 22:16

Bonsoir Julian, Didier,

Je m'incline 😉

J'avais effectivement tablé sur le fait que Julian débutait et qu'il n'avait créé qu'un bouton sur sa feuille... Au temps pour moi (c'est l'expression exacte !), j'aurais dû prévoir toutes les possibilités :S

Didier, tu peux m'appeler Lionel sans problème et sans mettre Charly en premier 🙂

Amitiés

Bonjour Charly2, mydearFriend, le forum,

Je vous remercie tous les deux pour votre aide et notamment pour le code de mydearFriend car je possède plusieurs boutons sur ma feuille (déolé Charly2 😉 )

Je vais pouvoir avancer maintenant, merci à vous

@+ sur Excel Downloads