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

Messages postés
5
Date d'inscription
mercredi 29 février 2012
Dernière intervention
18 janvier 2013
- - Dernière réponse : ucfoutu
Messages postés
18039
Date d'inscription
lundi 7 décembre 2009
Statut
Contributeur
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 !
Afficher la suite 

Votre réponse

6 réponses

Meilleure réponse
Messages postés
18039
Date d'inscription
lundi 7 décembre 2009
Statut
Contributeur
Dernière intervention
11 avril 2018
3
Merci
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

Dire « Merci » 3

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

Codes Sources a aidé 98 internautes ce mois-ci

Commenter la réponse de ucfoutu
Messages postés
18039
Date d'inscription
lundi 7 décembre 2009
Statut
Contributeur
Dernière intervention
11 avril 2018
0
Merci
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
Commenter la réponse de ucfoutu
Messages postés
5
Date d'inscription
mercredi 29 février 2012
Dernière intervention
18 janvier 2013
0
Merci
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
Commenter la réponse de MattL42
Messages postés
18039
Date d'inscription
lundi 7 décembre 2009
Statut
Contributeur
Dernière intervention
11 avril 2018
0
Merci
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
Commenter la réponse de ucfoutu
Messages postés
5
Date d'inscription
mercredi 29 février 2012
Dernière intervention
18 janvier 2013
0
Merci
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.
Commenter la réponse de MattL42
Messages postés
18039
Date d'inscription
lundi 7 décembre 2009
Statut
Contributeur
Dernière intervention
11 avril 2018
0
Merci
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
Commenter la réponse de ucfoutu

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.