tracas bizarre en vba Excel

Le
cmoi
Bonjour,

J'espère que vous avez tous passé de joyeuses Pâques.

Si j'écris Set cbar1 = CommandBars(ma_barre) ça marche partout sauf dans
ThisWorksheet où il faut préciser: Set cbar1 =
Application.CommandBars(ma_barre)

Pourquoi?
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
Mgr Banni
Le #5330891
bonjour cmoi
notre québécois préféré, michdenis, t'a déjà répondu à ce sujet ; ne lis-tu
pas ses réponses?
il te disait ceci

début de copie :
Et oui en lisant rapidement, j'ai passé par dessus un détail important ...

Tu inscris ton code dans le ThisWorkbook de ton classeur.... et à cet
endroit tu dois obligatoirement faire référence à l'objet application
dans l'hiérarchisation de la ligne de commande comme ceci :

Set cbar1 = Application.CommandBars(btntxt0)
Si tu préfères, tu peux aussi utiliser cette syntaxe :
Set c = ThisWorkbook.Application.CommandBars(1)

Dans tous les autres modules (les modules "feuille", les modules "Standard"
et
les modules "de classe") sauf celui du ThisWorkbook.
la syntaxe de la commande suivante est acceptable

Set cbar1 = CommandBars(btntxt0)

fin de copie

Mgr T.B.
"cmoi" 47e6e650$0$843$
Bonjour,

J'espère que vous avez tous passé de joyeuses Pâques.

Si j'écris Set cbar1 = CommandBars(ma_barre) ça marche partout sauf dans
ThisWorksheet où il faut préciser: Set cbar1 =
Application.CommandBars(ma_barre)

Pourquoi?




Fredo P.
Le #5330821
Pourquoi le drapeau bleu blanc rouge est bleu blanc rouge?

--



Sans les bérouettes
"Mgr Banni"
bonjour cmoi
notre québécois préféré, michdenis, t'a déjà répondu à ce sujet ; ne
lis-tu pas ses réponses?
il te disait ceci

début de copie :
Et oui en lisant rapidement, j'ai passé par dessus un détail important ...

Tu inscris ton code dans le ThisWorkbook de ton classeur.... et à cet
endroit tu dois obligatoirement faire référence à l'objet application
dans l'hiérarchisation de la ligne de commande comme ceci :

Set cbar1 = Application.CommandBars(btntxt0)
Si tu préfères, tu peux aussi utiliser cette syntaxe :
Set c = ThisWorkbook.Application.CommandBars(1)

Dans tous les autres modules (les modules "feuille", les modules
"Standard" et
les modules "de classe") sauf celui du ThisWorkbook.
la syntaxe de la commande suivante est acceptable

Set cbar1 = CommandBars(btntxt0)

fin de copie

Mgr T.B.
"cmoi" 47e6e650$0$843$
Bonjour,

J'espère que vous avez tous passé de joyeuses Pâques.

Si j'écris Set cbar1 = CommandBars(ma_barre) ça marche partout sauf dans
ThisWorksheet où il faut préciser: Set cbar1 =
Application.CommandBars(ma_barre)

Pourquoi?








cmoi
Le #5330751
Si je lis ses réponses, la preuve: il a aussi écrit ceci:
Je te suggère de relancer un autre fil avec la question suivante :
Pourquoi une telle chinoiserie ?
et c'est pour ça que j'ai relancer une nouvelle discussion !

"Mgr Banni"
bonjour cmoi
notre québécois préféré, michdenis, t'a déjà répondu à ce sujet ; ne
lis-tu pas ses réponses?
il te disait ceci

début de copie :
Et oui en lisant rapidement, j'ai passé par dessus un détail important ...

Tu inscris ton code dans le ThisWorkbook de ton classeur.... et à cet
endroit tu dois obligatoirement faire référence à l'objet application
dans l'hiérarchisation de la ligne de commande comme ceci :

Set cbar1 = Application.CommandBars(btntxt0)
Si tu préfères, tu peux aussi utiliser cette syntaxe :
Set c = ThisWorkbook.Application.CommandBars(1)

Dans tous les autres modules (les modules "feuille", les modules
"Standard" et
les modules "de classe") sauf celui du ThisWorkbook.
la syntaxe de la commande suivante est acceptable

Set cbar1 = CommandBars(btntxt0)

fin de copie

Mgr T.B.
"cmoi" 47e6e650$0$843$
Bonjour,

J'espère que vous avez tous passé de joyeuses Pâques.

Si j'écris Set cbar1 = CommandBars(ma_barre) ça marche partout sauf dans
ThisWorksheet où il faut préciser: Set cbar1 =
Application.CommandBars(ma_barre)

Pourquoi?








Publicité
Poster une réponse
Anonyme