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

Leskwal · 21 Février 2011

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

Un grand Merci d'avance pour vos solutions

Pascal

Pierrot93 · 21 Février 2011

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 · 21 Février 2011

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 · 21 Février 2011

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

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

Leskwal

XLDnaute Occasionnel

Pierrot93

XLDnaute Barbatruc

kjin

XLDnaute Barbatruc

Leskwal

XLDnaute Occasionnel

Discussions similaires

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

Leskwal

XLDnaute Occasionnel

Pierrot93

XLDnaute Barbatruc

kjin

XLDnaute Barbatruc

Leskwal

XLDnaute Occasionnel

Discussions similaires

Privacy & Transparency

Privacy & Transparency