Excel - forme qui change de couleurs (3) en cliquant dessus [Résolu]

Signaler
Messages postés
5
Date d'inscription
mercredi 29 février 2012
Statut
Membre
Dernière intervention
18 janvier 2013
-
Messages postés
18038
Date d'inscription
lundi 7 décembre 2009
Statut
Modérateur
Dernière intervention
11 avril 2018
-
Bonjour,

Je débute en macro et je souhaite créer une forme sous Excel qui change de couleur quand on clique dessus.
J'aurais besoin que la couleur alterne entre du vert, de l'orange et du rouge (puis à nouveau vert, ...) à chaque clic sur cette même forme.

Je vous remercie d'avoir pris le temps de lire ma question.

Si vous avez des solutions, je suis preneur !
A voir également:

6 réponses

Messages postés
18038
Date d'inscription
lundi 7 décembre 2009
Statut
Modérateur
Dernière intervention
11 avril 2018
237
Plou là !
Allez ===>> exemple (ici pour une shape rectangle "Rectangle 8"

Sub Rectangle8_Clic()
  toto = Array(RGB(0, 255, 0), RGB(255, 160, 100), RGB(0, 150, 255))
  Static quoi As Integer
  With ActiveSheet.Shapes("Rectangle 8")
    .OLEFormat.Object.ShapeRange.Fill.ForeColor.RGB = toto(quoi)
  End With
  quoi = quoi + 1
  If quoi > 2 Then quoi =  0
End Sub

Note que l'espace a disparu dans le nom de la sub
Note aussi que "vert", "orange" et "bleu" laissent le choix selon, précisément les goûts et ... les couleurs ..... de chacun
J'ai donc choisi mon bleu, mon orange et mon vert, selon mes goûts.
Va te falloir te frotter à RGB pour les mettre à ton goût à toi.
Bon app.

____________________
Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches d'autres forumeurs.
Pas d'aide en ligne installée ? ==> ne comptez pas sur moi pour simplement vous dire ce qu'elle contient
Messages postés
18038
Date d'inscription
lundi 7 décembre 2009
Statut
Modérateur
Dernière intervention
11 avril 2018
237
Bonjour,
Quel est l'index de cette form dans la collection Shapes ?
Qu'as-tu tenté d'écrire, dans la macro que tu as associée à don évènement Clic ?


____________________
Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches d'autres forumeurs.
Pas d'aide en ligne installée ? ==> ne comptez pas sur moi pour simplement vous dire ce qu'elle contient
Messages postés
5
Date d'inscription
mercredi 29 février 2012
Statut
Membre
Dernière intervention
18 janvier 2013

Bonjour,

Merci beaucoup ucfoutu de ta réponse rapide, ça marche parfaitement !
Pour les couleurs, ça je vais m'en sortir.

Par contre, est-ce que tu saurais faire en sorte que selon la couleur de mon rectangle, une cellule (peu importe laquelle) prenne une valeur différente (par exemple : "1" si rectangle vert, "2" si rectangle orange, "3" si rectangle bleu) ?

Bonne journée
Messages postés
18038
Date d'inscription
lundi 7 décembre 2009
Statut
Modérateur
Dernière intervention
11 avril 2018
237
Il s'agit là (ta nouvelle question)à d'un problème distinct du 1er.
Il n'est pas (pour l'efficacité de ce forum, notamment en matière de recherches de la résolution de problèmes) raisonnable de mélanger les choses.
Si le présent problème est résolu ===>> tag "réponse acceptée" et du pouvres une autre discussion.
Avant toutefois de l'ouvrir : réfléchis un peu. Je t'ai montré un exemple d'utilisation d'un array (toto dans l'exemple). Imagine un second array contenant, lui, des valeurs dans le même ordre que les couleurs.
Si cela fait tilt et que tu t'en sors ainsi ===>> amen. Sinon ===>> autre discussion.

____________________
Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches d'autres forumeurs.
Pas d'aide en ligne installée ? ==> ne comptez pas sur moi pour simplement vous dire ce qu'elle contient
Messages postés
5
Date d'inscription
mercredi 29 février 2012
Statut
Membre
Dernière intervention
18 janvier 2013

Ok, j'ai fermé cette question.
Je ne vais pas en ouvrir une autre car à partir de ton modèle j'ai réussi à résoudre mon autre problème et même à changer le texte contenu dans le rectangle selon la couleur.

Encore merci.
Messages postés
18038
Date d'inscription
lundi 7 décembre 2009
Statut
Modérateur
Dernière intervention
11 avril 2018
237
Voilà ! Bravo


____________________
Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches d'autres forumeurs.
Pas d'aide en ligne installée ? ==> ne comptez pas sur moi pour simplement vous dire ce qu'elle contient