bon, ma demande d'aide pour l'affichage d'une palette de couleur n'ayant
pas inspiré grand monde, j'ai inséré un bouton associé à une macro qui
crée automatiquement un barre d'outil avec comme seul bouton la commande
"Remplissage" (le pot de peinture).
Sub PaletteCouleur()
Application.CommandBars.Add(Name:="PaletteCouleur").Visible = True
Application.CommandBars("Drawing").Controls(13).Copy Bar:=Application. _
CommandBars("PaletteCouleur")
End Sub
Pb : une fois que cette barre est crée, si j'active à nouveau le bouton
il me fait une erreur.
Comment tester si une barre d'outil existe déjà, genre :
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Philippe.R
Bonjour, Tu peux simplement gérer l'erreur en commençant ta macro par :
on error resume next -- Amicales Salutations XL 97 / 2000 / 2002 Retirer A_S_ pour répondre en privé.
"Gilgamesh" a écrit dans le message de news:
Bonjour,
bon, ma demande d'aide pour l'affichage d'une palette de couleur n'ayant pas inspiré grand monde, j'ai inséré un bouton associé à une macro qui crée automatiquement un barre d'outil avec comme seul bouton la commande "Remplissage" (le pot de peinture).
Sub PaletteCouleur() Application.CommandBars.Add(Name:="PaletteCouleur").Visible = True Application.CommandBars("Drawing").Controls(13).Copy Bar:=Application. _ CommandBars("PaletteCouleur") End Sub
Pb : une fois que cette barre est crée, si j'active à nouveau le bouton il me fait une erreur.
Comment tester si une barre d'outil existe déjà, genre :
If exist CommandBars...
merci
Bonjour,
Tu peux simplement gérer l'erreur en commençant ta macro par :
on error resume next
--
Amicales Salutations
XL 97 / 2000 / 2002
Retirer A_S_ pour répondre en privé.
"Gilgamesh" <hsemaglig@uruk.com> a écrit dans le message de
news:O7ATHJZlEHA.3544@TK2MSFTNGP15.phx.gbl...
Bonjour,
bon, ma demande d'aide pour l'affichage d'une palette de couleur n'ayant
pas inspiré grand monde, j'ai inséré un bouton associé à une macro qui
crée automatiquement un barre d'outil avec comme seul bouton la commande
"Remplissage" (le pot de peinture).
Sub PaletteCouleur()
Application.CommandBars.Add(Name:="PaletteCouleur").Visible = True
Application.CommandBars("Drawing").Controls(13).Copy Bar:=Application. _
CommandBars("PaletteCouleur")
End Sub
Pb : une fois que cette barre est crée, si j'active à nouveau le bouton
il me fait une erreur.
Comment tester si une barre d'outil existe déjà, genre :
Bonjour, Tu peux simplement gérer l'erreur en commençant ta macro par :
on error resume next -- Amicales Salutations XL 97 / 2000 / 2002 Retirer A_S_ pour répondre en privé.
"Gilgamesh" a écrit dans le message de news:
Bonjour,
bon, ma demande d'aide pour l'affichage d'une palette de couleur n'ayant pas inspiré grand monde, j'ai inséré un bouton associé à une macro qui crée automatiquement un barre d'outil avec comme seul bouton la commande "Remplissage" (le pot de peinture).
Sub PaletteCouleur() Application.CommandBars.Add(Name:="PaletteCouleur").Visible = True Application.CommandBars("Drawing").Controls(13).Copy Bar:=Application. _ CommandBars("PaletteCouleur") End Sub
Pb : une fois que cette barre est crée, si j'active à nouveau le bouton il me fait une erreur.
Comment tester si une barre d'outil existe déjà, genre :
If exist CommandBars...
merci
ru-th
Salut
Salut
2 cas possibles : -soit la barre n'existe pas et il faut la créer -soit la barre existe et elle est visible ou non
Sub PaletteCouleur() On Error Resume Next With Application Set a = .CommandBars("PaletteCouleur") If Err <> 0 Then .CommandBars.Add(Name:="PaletteCouleur").Visible = True .CommandBars("Drawing").Controls(13).Copy Bar:=Application. _ CommandBars("PaletteCouleur") Else .CommandBars("PaletteCouleur").Visible = True End If End With End Sub
a+ rural thierry "Gilgamesh" a écrit dans le message de news:
Bonjour,
bon, ma demande d'aide pour l'affichage d'une palette de couleur n'ayant pas inspiré grand monde, j'ai inséré un bouton associé à une macro qui crée automatiquement un barre d'outil avec comme seul bouton la commande "Remplissage" (le pot de peinture).
Sub PaletteCouleur() Application.CommandBars.Add(Name:="PaletteCouleur").Visible = True Application.CommandBars("Drawing").Controls(13).Copy Bar:=Application. _ CommandBars("PaletteCouleur") End Sub
Pb : une fois que cette barre est crée, si j'active à nouveau le bouton il me fait une erreur.
Comment tester si une barre d'outil existe déjà, genre :
If exist CommandBars...
merci
Salut
Salut
2 cas possibles :
-soit la barre n'existe pas et il faut la créer
-soit la barre existe et elle est visible ou non
Sub PaletteCouleur()
On Error Resume Next
With Application
Set a = .CommandBars("PaletteCouleur")
If Err <> 0 Then
.CommandBars.Add(Name:="PaletteCouleur").Visible = True
.CommandBars("Drawing").Controls(13).Copy Bar:=Application. _
CommandBars("PaletteCouleur")
Else
.CommandBars("PaletteCouleur").Visible = True
End If
End With
End Sub
a+
rural thierry
"Gilgamesh" <hsemaglig@uruk.com> a écrit dans le message de news:
O7ATHJZlEHA.3544@TK2MSFTNGP15.phx.gbl...
Bonjour,
bon, ma demande d'aide pour l'affichage d'une palette de couleur n'ayant
pas inspiré grand monde, j'ai inséré un bouton associé à une macro qui
crée automatiquement un barre d'outil avec comme seul bouton la commande
"Remplissage" (le pot de peinture).
Sub PaletteCouleur()
Application.CommandBars.Add(Name:="PaletteCouleur").Visible = True
Application.CommandBars("Drawing").Controls(13).Copy Bar:=Application. _
CommandBars("PaletteCouleur")
End Sub
Pb : une fois que cette barre est crée, si j'active à nouveau le bouton
il me fait une erreur.
Comment tester si une barre d'outil existe déjà, genre :
2 cas possibles : -soit la barre n'existe pas et il faut la créer -soit la barre existe et elle est visible ou non
Sub PaletteCouleur() On Error Resume Next With Application Set a = .CommandBars("PaletteCouleur") If Err <> 0 Then .CommandBars.Add(Name:="PaletteCouleur").Visible = True .CommandBars("Drawing").Controls(13).Copy Bar:=Application. _ CommandBars("PaletteCouleur") Else .CommandBars("PaletteCouleur").Visible = True End If End With End Sub
a+ rural thierry "Gilgamesh" a écrit dans le message de news:
Bonjour,
bon, ma demande d'aide pour l'affichage d'une palette de couleur n'ayant pas inspiré grand monde, j'ai inséré un bouton associé à une macro qui crée automatiquement un barre d'outil avec comme seul bouton la commande "Remplissage" (le pot de peinture).
Sub PaletteCouleur() Application.CommandBars.Add(Name:="PaletteCouleur").Visible = True Application.CommandBars("Drawing").Controls(13).Copy Bar:=Application. _ CommandBars("PaletteCouleur") End Sub
Pb : une fois que cette barre est crée, si j'active à nouveau le bouton il me fait une erreur.
Comment tester si une barre d'outil existe déjà, genre :
If exist CommandBars...
merci
Gilgamesh
Ok, merci à vous deux.
Je suis qd même étonné qu'il n'y ai pas de test d'existence et qu'on soit obligé de passer par un code d'erreur...
a+
Ok, merci à vous deux.
Je suis qd même étonné qu'il n'y ai pas de test d'existence et qu'on
soit obligé de passer par un code d'erreur...