Test de l'existance d'un Objet en Vba Excel 2000

Bonjour,

je voudrais tester si un controle (Option button) dont je connais le nom existe dans ma feuille Excel - Tester si l'objet est différent de null par exemple pour ensuite récupérer sa valeur.

Puis je le faire directement sans boucler sur tous les objets de ma feuille, car avec une boucle, cela alourdi le code et le temps d'exécution (j'ai beaucoup de Options buttons dans ma feuille)

Merci par avance,

Charly

Bonjour

Peux-tu nous montrer le code de la boucle que tu utilises ?

Starec

Bonjour,

Voici :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
 
 
   Dim Nom As String
    Dim Ok As Boolean
    Dim Valeur As String
 
    Nom = "Rd_1"
    For Each Obj In ActiveSheet.OLEObjects
        If TypeOf Obj.Object Is MSForms.OptionButton Then _
           Ok = (Obj.Name = Nom)
    Next Obj
    If Ok Then Valeur = ActiveSheet.OLEObjects(Nom).Object.Value

Il n'y a pas une méthode plus "sioux" ?

Re

Pour moi c'est la seule méthode, tu es obligé de parcourir la collection des objets pour détecter le manquant.

Essaye en modifiant un peut le code
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 Dim Nom As String Dim Ok As Boolean Dim Valeur As String Dim Obj as Object Nom = "Rd_1" Ok = False For Each Obj In ActiveSheet.OLEObjects If TypeOf Obj Is MSForms.OptionButton Then If Obj.Name = Nom then Ok = True Exit for End If End If Next Obj If Ok Then Valeur = ActiveSheet.OLEObjects(Nom).Object.Value
Je n'ai pas testé, mais :

1 - Tu n'affecteras à ta variable OK que si le nom de l'object est trouvé, hors dans ton cas tu l'affectes à chaque fois, donc du calcul en plus.
2 - Avec le Exit For tu quittes ta boucle dés que l'objet est trouvé, donc tu n'as pas à parcourir le reste.

Je n'ai pas testé, je viens de la taper à la main, mais cela devrait être mieux.

Starec

Merci

je vais gagner un peu de temps avec ta méthode.

C'est dommage que cela n'existe pas en VBE : en Delphi on peut faire

if (machin <> Nil) Then ......
et puis il y a aussi les try et except que l'on peut utiliser

je pensais que ça existait dans tous les langages.

Merci encore

Charly

Code:

1
2
3
4
5
6
7
8
9
10
Function formex(nom As String) As Boolean
On Error Resume Next
 
 MsgBox (ActiveSheet.Shapes(nom).Caption)
If Err.Number = 438 Then
formex = True
Else
formex = False
End If
End Function

Merci à tous les 2

La solution de Random fonctionne très bien

Charly

Citation:

Envoyé par Charly910

Merci

je vais gagner un peu de temps avec ta méthode.

C'est dommage que cela n'existe pas en VBE : en Delphi on peut faire

if (machin <> Nil) Then ......
et puis il y a aussi les try et except que l'on peut utiliser

je pensais que ça existait dans tous les langages.

Merci encore

Charly

Bien sur que ca existe !
Code:

1 2 3 4 5 6 7 8 Dim o as OleObject ' le resume next est obligatoire ici ' mais pas dans le cas d'objet EXCEL (range, sheet, etc...) on error resume next Set o= ActiveSheet.OLEObjects("toto").object If o IS NOTHING then ....