Message personnel a JB... et sa barre de coloriage....

Le
Abileor
Salut

Utilisateur d'une déclinaison de ton fichier jb-BarreColoriage.zip
J'ai un problème suite au passage a excel 2007.

Ces macros sont basées sur le déclenchement a l'ouverture d'excel d'une
barre de commandes


On Error Resume Next
Set Barre = CommandBars.Add
Barre.Name = "BarreColoriage"
Barre.Visible = True
Set Menu = Barre.Controls.Add(msoControlComboBox)
For i = 1 To Application.CountA(Range("mescouleurs"))
Menu.AddItem Range("mescouleurs")(i).Value
Next
Menu.AddItem "Efface"
Menu.AddItem "Colorie saisis"
Menu.OnAction = "Couleur"
Menu.Text = "Sélectionner puis choisir"

Or depuis excel 2007. cette macro ne se lance plus

Merci de ton aide
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
JB
Le #19684531
Bonsoir,

Les BO apparaissent dans l'onglet Compléments.

Avec formulaire:
http://boisgontierjacques.free.fr/pages_site/formulairebases.htm#Coloriage

JB
http://boisgontierjacques.free.fr

On 2 juil, 20:15, "Abileor"
Salut...

Utilisateur d'une déclinaison de ton fichier jb-BarreColoriage.zip
J'ai un problème suite au passage a excel 2007....

Ces macros sont basées sur le déclenchement a l'ouverture d'excel d'u ne
barre de commandes

    On Error Resume Next
    Set Barre = CommandBars.Add
    Barre.Name = "BarreColoriage"
    Barre.Visible = True
    Set Menu = Barre.Controls.Add(msoControlComboBox)
    For i = 1 To Application.CountA(Range("mescouleurs"))
       Menu.AddItem Range("mescouleurs")(i).Value
    Next
    Menu.AddItem "Efface"
    Menu.AddItem "Colorie saisis"
    Menu.OnAction = "Couleur"
    Menu.Text = "Sélectionner puis choisir"

Or depuis excel 2007.... cette macro ne se lance plus

Merci de ton aide


Publicité
Poster une réponse
Anonyme