Enigme command button

Bonjour,

J'aimerai rajouter un bouton commande bar au classeur joint.

En fait, j'aurai besoin de vos lumière : pourquoi le fait de créer un bouton
crée un bug.

Vous pouvez vérifié par vous même :
1 Créer un bouton
2 enregistrer
3 fermer puis rouvrir...

J'ai retiré le module contenant les macros de mon boulot.
Je pourrai simplement refaire la feuille de formulaire et importer le module mais j'aimerai bien savoir ce qui cloche. Pour éviter de refaire la même erreur.

Amusez vous bien

tout simplement a cause de ton code :

Code:

---

1 2 3

Private Sub Workbook_Open() Worksheets(1).Range("D7:H23").Clear End Sub

---

Mouais c'est vrai que j'ai un event sur l'ouverture...
mais pourquoi effacer la zone fait planter excel ?

Sinon,comment je peux désactiver les événements pour tenter de récuperer le fichier ?

Merci

je viens de tester plusieurs fois :

deja pour moi ce code est faut:

Code:

---

worksheets(1).range("..:..").clear

---

je le remplacerai

Code:

---

worksheets("Exploitation").range("..:..").clearContents

---

ou clear comme tu veux.


mais apres j ai un autre message d erreur que je ne comprends pas pour le command button.

pour le reste je sais pas pour le moment j ai fais des test et je comprends pas bien j ai juste vue que si tu mets la propriete locked a false de ton bouton que tu viens de creer il peux fonctionner mais des que tu sauvegardes et rouvre le fichier il bug

Si tu trouve je suis tout ouie :)

Comment peut-on désactiver les événements ?
Je voudrai récuperer le code du premier fichier que j'ai planté. J'ai trouvé le problème grace à une sauvegarde.

Merci pour ton attention

Code:

---

Application.EnableEvents = False

---

Bonjour tlm,

Cela correspond à quoi ces deux lignes ?

Code:

---

1 2	Call Traitement.OuvrirScenarioHITSource Call Traitement.AnalyseImprovement

---

edit : aah ok, j'ai rien dit...les macros du boulot ont été retirées

salut fring,
Sa va?

Tu comprends d'ou vient le bug sur le command button j ai beau faire plein d essai... rien a faire...

Salut Tony,

Beuh...rien à faire, on peut ajouter des feuilles et ajouter autant de boutons qu'on veut sur les nouvelles feuilles mais sur celle là rien à faire, c'est la journée sorcellerie aujourd'hui ou quoi ? :mouarf:

J'ai sorti mes gri-gri... FICHIER EXORCISE

La cause du problème était sur la feuille mais je n'ai pas trouvé ce qui provoquait le plantage, j'ai finalement viré la feuille...

Bonjour,

Si la 1ère feuille est en "fonction exécution automatique" et que le bouton apporte des modifications, il peut y avoir des conflits.

Bonjour Uc,

Tu veux dire quoi par "fonction exécution automatique" ?
Au niveau du "mode de calcul" ?

Bonjour Fring,

l'automaticité peut revêtir plusieurs aspects... et être le résultat d'instructions diverses


Je suggère donc ceci (et on y verra plus clair), tout bête :

A la toute première ligne du code du bouton, écrire

Code:

---

Msgbox "coucou, je suis intervenu"

---

puis fermer et lancer l'ouverture, juste pour voir si, sans cliquer sur le bouton, le message apparaît ou non ;)

Je n'ai pas eu de plantage à l'ouverture du fichier. Je déduis donc que c'est le temps d'affichage de la feuille qui pose pb
Je propose donc

Code:

---

1 2 3 4 5 6

Private Sub Workbook_Open() Application.screenUpdating = False DoEvents Worksheets(1).Range("D7:H23").ClearContents Application.screenUpdating = True End Sub

---

Non pas de réaction, j'avais de toute façon fait également un test en virant tous les bouts de code qui reste.

J'ai vraiment l'impression que c'est sur la feuille même qu'il y a un twist parce que lorsqu'on réactive l'affichage du quadrillage, certaines parties ne s'affichent pas. Etrange phénomène...

Salut Ousk, tu as fait le test en ajoutant un bouton de Cde sur la feuille ?


Edit : Bon...ce sont les deux boutons initialement placés sur la feuille qui posent problème, ces deux là virés, on peut de nouveau ajouter d'autres boutons.

Autant pour moi... L'a pas aimé un enregistrement et une ré-ouverture :cry:
Excel planté, récup, réparé, plus d'accès au bouton créé, plus accès au mode création, plus rien de bon... J'ai tout jeté ! :mouarf:
Corbeille vidée. BitDefender dans tous ses états.
Mais je crois avoir compris. Il doit rester un lien sur un site internet. Je commencerais par vérifier l'existence d'un Hyperlink quelque part.

Autant pour moi... L'a pas aimé un enregistrement et une ré-ouverture :cry:
Excel planté, récup, réparé, plus d'accès au bouton créé, plus accès au mode création, plus rien de bon... J'ai tout jeté ! :mouarf:

Non, pas d'hyperlink ou autre lien :(

Code:

---

1 2 3 4 5 6 7 8 9

Sub test() Dim h As Hyperlink Dim FL As Worksheet For Each FL In ThisWorkbook.Worksheets For Each h In FL.Hyperlinks MsgBox h.Name Next Next End Sub

---

Je n'ai rien trouvé de suspect non plus, vraiment étrange ce bug qui provient des deux CommandButton, à moins qu'il aient été créé via Excel 2012 et VB14 :mrgreen:

Ou alors pour une raison X, le fichier est tout simplement corrompu.

Merci à vous tous pour vos idées,

Effectivement j'avais un peu touché aux propriétés des deux premiers boutons.
Mais je pourrais pas vous dire quelles modifs ni dans quel ordre.

A+

Bonjour.

Pour ma part j'ai observé une autre curiosité : la commande de compilation du projet sous éditeur VBA n'est pas disponible.
Il semble qu'il suffise de supprimer les boutons "1" et "2" pour que tout rentre dans l'ordre. On peut alors créer tous les boutons que l'on veut, sans aucun défaut de fonctionnement.

Amusant.

pgz