vérifier la présence un bouton vba

[julian]

Bonjour le forum,

Je cherche à vérifier la présence d'un bouton vba sur feuille (bouton ajouté avec la barre VBA Excel) dans mon code.

En fait si le bouton est présent alors mon code1
else mon code2

en bref je cherche ce que je dois mettre à la place de 'si bouton est présent'

Je vous remercie d'avance pour vos idées.

 

[Charly2]

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

 

[myDearFriend!]

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

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

Cordialement,

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

 

[Charly2]

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

 

[julian]

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