Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel gros pb afichage menu suite insertion VBA

gros pb afichage menu suite insertion VBA

15 réponses
Avatar
zrd
bonjour,

J'ai inserer le code de F Sigonneau : CacherToutesBarresOutils1
trouve ici :
http://perso.wanadoo.fr/frederic.sigonneau/code/BO/CacherToutesBarresOutils1
.txt
sous excel 2000 sur Win98
depuis, qq soit le classeur ouvert, je ne retrouve plus le menu excel

Si Frederic, ou tt autre, pouvait me donner le code ou l'astuce pour
retablir, ..

Merci
@+
Signaler un problème avec ce contenu

10 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
1 2
Avatar
zrd
en fait, je n'ai plus aucune barre d'outils, ou menu.
l'erreur que j'ai fait vient peut etre de la , a l'insertion du code, il y a
vait une erreur sur la premiere ligne :
Attribute VB_Name = "CacherToutesBarresOutils1"
j'ai donc fait ceci :
'Attribute VB_Name = "CacherToutesBarresOutils1"

si ca peut vous aider a m'aider
@+


"zrd" a écrit dans le message news:

bonjour,

J'ai inserer le code de F Sigonneau : CacherToutesBarresOutils1
trouve ici :

http://perso.wanadoo.fr/frederic.sigonneau/code/BO/CacherToutesBarresOutils1

.txt
sous excel 2000 sur Win98
depuis, qq soit le classeur ouvert, je ne retrouve plus le menu excel

Si Frederic, ou tt autre, pouvait me donner le code ou l'astuce pour
retablir, ..

Merci
@+




Avatar
zrd
Bonjour JJ,

j'ai tente le lein excelabo, mais rien a faire, la restauration (appliquer
pixel par pixel, du haut de la fenetre, jusqu'a la selection d'une colonne)
ne change rien.

Pour le : Application.Commandbars(1).Reset
je mets ca où ??

Mreci @+

"Jacky" a écrit dans le message news:
#
Bonjour ZRD
Ca alors, Frederic t'a volé la barre des menus ?

Application.Commandbars(1).Reset
ou
http://www.excelabo.net/xl/plantages.php#restaurerbo

Salutations
JJ


"zrd" a écrit dans le message de
news:
bonjour,

J'ai inserer le code de F Sigonneau : CacherToutesBarresOutils1
trouve ici :



http://perso.wanadoo.fr/frederic.sigonneau/code/BO/CacherToutesBarresOutils1

.txt
sous excel 2000 sur Win98
depuis, qq soit le classeur ouvert, je ne retrouve plus le menu excel

Si Frederic, ou tt autre, pouvait me donner le code ou l'astuce pour
retablir, ..

Merci
@+








Avatar
Jacky
Bonjour ZRD
Ca alors, Frederic t'a volé la barre des menus ?

Application.Commandbars(1).Reset
ou
http://www.excelabo.net/xl/plantages.php#restaurerbo

Salutations
JJ


"zrd" a écrit dans le message de
news:
bonjour,

J'ai inserer le code de F Sigonneau : CacherToutesBarresOutils1
trouve ici :

http://perso.wanadoo.fr/frederic.sigonneau/code/BO/CacherToutesBarresOutils1

.txt
sous excel 2000 sur Win98
depuis, qq soit le classeur ouvert, je ne retrouve plus le menu excel

Si Frederic, ou tt autre, pouvait me donner le code ou l'astuce pour
retablir, ..

Merci
@+




Avatar
ChrisV
Bonjour zrd,

Dans un module d'un classeur quelconque...

Sub reinitBO()
Dim bO
For Each bO In Application.CommandBars
If bO.Type = msoBarTypeNormal Then _
bO.Reset
Next bO
End Sub


ChrisV


"zrd" a écrit dans le message de news:

bonjour,

J'ai inserer le code de F Sigonneau : CacherToutesBarresOutils1
trouve ici :

http://perso.wanadoo.fr/frederic.sigonneau/code/BO/CacherToutesBarresOutils1

.txt
sous excel 2000 sur Win98
depuis, qq soit le classeur ouvert, je ne retrouve plus le menu excel

Si Frederic, ou tt autre, pouvait me donner le code ou l'astuce pour
retablir, ..

Merci
@+




Avatar
zrd
Bonjour ChrisV,

J'ai procédé ainsi, je lance excel (je n'ai plus qu'une feuille avec entete
de ligne et de colonne et c'est tt)
clique droit sur l'onglet de la feuille -> visualiser le code
j'ai Microsoft Visual Basic qui s'ouvre
clique sur ThisWorkbook, et dans la partie droite, je fais un coller de ton
code,
j'enregistre tt ca : TOTO, je referme tt, j'ouvre TOTO : RIEN ne se passe ,
je suis toujours au meme resultat.

Qu'est ce que je n'ai pas fait (de bien) ??

Merci de vous pencher sur pon pb @+

"ChrisV" a écrit dans le message news:

Bonjour zrd,

Dans un module d'un classeur quelconque...

Sub reinitBO()
Dim bO
For Each bO In Application.CommandBars
If bO.Type = msoBarTypeNormal Then _
bO.Reset
Next bO
End Sub


ChrisV


"zrd" a écrit dans le message de news:

bonjour,

J'ai inserer le code de F Sigonneau : CacherToutesBarresOutils1
trouve ici :



http://perso.wanadoo.fr/frederic.sigonneau/code/BO/CacherToutesBarresOutils1

.txt
sous excel 2000 sur Win98
depuis, qq soit le classeur ouvert, je ne retrouve plus le menu excel

Si Frederic, ou tt autre, pouvait me donner le code ou l'astuce pour
retablir, ..

Merci
@+








Avatar
ChrisV
Re,

clique droit sur l'onglet de la feuille -> visualiser le code


Ok, puis, Insertion/Module/
tu colles le code dans la partie principale de droite (en dessous de
(Géneral))
puis, touches de fonction F5


ChrisV


"zrd" a écrit dans le message de news:

Bonjour ChrisV,

J'ai procédé ainsi, je lance excel (je n'ai plus qu'une feuille avec
entete

de ligne et de colonne et c'est tt)
clique droit sur l'onglet de la feuille -> visualiser le code
j'ai Microsoft Visual Basic qui s'ouvre
clique sur ThisWorkbook, et dans la partie droite, je fais un coller de
ton

code,
j'enregistre tt ca : TOTO, je referme tt, j'ouvre TOTO : RIEN ne se passe
,

je suis toujours au meme resultat.

Qu'est ce que je n'ai pas fait (de bien) ??

Merci de vous pencher sur pon pb @+

"ChrisV" a écrit dans le message news:

Bonjour zrd,

Dans un module d'un classeur quelconque...

Sub reinitBO()
Dim bO
For Each bO In Application.CommandBars
If bO.Type = msoBarTypeNormal Then _
bO.Reset
Next bO
End Sub


ChrisV


"zrd" a écrit dans le message de news:

bonjour,

J'ai inserer le code de F Sigonneau : CacherToutesBarresOutils1
trouve ici :





http://perso.wanadoo.fr/frederic.sigonneau/code/BO/CacherToutesBarresOutils1

.txt
sous excel 2000 sur Win98
depuis, qq soit le classeur ouvert, je ne retrouve plus le menu excel

Si Frederic, ou tt autre, pouvait me donner le code ou l'astuce pour
retablir, ..

Merci
@+












Avatar
zrd
re,

J'ai suivi a la lettre et j'obtiens une erreur d'execution :
'-2147467259 (80004005)':
La méthode 'Reset' de l'objet 'CommandBar' a échoué

Meci et PS : je suis pret a apliquer tt ce qu'il faudra, donc ttes
suggestions bienvenues

"ChrisV" a écrit dans le message news:
#
Re,

clique droit sur l'onglet de la feuille -> visualiser le code


Ok, puis, Insertion/Module/
tu colles le code dans la partie principale de droite (en dessous de
(Géneral))
puis, touches de fonction F5


ChrisV


"zrd" a écrit dans le message de news:

Bonjour ChrisV,

J'ai procédé ainsi, je lance excel (je n'ai plus qu'une feuille avec
entete

de ligne et de colonne et c'est tt)
clique droit sur l'onglet de la feuille -> visualiser le code
j'ai Microsoft Visual Basic qui s'ouvre
clique sur ThisWorkbook, et dans la partie droite, je fais un coller de
ton

code,
j'enregistre tt ca : TOTO, je referme tt, j'ouvre TOTO : RIEN ne se
passe


,
je suis toujours au meme resultat.

Qu'est ce que je n'ai pas fait (de bien) ??

Merci de vous pencher sur pon pb @+

"ChrisV" a écrit dans le message news:

Bonjour zrd,

Dans un module d'un classeur quelconque...

Sub reinitBO()
Dim bO
For Each bO In Application.CommandBars
If bO.Type = msoBarTypeNormal Then _
bO.Reset
Next bO
End Sub


ChrisV


"zrd" a écrit dans le message de
news:




bonjour,

J'ai inserer le code de F Sigonneau : CacherToutesBarresOutils1
trouve ici :







http://perso.wanadoo.fr/frederic.sigonneau/code/BO/CacherToutesBarresOutils1

.txt
sous excel 2000 sur Win98
depuis, qq soit le classeur ouvert, je ne retrouve plus le menu
excel





Si Frederic, ou tt autre, pouvait me donner le code ou l'astuce
pour




retablir, ..

Merci
@+
















Avatar
ChrisV
Et avec

Sub reinitBO()
Dim bO
On Error Resume Next
For Each bO In Application.CommandBars
If bO.Type = msoBarTypeNormal Then _
bO.Reset
Next bO
End Sub


ChrisV


"zrd" a écrit dans le message de news:

re,

J'ai suivi a la lettre et j'obtiens une erreur d'execution :
'-2147467259 (80004005)':
La méthode 'Reset' de l'objet 'CommandBar' a échoué

Meci et PS : je suis pret a apliquer tt ce qu'il faudra, donc ttes
suggestions bienvenues

"ChrisV" a écrit dans le message news:
#
Re,

clique droit sur l'onglet de la feuille -> visualiser le code


Ok, puis, Insertion/Module/
tu colles le code dans la partie principale de droite (en dessous de
(Géneral))
puis, touches de fonction F5


ChrisV


"zrd" a écrit dans le message de news:

Bonjour ChrisV,

J'ai procédé ainsi, je lance excel (je n'ai plus qu'une feuille avec
entete

de ligne et de colonne et c'est tt)
clique droit sur l'onglet de la feuille -> visualiser le code
j'ai Microsoft Visual Basic qui s'ouvre
clique sur ThisWorkbook, et dans la partie droite, je fais un coller
de



ton
code,
j'enregistre tt ca : TOTO, je referme tt, j'ouvre TOTO : RIEN ne se
passe


,
je suis toujours au meme resultat.

Qu'est ce que je n'ai pas fait (de bien) ??

Merci de vous pencher sur pon pb @+

"ChrisV" a écrit dans le message news:

Bonjour zrd,

Dans un module d'un classeur quelconque...

Sub reinitBO()
Dim bO
For Each bO In Application.CommandBars
If bO.Type = msoBarTypeNormal Then _
bO.Reset
Next bO
End Sub


ChrisV


"zrd" a écrit dans le message de
news:




bonjour,

J'ai inserer le code de F Sigonneau : CacherToutesBarresOutils1
trouve ici :









http://perso.wanadoo.fr/frederic.sigonneau/code/BO/CacherToutesBarresOutils1

.txt
sous excel 2000 sur Win98
depuis, qq soit le classeur ouvert, je ne retrouve plus le menu
excel





Si Frederic, ou tt autre, pouvait me donner le code ou l'astuce
pour




retablir, ..

Merci
@+




















Avatar
zrd
je suis au regret,
pas d'amelioration !!
Une reinstallation, ca arrangerait les choses ??
A quoi ca sert de mettre une macro dans un module ? ca sert a quoi un module
en VBA ? tant qu'a faire, autant tenter de comprendre.
@+


"ChrisV" a écrit dans le message news:

Et avec

Sub reinitBO()
Dim bO
On Error Resume Next
For Each bO In Application.CommandBars
If bO.Type = msoBarTypeNormal Then _
bO.Reset
Next bO
End Sub


ChrisV


"zrd" a écrit dans le message de news:

re,

J'ai suivi a la lettre et j'obtiens une erreur d'execution :
'-2147467259 (80004005)':
La méthode 'Reset' de l'objet 'CommandBar' a échoué

Meci et PS : je suis pret a apliquer tt ce qu'il faudra, donc ttes
suggestions bienvenues

"ChrisV" a écrit dans le message news:
#
Re,

clique droit sur l'onglet de la feuille -> visualiser le code


Ok, puis, Insertion/Module/
tu colles le code dans la partie principale de droite (en dessous de
(Géneral))
puis, touches de fonction F5


ChrisV


"zrd" a écrit dans le message de
news:




Bonjour ChrisV,

J'ai procédé ainsi, je lance excel (je n'ai plus qu'une feuille avec
entete

de ligne et de colonne et c'est tt)
clique droit sur l'onglet de la feuille -> visualiser le code
j'ai Microsoft Visual Basic qui s'ouvre
clique sur ThisWorkbook, et dans la partie droite, je fais un coller
de



ton
code,
j'enregistre tt ca : TOTO, je referme tt, j'ouvre TOTO : RIEN ne se
passe


,
je suis toujours au meme resultat.

Qu'est ce que je n'ai pas fait (de bien) ??

Merci de vous pencher sur pon pb @+

"ChrisV" a écrit dans le message news:

Bonjour zrd,

Dans un module d'un classeur quelconque...

Sub reinitBO()
Dim bO
For Each bO In Application.CommandBars
If bO.Type = msoBarTypeNormal Then _
bO.Reset
Next bO
End Sub


ChrisV


"zrd" a écrit dans le message de
news:




bonjour,

J'ai inserer le code de F Sigonneau : CacherToutesBarresOutils1
trouve ici :











http://perso.wanadoo.fr/frederic.sigonneau/code/BO/CacherToutesBarresOutils1

.txt
sous excel 2000 sur Win98
depuis, qq soit le classeur ouvert, je ne retrouve plus le menu
excel





Si Frederic, ou tt autre, pouvait me donner le code ou l'astuce
pour




retablir, ..

Merci
@+
























Avatar
ChrisV
Re,

Avec l'artillerie lourde...
Fermer Excel, rechercher puis supprimer le fichier *.xlb
Réouvrir Excel...


ChrisV


"zrd" a écrit dans le message de news:

je suis au regret,
pas d'amelioration !!
Une reinstallation, ca arrangerait les choses ??
A quoi ca sert de mettre une macro dans un module ? ca sert a quoi un
module

en VBA ? tant qu'a faire, autant tenter de comprendre.
@+


1 2