× 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
34,06 €Compresseur portable autonome Xiaomi Mija à 34,06 €
Valable jusqu'au 29 Novembre

Boulanger fait une promotion sur le compresseur portable autonome Xiaomi Mija qui passe à 34,06 € avec le code promo VIP15. Ce compresseur à emporter facilement avec vous comporte un écran (où vous pourrez choisir la pression à atteindre en PSI ou BAR) une batterie de 2000 mA et vous permettra de gonfler vos jouets (41 pièces avec une charge), pneus de vélo, de trotinette, de moto (6 pneus avec une charge) et même de voiture (5 pneus avec une charge) facilement. Le câble est accompagné d'un embout pour valve Schrader et un adapteur Presta et une aiguille sont fournis. Le compresseur se recharge via une prise Micro USB.


> Voir l'offre
168,78 €Disque dur externe Western Digital Elements Desktop USB 3.0 10 To à 168,78 € livré
Valable jusqu'au 27 Novembre

Amazon Allemagne propose actuellement le disque dur externe Western Digital Elements Desktop USB 3.0 10 To à 162,35 € (avec la TVA ajustée) grâce à un code promo automatiquement appliqué au moment du paiement. Comptez 6,43 € pour la livraison en France soit un total de 168,78 € livré. On le trouve ailleurs à partir de 200 €. Ce disque dur dispose d'un grande capacité de stockage (10 To) et d'une connectique USB 3.0 qui vous offrira des transferts rapides. Il est compatible USB 2.0. Une très bonne affaire. Notez que le disque dur n'est pas soudé et que vous pouvez le récupérer pour l'utiliser dans un ordinateur ou un NAS (il s'agit d'un disque dur CMR UltraStar DC HC 510).

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


> Voir l'offre
29,99 €51 Worldwide Games sur Switch à 29,99 €
Valable jusqu'au 27 Novembre

Amazon fait une promotion sur le jeu Switch 51 Worldwide Games qui passe à 29,99 € livré gratuitement au lieu de 40 €. Echecs, dominos, fléchettes, poker, bowling, solitaire, mah-jong, … les plus grands jeux classiques du monde entier se donnent rendez-vous votre Nintendo switch avec 51 worldwide games !


> Voir l'offre

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