> Tous les forums > Forum Bureautique
 Changer de couleur une cellule avec une maccro
Ajouter un message à la discussion
Page : [1] 
Page 1 sur 1
Alexj15
  Posté le 26/06/2019 @ 16:32 
Aller en bas de la page 

Heyy !

Alors une petite mise en contexte rapide: Je dois obligatoirement utiliser une maccro pour réaliser ceci. Je dois faire en sorte qu'une cellule avec un pourcentage change de couleur selon justement son pourcentage ->60% en VERT; <40% en ROUGE; <60% et >40% en ORANGE.

Donc j'ai déjà fait quelque ligne , mais cela ne fonctionne pas comme je voudrais. Donc si vous avez des ptit conseils et astuces je suis preneur.

Donc voilà mon code la cellule O4 et la cellule ou est écrit le pourcentage du jour par exemple, la cellule AA2 est la moyenne explqiuer au dessu (60%; 40; 60/40%).

Activresheet représente l'objet que je veux faire changer de couleur.
Il ce passe tout de même une chose quand je clic sur le bouton (lié à la maccro) ça change en en rouge avec n'importe quel résultat.

Sur Ceux bonne journée les ptits pote.

[Configuration automatique à compléter]
Windows 7
Chrome 72.0.3626.121

Publicité
Debrief
 Posté le 26/06/2019 à 19:47 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Astucien

Bonjour,

Je suis étonné que puisses qualifier RGB avec Forecolor. Personnellement j'aurais mis .ForeColor = RGB(255, 165, 0 ) par exemple.

D.

Alexj15
 Posté le 27/06/2019 à 08:59 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page

Bonjour,

J'ai essayer ce que tu m'a dis mais je suis obligé de mettre .Forecolor. RGB = RGB(...) Sinon sa me mets une erreur:/

Debrief
 Posté le 27/06/2019 à 10:27 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Astucien

En effet, c'est ce que dit la doc https://docs.microsoft.com/en-us/previous-versions/office/developer/office-2003/aa221611(v=office.11).

En ce qui me concerne j'ai beau appliquer l'instruction sh.Fill.ForeColor.RGB = RGB(255, 0, 0) ou sh.Fill.BackColor.RGB = RGB(255, 0, 0) à des shapes ça n'a strictement aucun effet !

galopin01
 Posté le 27/06/2019 à 11:52 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
  Astucien

bonjour,

sans voir le classeur c'est quand m^me difficile à supputer...

A+

Alexj15
 Posté le 27/06/2019 à 13:52 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page

Oui, je ne comprend vraiment pas pourquoi ça ne marche pas :c

Oui désolé galopin1, je suis en stage je ne peux pas transmettre le classeur

^^

Alexj15
 Posté le 27/06/2019 à 13:54 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page

J'ai essayer de mettre des Case à la place des If

Debrief
 Posté le 27/06/2019 à 14:00 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Astucien

En fait on ne sait pas si c'est la logique du code qui n'est pas bonne ou ces instructions de colorisation.

Alexj15
 Posté le 27/06/2019 à 15:50 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page

Bon pas grave, merci quand même

Publicité
mijou1957
 Posté le 28/06/2019 à 08:54 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Nouvel astucien

Salut

Je suis un bleu en macro, mais, faudrait peut être essayer les conditions dans un ordre croissant

-Moins de 40

-Entre 40 et 60

-Plus de 60

Mais aussi, pourquoi ne pas mettre 40% en dur dans la macro au lieu de la valeur d'une cellule.

mijou1957
 Posté le 29/06/2019 à 06:42 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Nouvel astucien

Re salut

Comme j'ai dis, je suis en apprentissage, alors voyez ma réponse, plus comme une question, qu'une réponse à Alexj15.

ximi
 Posté le 30/06/2019 à 12:00 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Petit astucien

Bonjour Alexj15

Pourquoi ne pas utiliser une mise en forme conditionnelle tout simplement? Voir ci dessous la configuration de la MFC (Mise en Forme Conditionnelle)

respecter l'ordre des MFC. Les cellules de l'exemple dans lesquelles tu rentres les valeurs sont de E10 à G10 comme indiqué dans "s'applique à".

Pour toi tu appliques bien sur la MFC sur toute la plage de tes cellules.

Bon dimanche - Cordialement - Xavier

Lien vers une image externe <= le lien ne marche pas

Désolé la copie écran n'a pas marché!



Modifié par ximi le 30/06/2019 12:10
Page : [1] 
Page 1 sur 1

Vous devez être connecté pour poster des messages. Cliquez ici pour vous identifier.

Vous n'avez pas de compte ? Créez-en un gratuitement !


Les bons plans du moment PC Astuces

Tous les Bons Plans
92,35 €Disque dur externe portable Maxtor M3 USB 3.0 4 To à 92,35 €
Valable jusqu'au 28 Février

Amazon propose actuellement le disque dur externe portable Seagate M3 4 To à 92,35 € livré gratuitement. Le disque dur dispose d'une connectique USB 3.0 compatible USB 2.0 et offre des débits d'environ 115 Mo/s en lecture et écriture. Seagate ayant racheté les branches disques durs de Samsung et Maxtor, vous pouvez donc trouver le logo Maxtor, Samsung ou Seagate sur ce disque dur M3. 


> Voir l'offre
GratuitJeu PC Faeria gratuit
Valable jusqu'au 27 Février

Epic Game Store offre actuellement le jeu PC Faeria. Faeria est un jeu de cartes. Construisez des decks incroyables et façonnez le champ de bataille dans des combats épiques. Élevez des montagnes, bâtissez des forêts, remplissez des lacs, ou maîtrisez le sable du désert. Tracez votre propre chemin vers la victoire.


> Voir l'offre
169,99 €Lot de 2 écrans 24 pouces Samsung S24F354 (Full HD, PLS, 4 ms, FreeSync) à 169,99 €
Valable jusqu'au 26 Février

RueDuCommerce propose actuellement le lot de 2 écrans 24 pouces Samsung S24F354 à 169,99 € alors qu'on les trouve ailleurs à partir de 110 € l'unité. Ces écrans disposent d'une dalle PLS Full HD (1920x1080) et offrent un temps de réponse de 4 ms. Ils possèdent des entrées VGA et HDMI ainsi que des fonctions d'anti scintillement et anti lumière bleue.


> Voir l'offre

Sujets relatifs
Aucun sujet pertinent lié trouvé
 > Tous les forums > Forum Bureautique