Oyé Oyé brave gens !!!
lol
Non non ne faites pas faire un tas de trus à ce pauvre Eagle
Normalement il fait tourner cette macro :
Sub eagles()
Application.CommandBars("cell").Enabled = True
End Sub
Et le tour est joué.
Si il lui manque des boutons encore il fait tourner celle là
Sub eaglesII()
Application.CommandBars("cell").Enabled = True
Application.CommandBars("Cell").Reset
End Sub
Si jamais çà ne marchait toujours pas après çà...
Il recherche sur son disque dûr le fichier Excel.xlb... Et sans avoir Excel ouvert il le détruit pûrement et simplement (par sécurité Il peut le renommer dans une première étape, par exemple "Excel.old" et si tout va bien après ouverture de son Excel avec des barres d'outils toutes neuves qui sentiront la peinture fraiche (y compris le menu contextuel) il peut le détruire !!!)
Voilà, Nul besoin de changer ta souris ou de ré-installer Excel.
Par contre ce qui est certain et, comme Moa a dit, c'est que tu as fait tourner un fichier "du net pas net" qui t'a viré cette CommandBar "Cell".... Pour faire çà il suffit de cette intruction :
Application.CommandBars("cell").Enabled = False
Et hop plus de barre même après redémarrage....
Donc les apprentis sorciers, quand vous enlever quelque chose pensez toujours à le remettre à la sortie dans l'évènementielle "Private Sub Workbook_BeforeClose" ... ça évite des ennuis à des gens comme Eagle.
Bonne Fin de Journée à tous et toutes
@+Thierry
PS : pour André voir notre fil de blague d'urgence !!
Lien ICI !! lol
