Discussion :

[Damien3710]

Bonjour,

Je crée un outil d'aide à la décision. Dans une feuille j'ai plein de CommandButton que j'ai renommé à ma guise.

Je souhaite tester la présence d'un de ces commandbutton (nommé toto par ex)avant de lancer un bout de code.

En français, voici ce que je veux.

"Si toto est présent, alors code1
Else alors code 2"

Voila merci d'avance pour votre aide.
Damien

[Marc-L]

Bonjour.

Manquant de précisions mais au cas où le bouton soit bien un objet Shape, ceci devrait aider :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Function ExistShape(S) As Boolean
         On Error Resume Next
         ExistShape = ActiveSheet.Shapes(S).Type > 0
End Function