Discussion :

[stof]

Bonjour,

Je veux faire quelque chose du genre :

Code :

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

1
2
3
    While (myCB.Controls("My button").Enabled = True)
        myCB.Controls("My button").Delete
    Wend

mais on y passe à chaque fois, que le test soit effectivement vérifié où qu'on tombe dans le cas où l'objet n'existe plus.

Dans tous les autres langages, on aurait pu tester la nullité de l'objet myCB.Controls("My button") mais là je suis complètement désemparé...

Parce que

Code :

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

IsNull(myCB.Controls("My button"))

ne fonctionne pas sur le retour suivant :
<Argument ou appel de procédure incorrect>

Merci.

[Krovax]

Je ne suis pas sure de tout a fait comprendre ta question mais il me semble que dans ce genre de cas (tu veux que quelque chose soit fermé sans savoir si c'est ouvert ou non) j'utilise

Code :

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

1
2
3
On error resume next
myCB.Controls("My button").Delete
on error goto 0

[stof]

Non, rien à faire, j'ai beau encadrer tout ça :

Code :

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

1
2
3
4
5
    On Error Resume Next
        While (myCB.Controls("My Button").Enabled = True)
            myCB.Controls("My Button").Delete
        Wend
    On Error GoTo 0

Ca passe indéfiniment dans la boucle même quand j'ai plus de bouton (à savoir quand myCB.Controls("My Button") = <Argument ou appel de procédure incorrect>

PS : si tu demandes pourquoi la boucle, c'est qu'en cas de problème, on a déjà vu le bug où le bouton inséré au démarrage reste une fois de plus.

[stof]

Mouais bon, par contre je ne sais pas pourquoi ça marchait pas mais ça, c'est bon :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
    Dim buttonToDelete As CommandBarButton
    Dim continue As Boolean
    continue = True
 
    On Error GoTo NoMoreButtonToDelete
    While (continue = True)
        Set buttonToDelete = myCB.Controls("My button")
        If Not buttonToDelete Is Nothing Then
            buttonToDelete.Delete
        End If
    Wend
 
NoMoreButtonToDelete:
        continue = False