Bouton
Bonjour,
J'aimerais insérer sur une feuille excel un bouton.
Sa fonction serait de changer de couleur quand on clique dessus.
Merci d'avance et bonne année
C'est exactement sa que je veux mais avec deux couleurs.
Comment tu as fait?
Par une macro affectée au bouton que tu peux afficher en VBA
Ci-joint une version avec 2 couleurs (attention si dans la macro tu modifie le code des couleur, pense à affecter une de ces couleur au bouton sinon la macro ne fera rien)
https://www.excel-pratique.com/~files/doc/BoutonCouleur2.xls
Je viens d'ouvrir ton fichier excel pour essayer
Et, sa fonctionne pas, j'ai un message d'erreur
Je n'ai pas de message d'erreur
Peut être un pb de compatibilté (je suis en excel 2007)
Essayer de changer les codes de couleur dans la macro
Bonjour,
Je viens d'essayer de changer les codes couleurs de la macro, mais sa change rien.
L'erreur vient de la ligne :
If ActiveSheet.Shapes("Ellipse 1").Fill.ForeColor.SchemeColor = maCouleur1 Then
Pour moi, c'est le premiére fois que j'utilise visual basic alors excuse moi si je suis un peut "lourde".
il y a effectivement un pb de compatibilité entre versions
re-crée un cercle avec ton excel et note son nom
change le nom de l'objet dans la macro
affecte lui une des deux couleurs ( tu peux le faire en ajoutant temporairement dans la macro ActiveSheet.Shapes("Nom de l'objet").Fill.ForeColor.SchemeColor = maCouleur1)
avant le premier if
affecte lui la macro (clic droit et affecter macro)
et cela doit marcher
Merci merci
Sa marche
Mais il y a encore un problème
La deuxiéme couleur reste que si on reste appuyé sur le bouton.
Avez vous bien supprimé l'affectation initiale de la couleur avant le premeir "IF"
J'avais bien mis "temporairement"
Oui, j'ai bien tout modifier.
Et, est-ce-qu'il est possible que la deuxième couleur reste aprés avoir appuyé sur le bouton?
Alors je ne vois pas, cela devrait marcher
Envoie ton fichier
Compris
la couleur initiale de l'objet (52) n'est pas une de celles de la macro (3 et 4), du coup la macro ne fait rien
c'est pour cela que j'insistait sur le fait d'affecter une deux couleurs à l'objet soit à la main soit en ajoutant temporairement une ligne à la macro avant les "IF".
Comment je fais pour savoir le numéro de la couleur initial de l'objet?
Ajouter dans la macro (temporairement) qq chose comme :
titi=ActiveSheet.Shapes("rectangle 5").Fill.ForeColor.SchemeColor
MsgBox(titi)
Soit, je l'ai mal placé, soit c'est pas ça, Mais sa fonctionne pas
https://www.excel-pratique.com/~files/doc/fn2caBoutonCouleur3.xls
pour moi cette macro marche :
https://www.excel-pratique.com/~files/doc/fn2caBoutonCouleur4.xls
Sa marche. Merci
J'ai encore une petite question.
Je vais mettre le bouton sur plusieurs feuilles excel mais dans le même classeur.
Je voudrais que quand j'appuie sur un bouton sa couleur change dans toutes les feuilles.
Est-ce du possible??
Si tu fait un copier coller dans d'autre feuilles (en sélectionant le bouton avec ctrl pour que la macro ne s'éxecute pas) la macro du module s'appliquera mais il faut ajouter les nouveaux objets (rectangle 6, rectengle 7...) dans la macro