Changer la couleur quand on clic sur Rectangleàcoinsarrondis16_Clic

Bonjour,

Pouvez-vous m'aider?

J'ai créé un bouton et j'aimerais qu'il change de couleur quand on clic dessus.

Je n'y arrive pas.

Sub Rectangleàcoinsarrondis16_Clic()

MsgBox ("Comment changer de couleur quand on clique sur ce bouton?")

End Sub

merci

Bonjour,

Avec un code du genre

ActiveSheet.Shapes.Range("Rectangleàcoinsarrondis16").Fill.ForeColor.RGB = RGB(255, 0, 0)

si ok -->

Cordialement

bonjour,

merci pour votre aide mais ça ne fonctionne pas

comment je dois placer ce code?

@bientôt

Bonjour,

peut-être est il déjà rouge...

N'hésitez pas à renommer vos shapes après leur insertion car un "rectangleàcoinarrondi16" il y a plus simple pour savoir de quoi ont parle !

Avez vous fichier ou un bout de fichier pour les tests.

@ bientôt

LouReeD

Un fichier exemple :

@ bientôt

LouReeD

bonjour LouReed,

Merci pour votre aide, mais....

je ne peux plus insérer des objets dans une feuile, depuis que j'ai réinstallé mon excel 2007

C'est pour cette raison que j'essaye de trouver d'autres solutions.

Votre fichier(test-7) je ne peux pas le faire fonctionné sur mon pc, les boutons sont inactifs.

j'ai essayé toutes les astuces présente sur le web (supprimer les .exd) ect

sans succés

Peut-être que je vais devoir restaurer mon Win10...(car j'ai remarqué que cela ne venait pas Excel mais d'un autre fichier)

On m'a déjà donné des codes pour ouvrir une macro depuis une cellule ou j'ai pu changer de couleur à chaque changement de clic

Maintenant, je cherche avec ce bouton 'Rectangleàcoinsarrondis1_Clic'

J'ai déjà modifié 2 applications en remplaçant les objets que j'avais inséré dans la feuille.

Il me reste le QCM qui me semble plus complexe car même si j'ai réussi à remplacer mes objets, il provoque des erreurs au niveau de la modification des fiches.

Donc j'ai encore pas mal de travail

@bientôt

Pas simple c't'affaire ! C'est pourquoi j'évite le contrôles ActiveX !

@ bientôt

LouReeD

Oui j'avais remarqué quand j'ai eu mon problème.

Je me suis dit: "bon sang, mais c'est bien sûr"

C'est une vieille réplique d'un feuilleton mais vous connaissez peut-être ?

Bonne soirée

Bonsoir

merci pour votre aide mais ça ne fonctionne pas
comment je dois placer ce code?

Simplement mettre cette ligne à la place de ligne MSGBOX

Sinon, regardez un peu ce lien --> https://forum.excel-pratique.com/excel/extraire-le-texte-d-un-bouton-dans-une-cellule-165397
Il me semble que se rapproche de votre souci

Crdlt

Bonjour,

@ Dan

ça ne fonctionne pas

@LouReeD

ça fonctionne surper bien (à part les ActiveX)

merci

Bonjour,

Les ActiveX pour moi, me sont utiles si j'ai besoin de Mouse, je veux dire par là qu'ils sont seuls à pouvoir tester le survole de la souris. Si on les utilisent juste pour le "clic" d'un bouton alors j'utilise un shape, voir une image de bouton.

Par contre pour ArkaLouReeD j'utilise un label pour détecter le déplacement de la souris qui gère le déplacement de la raquette.

@ bientôt

LouReeD

@LouReeD

Vous les prenez où vos bouton shape?

Je suis obligé de vous copier

Ce n'est pas dans insertion/Formes?

ils sont où

merci

Merci Dan,

je suis allé sur le lien où j'ai pu récupérer certains codes et ça fonctionne

@LouReeD

bonjour,

pour votre test-7 :

pour les filtres c'est ok mais j'aimerais à la place lancer une macro en gardant le changement de couleur à chaque clic

j'ai beau essayer, je tourne en rond

merci

Bonjour,

Il suffit de supprimer la boucle de mise en couleur neutre.

@ bientôt

LouReeD

Désolé j'ai dû mal m'exprimer

je voudrais garder ces codes mais à la place du filtre un" call macroX"

tout en gardant le changement couleur quand on clic, donc garder la boucle de mise en couleur neutre.

J'ai essayé mais sans succes

merci

Bonsoir,

Voici un code avec un Select Case qui renvoie sur une procédure en fonction du nom du bouton :

Sub Filtre()
    ' on passe les bouton à la couleur "neutre"
    For Each sh In ActiveSheet.Shapes
        sh.Fill.ForeColor.RGB = RGB(241, 50, 255)
    Next sh
    ' on passe le bouton cliqué en rouge
    ActiveSheet.Shapes(Application.Caller).Fill.ForeColor.RGB = RGB(255, 0, 0)
    ' on rafraichie l'écran afin que le bouton passe rouge avant l'affichage du MsgBox
    Application.ScreenUpdating = True
    ' on test si l'on vient de cliquer sur un bouton autre que "tous"
    If Application.Caller <> "Tous" Then
        ' on appel la fonction dépendante du nom du bouton
        ' pour simplifier le nom des boutons peuvent être des chiffres !
        Select Case Application.Caller
            Case "Chou"
                Call Chou
            Case "Concombre"
                Call Concombre
            Case Else
                MsgBox ("Pas de programmation pour ce choix")
        End Select
    End If
End Sub

Sub Chou()
    MsgBox ("Chou")
End Sub

Sub Concombre()
    MsgBox ("Cobcombre")
End Sub

@ bientôt

LouReeD

Bonsoir

Merci beaucoup

EXCELLENT!

c'est tout ce qu'il me fallait

par contre ça ne fonctionne pas dés que j'essaye de changer de feuille ou de nom

bizarre

@bientôt

Bonsoir,

vu le fichier joint je n'ai fais qu'une copie de feuille et les macros fonctionnent...

@ bientôt

LouReeD

Bonsoir,

chez moi aussi ça fonctionne pour ce fichier

mais si je veux lancer une usf ou autre chose, ça marche plus

il va me lancer le 'else'

mais pas grave je vais me débrouiller autrement

merci