Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11

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

1 réponse
Avatar
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

1 réponse

Avatar
JB
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" wrote:
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