cs_dhardy
Messages postés45Date d'inscriptionlundi 23 juin 2003StatutMembreDernière intervention24 février 2009
-
1 mai 2012 à 21:55
Softmama
Messages postés14Date d'inscriptionvendredi 20 août 2010StatutMembreDernière intervention 2 septembre 2010
-
1 mai 2012 à 22:25
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
Softmama
Messages postés14Date d'inscriptionvendredi 20 août 2010StatutMembreDernière intervention 2 septembre 2010 1 mai 2012 à 22:25
Bonjour,
Merci pour ce commentaire. Concernant les commandbars désactivées, j'avais repéré le problème et l'avais corrigé : regarde dans le module ThisWorkbook, je les réactive pourtant ainsi :
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim Cmdb As CommandBar
For Each Cmdb In Application.CommandBars
Cmdb.Enabled = True
Next Cmdb
Application.DisplayFullScreen = False
ThisWorkbook.Close True
End Sub
Qu'est-ce qui ne va pas dans ce code ?
cs_dhardy
Messages postés45Date d'inscriptionlundi 23 juin 2003StatutMembreDernière intervention24 février 2009 1 mai 2012 à 21:55
Attention, tu as désactiver le clic droit en Excel mais lorsque tu quittes le jeu, tu as oublié de le réactivé.
Merci de corriger.
PS : voici la commande qui réactive le clic droit
Application.CommandBars("cell").Enabled = True
Même commentaire dans les versions précédentes du jeu.
Petit moins, programme pas trés lisible pour une programmeur ou quelqu'un qui est du métier.
Par contre, je te félicite pour le résultat de ce programme fait en VBA sous Excel.
1 mai 2012 à 22:25
Merci pour ce commentaire. Concernant les commandbars désactivées, j'avais repéré le problème et l'avais corrigé : regarde dans le module ThisWorkbook, je les réactive pourtant ainsi :
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim Cmdb As CommandBar
For Each Cmdb In Application.CommandBars
Cmdb.Enabled = True
Next Cmdb
Application.DisplayFullScreen = False
ThisWorkbook.Close True
End Sub
Qu'est-ce qui ne va pas dans ce code ?
1 mai 2012 à 21:55
Merci de corriger.
PS : voici la commande qui réactive le clic droit
Application.CommandBars("cell").Enabled = True
Même commentaire dans les versions précédentes du jeu.
Petit moins, programme pas trés lisible pour une programmeur ou quelqu'un qui est du métier.
Par contre, je te félicite pour le résultat de ce programme fait en VBA sous Excel.