× Aidez la recherche contre le COVID-19 avec votre ordi ! Rejoignez l'équipe PC Astuces Folding@home
 > 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
53,92 €Carte mémoire microSDXC UHS-I SanDisk Ultra 400 Go à 53,92 € livrée
Valable jusqu'au 24 Septembre

Amazon Allemagne propose la carte mémoire microSDHC UHS-I SanDisk Ultra 400 Go à 49,42 € (avec la TVA ajustée). Comptez 4,50 € pour la livraison en France, soit un total de 53,92 € livrée en France. On la trouve trouve ailleurs à partir de 80 €. Cette carte mémoire offre des vitesses jusqu'à 100 Mo/s et est idéale pour les téléphones, caméras et appareils photo HD. Elle est certifiée GoPro, Nintendo Switch et est accompagnée d'un adaptateur SD.

Vous pouvez utiliser votre compte Amazon France sur Amazon Allemagne et il n'y a pas de douanes. Si vous êtes perdu en allemand, vous pouvez traduire le site en anglais.


> Voir l'offre
89,99 €SSD Silicon Power A55 1 To à 89,99 €
Valable jusqu'au 24 Septembre

Amazon fait une promotion sur le SSD Silicon Power A55 1 To qui passe à 89,99 € livré gratuitement. Ce SSD à mémoire TLC possède un cache SLC et offre des taux de transfert de 550 Mo/s en lecture et 450 Mo/s en écriture. 


> Voir l'offre
9,49 €Visseuse sans fil TACKLIFE SDP60DC + 10 embouts à 9,49 € avec coupon
Valable jusqu'au 25 Septembre

Amazon propose la visseuse sans fil TACKLIFE SDP60DC 3.6 V (batterie li-ion 1500 mAh) et ses 10 embouts à 9,49 € seulement au lieu de 20 €. Pour profiter de cette offre, cochez la case Coupon Utiliser le coupon de réduction de 5% sur la page du produit. Le prix passera à 9,49 € sur la page de confirmation de commande.


> Voir l'offre

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