Excel - forme qui change de couleurs (3) en cliquant dessus

Résolu
MattL42 Messages postés 5 Date d'inscription mercredi 29 février 2012 Statut Membre Dernière intervention 18 janvier 2013 - 29 févr. 2012 à 16:43
ucfoutu Messages postés 18038 Date d'inscription lundi 7 décembre 2009 Statut Modérateur Dernière intervention 11 avril 2018 - 1 mars 2012 à 16:47
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 !

6 réponses

ucfoutu Messages postés 18038 Date d'inscription lundi 7 décembre 2009 Statut Modérateur Dernière intervention 11 avril 2018 235
29 févr. 2012 à 19:25
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
3
ucfoutu Messages postés 18038 Date d'inscription lundi 7 décembre 2009 Statut Modérateur Dernière intervention 11 avril 2018 235
29 févr. 2012 à 18:13
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
0
MattL42 Messages postés 5 Date d'inscription mercredi 29 février 2012 Statut Membre Dernière intervention 18 janvier 2013
1 mars 2012 à 09:37
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
0
ucfoutu Messages postés 18038 Date d'inscription lundi 7 décembre 2009 Statut Modérateur Dernière intervention 11 avril 2018 235
1 mars 2012 à 09:42
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
0

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question
MattL42 Messages postés 5 Date d'inscription mercredi 29 février 2012 Statut Membre Dernière intervention 18 janvier 2013
1 mars 2012 à 16:44
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.
0
ucfoutu Messages postés 18038 Date d'inscription lundi 7 décembre 2009 Statut Modérateur Dernière intervention 11 avril 2018 235
1 mars 2012 à 16:47
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
0