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
 

Discussions similaires


Haut Bas