Discussion :

[Charly910]

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

[Invité]

Bonjour

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

Starec

[Charly910]

Bonjour,

Voici :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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" ?

[Invité]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[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

[random]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Charly910]

Merci à tous les 2

La solution de Random fonctionne très bien

Charly

[Garuda]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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