Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11

tracas bizarre en vba Excel

3 réponses
Avatar
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?

3 réponses

Avatar
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" a écrit dans le message de news:
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?




Avatar
Fredo P.
Pourquoi le drapeau bleu blanc rouge est bleu blanc rouge?

--



Sans les bérouettes
"Mgr Banni" a écrit dans le message de news:

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" a écrit dans le message de news:
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?








Avatar
cmoi
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" a écrit dans le message de news:

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" a écrit dans le message de news:
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?