Posez votre question Format imprimable Liste des forums Aidez-les Statistiques Rechercher Charte Forum Logiciels-Pilotes

EXCEL VBA et CommandBar

Dernière réponse le 14 mar 2009 à 11:33:41 MIC91, le 12 mar 2009 à 15:37:33

Signaler ce message aux modérateurs

Bonjour,

J'essaie de faire un programme VBA avec Excel 2000 . Je dois changer les barres de menu. Quand j'essaie le programme suivant, j'obtiens toujours "Erreur d'éxécution 5, Argument ou appel de fonction incorrect "

Sub Barre_menu()
Dim Cab As CommandBar
Set Cab = CommandBars.Add (Name:="Menu1")
End Sub

Qui pourrait m'aider, je rame depuis 2 jours.
Merci d'avance.

Configuration: Windows XP
Internet Explorer 6.0

Meilleures réponses pour « EXCEL VBA et CommandBar » dans :

Excel VBA - Textbox à saisie conditionnée (Résolu) Voir

Appel de fonction en excel vba Voir

Liste déroulante excel vba (Résolu) Voir

[Excel VBA] Problème formule de concaténation (Résolu) Voir

[Excel VBA] Filtre sur couleur de cellules... (Résolu) Voir

Excel VBA copier cellules avec formules (Résolu) Voir

Posez votre question Répondre

LePierre, le 14 mar 2009 à 11:33:41

Bonjour

Tu dois avoir l'erreur à la 2ème exécution du programme.

Si tu fais ceci la barre de menu est visible à la 1ère exécution. Ensuite il faut la supprimer si tu veux lancer à nouveau le programme :

Sub Barre_menu()
    Dim Cab As CommandBar
    Set Cab = CommandBars.Add(Name:="Menu1")
    CommandBars("Menu1").Visible = True
    'CommandBars("Menu1").Delete
End Sub

Pour éviter ce problème utilise :

Sub test()
    foundFlag = False
    For Each bar In CommandBars
        If bar.Name = "Menu1" Then
            foundFlag = True
            bar.Visible = True
        End If
    Next
    If Not foundFlag Then
        Set Cab = CommandBars.Add(Name:="Menu1")
        CommandBars("Menu1").Visible = True
    End If
End Sub

à plus

Répondre à LePierre

Posez votre question Répondre