Comment détecter quelque chose qui peut ne pas exister ?

Leskwal

XLDnaute Occasionnel
Bonjour le Forum.

Pour être plus clair, je souhaite lors de l'initialisation d'un fichier détecter si un objet existe dans une feuille.
Ça devrait donner quelque chose comme ça...

Code:
If sheets("Feuille1").Bouton_à_trouver.exists = true then
Code
Else
Code
End If
Voilà ce que j'aimerais obtenir avec un code valide. :D

Un grand Merci d'avance pour vos solutions

Pascal
 

Pierrot93

XLDnaute Barbatruc
Re : Comment détecter quelque chose qui peut ne pas exister ?

Bonjour,

regarde ceci, à adapter..

Code:
Dim s As Shape
On Error Resume Next
Set s = Sheets("Feuil1").Shapes("nombouton")
MsgBox IIf(Err.Number <> 0, "bouton n'existe pas...", "bouton existe")
On Error GoTo 0
bonne journée
@+
 

kjin

XLDnaute Barbatruc
Re : Comment détecter quelque chose qui peut ne pas exister ?

Bonjour,
Peut-être comme ceci
Code:
Dim sh As Object
On Error Resume Next
Set sh = Sheets(1).Shapes("nom du bouton")
If sh Is Nothing Then Exit Sub
On Error GoTo 0
'le code
Edit ; salut Pierrot :)
A+
kjin
 

Leskwal

XLDnaute Occasionnel
Re : Comment détecter quelque chose qui peut ne pas exister ?

Bonjour Pierrot, kjin

Merci pour ces réponses rapides.
Je n'ai pas les moyens de tester vos codes, je suis en voiture ( comme passager :)).
Si j'ai bien compris la logique des 2 codes, c'est finalement l'erreur qui détermine la non existence du bouton.
J'essaie ça dès que possible...
Encore Merci
Pascal
 

Créez un compte ou connectez vous pour répondre

Vous devez être membre afin de pouvoir répondre ici

Créer un compte

Créez un compte Excel Downloads. C'est simple!

Connexion

Vous avez déjà un compte? Connectez vous ici.

Haut Bas