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

[Leskwal]

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...

If sheets("Feuille1").Bouton_à_trouver.exists = true then
Code
Else
Code
End If

Voilà ce que j'aimerais obtenir avec un code valide.

Un grand Merci d'avance pour vos solutions

Pascal

 

[Pierrot93]

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

Bonjour,

regarde ceci, à adapter..

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]

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

Bonjour,
Peut-être comme ceci

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]

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