Couleur

Résolu/Fermé

mic6259 Messages postés 342 Date d'inscription mercredi 4 mars 2015 Statut Membre Dernière intervention 11 décembre 2023 - Modifié par mic6259 le 16/05/2015 à 15:59
mic6259 - 29 mai 2015 à 09:25

Bonjour
Dans le fichier joint, dans Jeu après un clic sur nouvelle partie puis nouveau tirage,des n°s s'affiche dans R2 dont j'ai mis une forme double ronde, est-il possible de changer la couleur bleu quand un chiffre apparaît de 1 a 15 puis une autre couleur de 16 a 30 comme çà jusqu'à 90(de 15 en 15)
Merci
https://www.cjoint.com/c/EEqqa4RaDVj

A voir également:

Couleur
Somme si couleur - Guide
Excel couleur conditionnelle - Guide
La boite a couleur - Télécharger - Divers Photo & Graphisme
Un mot est caché dans l’en-tête du document. pour le trouver, modifiez sa couleur. ✓ - Forum Bureautique
Code couleur résistance - Télécharger - Vie quotidienne

6 réponses

Réponse 1 / 6

Mike-31 Messages postés 18310 Date d'inscription dimanche 17 février 2008 Statut Contributeur Dernière intervention 29 mars 2024 5 073
16 mai 2015 à 20:58

Bonsoir,

Tu pourrais accélérer ton code en le simplifiant, mais si tu veux coloriser le cercle tu peux ajouter juste avant End Sub du code "gagnants" ces lignes
et le code gagnants devrait être dans un module plutôt que dans les propriétés de ta feuille ou intégré dans le code d'un bouton

If Application.CountA(Range("A2" & ":A" & [A65536].End(xlUp).Row)) > 1 Then _
ActiveSheet.Shapes("Bouée 2").DrawingObject.Interior.ColorIndex = 4
If Application.CountA(Range("A2" & ":A" & [A65536].End(xlUp).Row)) > 15 Then _
ActiveSheet.Shapes("Bouée 2").DrawingObject.Interior.ColorIndex = 6
If Application.CountA(Range("A2" & ":A" & [A65536].End(xlUp).Row)) > 30 Then _
ActiveSheet.Shapes("Bouée 2").DrawingObject.Interior.ColorIndex = 7
If Application.CountA(Range("A2" & ":A" & [A65536].End(xlUp).Row)) > 45 Then _
ActiveSheet.Shapes("Bouée 2").DrawingObject.Interior.ColorIndex = 28
If Application.CountA(Range("A2" & ":A" & [A65536].End(xlUp).Row)) > 60 Then _
ActiveSheet.Shapes("Bouée 2").DrawingObject.Interior.ColorIndex = 8
If Application.CountA(Range("A2" & ":A" & [A65536].End(xlUp).Row)) >= 75 Then _
ActiveSheet.Shapes("Bouée 2").DrawingObject.Interior.ColorIndex = 3

Réponse 2 / 6

Mike-31 Messages postés 18310 Date d'inscription dimanche 17 février 2008 Statut Contributeur Dernière intervention 29 mars 2024 5 073
16 mai 2015 à 22:01

Re,

je n'avais pas remarqué que G2 comptait les tirages, dans ce cas tu peux remplacer mes lignes par

If Range(celnum) > 1 Then ActiveSheet.Shapes("Bouée 2").DrawingObject.Interior.ColorIndex = 4
If Range(celnum) > 15 Then ActiveSheet.Shapes("Bouée 2").DrawingObject.Interior.ColorIndex = 6
If Range(celnum) > 30 Then ActiveSheet.Shapes("Bouée 2").DrawingObject.Interior.ColorIndex = 7
If Range(celnum) > 45 Then ActiveSheet.Shapes("Bouée 2").DrawingObject.Interior.ColorIndex = 28
If Range(celnum) > 60 Then ActiveSheet.Shapes("Bouée 2").DrawingObject.Interior.ColorIndex = 8
If Range(celnum) >= 75 Then ActiveSheet.Shapes("Bouée 2").DrawingObject.Interior.ColorIndex = 3

mic6259
18 mai 2015 à 09:49

Bonjour Mike-31
Oui j'avais remarque ce problème,car il faut en effet que la couleur change en fonction du numéro tiré au sort.Je vais essayer et remplacer le lignes
Merci beaucoup

mic6259
19 mai 2015 à 16:42

Bonjour Mike-31
Un petit souci car ce n'est pas tout à fait çe que je veux.
Le principe c'est d avoir le numéro 1-2-3.....etc jusqu'au 15 une couleur le 16-17...jusqu'àu 30 une autre couleur etc.

Si le 10 est tiré au sort la couleur par exemple color=6 ensuite si le suivant est le 29 la couleur doit changer a Color=7 ainsi de suite.
Excusez moi du dérangement.
Merci

Réponse 3 / 6

Mike-31 Messages postés 18310 Date d'inscription dimanche 17 février 2008 Statut Contributeur Dernière intervention 29 mars 2024 5 073
Modifié par Mike-31 le 19/05/2015 à 20:30

Re,

Supprime tes Mises en forme conditionnelle dans le code "gagnants" juste avant End Sub colle ce code à la place de mes propositions précédentes

If Range("A65535").End(xlUp) > 1 Then [H2].Font.ColorIndex = 4
If Range("A65535").End(xlUp) > 15 Then [H2].Font.ColorIndex = 6
If Range("A65535").End(xlUp) > 30 Then [H2].Font.ColorIndex = 7
If Range("A65535").End(xlUp) > 45 Then [H2].Font.ColorIndex = 28
If Range("A65535").End(xlUp) > 60 Then [H2].Font.ColorIndex = 8
If Range("A65535").End(xlUp) >= 75 Then [H2].Font.ColorIndex = 3

par contre je n'ai pas enregistré ton fichier et ton lien n'est plus valide, peux tu remettre le lien de ton fichier que je vois ce qui est possible de faire

A+
Mike-31

Une période d'échec est un moment rêvé pour semer les graines du savoir.

mic6259
26 mai 2015 à 12:42

Bonjour
Excusez moi problème Internet
La dernière macro ne color que les numéros affichés dans h2 est-il possible de colorée que la bouée 2?
j envoie le fichier des que je peut.

Réponse 4 / 6

Mike-31 Messages postés 18310 Date d'inscription dimanche 17 février 2008 Statut Contributeur Dernière intervention 29 mars 2024 5 073
26 mai 2015 à 12:49

Re,

coloration uniquement de la Bouée2

If Range("A65535").End(xlUp) >= 1 Then ActiveSheet.Shapes("Bouée 2").DrawingObject.Interior.ColorIndex = 4
If Range("A65535").End(xlUp) > 15 Then ActiveSheet.Shapes("Bouée 2").DrawingObject.Interior.ColorIndex = 6
If Range("A65535").End(xlUp) > 30 Then ActiveSheet.Shapes("Bouée 2").DrawingObject.Interior.ColorIndex = 7
If Range("A65535").End(xlUp) > 45 Then ActiveSheet.Shapes("Bouée 2").DrawingObject.Interior.ColorIndex = 28
If Range("A65535").End(xlUp) > 60 Then ActiveSheet.Shapes("Bouée 2").DrawingObject.Interior.ColorIndex = 8
If Range("A65535").End(xlUp) >= 75 Then ActiveSheet.Shapes("Bouée 2").DrawingObject.Interior.ColorIndex = 3

mic6259 Messages postés 342 Date d'inscription mercredi 4 mars 2015 Statut Membre Dernière intervention 11 décembre 2023 1
27 mai 2015 à 10:53

Bonjour
Voici le fichier
Il faut mettre les couleurs en fonction des chiffres et non pas en fonction du nombre de tirage. Les chiffres tirés au sort de 1 a 15 couleur 4 les chiffres de 16 a 30 couleur 7 etc jusqu'a 90.
Est-ce que la macro que tu a mis est la bonne.
Je vais essayer

https://www.cjoint.com/c/EEBkXbwJ74C

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

Posez votre question

Réponse 5 / 6

Mike-31 Messages postés 18310 Date d'inscription dimanche 17 février 2008 Statut Contributeur Dernière intervention 29 mars 2024 5 073
27 mai 2015 à 13:39

Re,

et bien dans ta macro "gagnants" il suffit de changer ces lignes

If Range(celnum) > 1 Then ActiveSheet.Shapes("Bouée 2").DrawingObject.Interior.ColorIndex = 4
If Range(celnum) > 15 Then ActiveSheet.Shapes("Bouée 2").DrawingObject.Interior.ColorIndex = 6
If Range(celnum) > 30 Then ActiveSheet.Shapes("Bouée 2").DrawingObject.Interior.ColorIndex = 7
If Range(celnum) > 45 Then ActiveSheet.Shapes("Bouée 2").DrawingObject.Interior.ColorIndex = 28
If Range(celnum) > 60 Then ActiveSheet.Shapes("Bouée 2").DrawingObject.Interior.ColorIndex = 8
If Range(celnum) > 75 Then ActiveSheet.Shapes("Bouée 2").DrawingObject.Interior.ColorIndex = 3

par le code que je t'ai donné dans mon dernier post

If Range("A65535").End(xlUp) >= 1 Then ActiveSheet.Shapes("Bouée 2").DrawingObject.Interior.ColorIndex = 4
If Range("A65535").End(xlUp) > 15 Then ActiveSheet.Shapes("Bouée 2").DrawingObject.Interior.ColorIndex = 6
If Range("A65535").End(xlUp) > 30 Then ActiveSheet.Shapes("Bouée 2").DrawingObject.Interior.ColorIndex = 7
If Range("A65535").End(xlUp) > 45 Then ActiveSheet.Shapes("Bouée 2").DrawingObject.Interior.ColorIndex = 28
If Range("A65535").End(xlUp) > 60 Then ActiveSheet.Shapes("Bouée 2").DrawingObject.Interior.ColorIndex = 8
If Range("A65535").End(xlUp) >= 75 Then ActiveSheet.Shapes("Bouée 2").DrawingObject.Interior.ColorIndex = 3

ensuite si tu ne veux pas que les numéros tirés changent de couleur, il suffit de supprimer les mises en forme conditionnelle que tu as créé

mic6259 Messages postés 342 Date d'inscription mercredi 4 mars 2015 Statut Membre Dernière intervention 11 décembre 2023 1
Modifié par mic6259 le 29/05/2015 à 07:28

Bonjour Mike-31
Je vais vous embêter encore un peut.
La dernière macro fonctionne très bien.
J'ai crée un autre fichier ici présent avec les mêmes macro et j'ai fais comme vous avez dit,mais il y a une erreur.
J'ai essayé de comprendre d'ou viendrait l'erreur -pas moyen.
Pourtant c'est les même macros..
Pourriez-vous m'expliquer ce problème, car j'ai aussi d'autre fichiers(Bingos) a faire.
Ne pas oublier de cliquer avant sur nouvelle partie avant de faire nouveau tirage.
Merci beaucoup

https://www.cjoint.com/c/EEDhkozhJ74

Réponse 6 / 6

Mike-31 Messages postés 18310 Date d'inscription dimanche 17 février 2008 Statut Contributeur Dernière intervention 29 mars 2024 5 073
29 mai 2015 à 09:15

Re,

Normal, tu as refait ton fichier et également ta bouée, à l'origine ta bouée était la deuxième créé et était nommée Bouée2

tu as fait plusieurs essaies et sur ton fichier la bouée est nommée Bouée 7 il faut donc revoir ton code et changer le nom de bouée 2 par Bouée 7

If Range("A65535").End(xlUp) >= 1 Then ActiveSheet.Shapes("Bouée 7").DrawingObject.Interior.ColorIndex = 4
If Range("A65535").End(xlUp) > 15 Then ActiveSheet.Shapes("Bouée 7").DrawingObject.Interior.ColorIndex = 6
If Range("A65535").End(xlUp) > 30 Then ActiveSheet.Shapes("Bouée 7").DrawingObject.Interior.ColorIndex = 7
If Range("A65535").End(xlUp) > 45 Then ActiveSheet.Shapes("Bouée 7").DrawingObject.Interior.ColorIndex = 28
If Range("A65535").End(xlUp) > 60 Then ActiveSheet.Shapes("Bouée 7").DrawingObject.Interior.ColorIndex = 8
If Range("A65535").End(xlUp) >= 75 Then ActiveSheet.Shapes("Bouée 7").DrawingObject.Interior.ColorIndex = 3

mic6259
29 mai 2015 à 09:25

Merci beaucoup

Discussions similaires

Transparence en tete et bas de page

sertissage des cables rj45

comment brancher cette multitude de fils

pipette dans word 365

Couleur transparente

Discussions similaires

Newsletters