couleur rouge avec macro

Créer une discussion
Répondre

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
Trier par date Trier par votes
Re : couleur rouge avec macro

Re,

Donc si je comprend bien, tu veux que lors du balayage des cellules :
-> si la valeur contenu dans la cellule est comprise entre 0 et 5 => rouge
-> sinon (valeur pas incluse entre 0 et 5), si la cellule était au préalable en rouge, la mettre en vert clair?

Si oui, voici ci-dessous le code à mettre à la place du précédent :

Code: 
Sub Mise_En_Forme()

Dim k As Long, y As Byte
Application.ScreenUpdating = False
For k = 4 To 36
  If k = 13 Then k = 16
  If k = 25 Then k = 28
    For y = 7 To 26
      If Cells(k, y) > 0 And Cells(k, y) < 5 Then
        With Cells(k, y)
          .Interior.ColorIndex = 3
          .Font.ColorIndex = 2
        End With
[COLOR="Blue"]      Else : If  Cells(k, y).Interior.ColorIndex = 3 Then
        With Cells(k, y)
          .Interior.ColorIndex = 43
          .Font.ColorIndex = 2
        End With[/COLOR]
     End If
    Next
Next
Application.ScreenUpdating = True
End Sub

Macro à tester! Dis moi s'il y a un soucis.

Bonne fin de WE
 
Vote positif 0 Vote négatif
Re : couleur rouge avec macro

jeanpierre à dit:
Re,

Ok, alors réintègre une boucle en début de macro avec la solution de Excel-lent, mais cette fois sans test sur la valeur, voire même une selection de toute la plage et application de ta couleur verte sur cette plage et sans boucle.
Cliquez pour agrandir...

escuse moi Jean-Pierre mais est ce que tu pourais pas me l'écrire s'il te plait

merci beaucoup!!
 
Vote positif 0 Vote négatif
Re : couleur rouge avec macro

Re,

Tu as un très bon outil à disposition, c'est l'enregistreur de macro par Outil/Macro/Nouvelle macro...

Tu mets en route, tu fais ta manip.selection de la zone, mise en couleur vert ici et tu arrêtes l'enregistrement. Par Alt F11 tu vas pouvoir en voir le code.

Te reste à selectionner la ou les lignes qui t'intéressent et à les inclures en début de ton propre code. Quelques essais sur une copie de ton fichier et c'est bon.

C'est comme cela que l'on apprend.
 
Vote positif 0 Vote négatif
Re : couleur rouge avec macro

jeanpierre à dit:
Re,

Tu as un très bon outil à disposition, c'est l'enregistreur de macro par Outil/Macro/Nouvelle macro...

Tu mets en route, tu fais ta manip.selection de la zone, mise en couleur vert ici et tu arrêtes l'enregistrement. Par Alt F11 tu vas pouvoir en voir le code.

Te reste à selectionner la ou les lignes qui t'intéressent et à les inclures en début de ton propre code. Quelques essais sur une copie de ton fichier et c'est bon.

C'est comme cela que l'on apprend.
Cliquez pour agrandir...

ben je sais comment il faut faire pour modifier une macro et l'enregistré
le bléme c'est que je sais pas ce que je doit ecrire exactement et ou dans la macro??
 
Vote positif 0 Vote négatif
Re : couleur rouge avec macro

Re,

Il ne s'agit pas ici, du moins dans un premier temps, de modifier une macro et de l'enregistrer.

Il s'agit de l'écrire mais avec l'aide de l'enregistreur. Ceci fait tu auras dans le corps du code 2 ou 3 lignes qui vont t'intéresser. Ce sont ces lignes que tu recopieras en début de ta macro principale.
 
Vote positif 0 Vote négatif
Re : couleur rouge avec macro

jeanpierre à dit:
Re,

Il ne s'agit pas ici, du moins dans un premier temps, de modifier une macro et de l'enregistrer.

Il s'agit de l'écrire mais avec l'aide de l'enregistreur. Ceci fait tu auras dans le corps du code 2 ou 3 lignes qui vont t'intéresser. Ce sont ces lignes que tu recopieras en début de ta macro principale.
Cliquez pour agrandir...

ben oui Jean-Pierre je voi bien que toi tu est fort en macro et ça te parrais simple mais moi je m'y connais pas mal en excel mais ça c'est des codes que je connais pas !
 
Vote positif 0 Vote négatif
Re : couleur rouge avec macro

Excel-lent à dit:
Re,

Donc si je comprend bien, tu veux que lors du balayage des cellules :
-> si la valeur contenu dans la cellule est comprise entre 0 et 5 => rouge
-> sinon (valeur pas incluse entre 0 et 5), si la cellule était au préalable en rouge, la mettre en vert clair?

Si oui, voici ci-dessous le code à mettre à la place du précédent :

Code: 
Sub Mise_En_Forme()

Dim k As Long, y As Byte
Application.ScreenUpdating = False
For k = 4 To 36
  If k = 13 Then k = 16
  If k = 25 Then k = 28
    For y = 7 To 26
      If Cells(k, y) > 0 And Cells(k, y) < 5 Then
        With Cells(k, y)
          .Interior.ColorIndex = 3
          .Font.ColorIndex = 2
        End With
[COLOR="Blue"]     [COLOR="Red"] Else : If  Cells(k, y).Interior.ColorIndex = 3 Then[/COLOR]        With Cells(k, y)
          .Interior.ColorIndex = 43
          .Font.ColorIndex = 2
        End With[/COLOR]
     End If
    Next
Next
Application.ScreenUpdating = True
End Sub

Macro à tester! Dis moi s'il y a un soucis.

Bonne fin de WE
Cliquez pour agrandir...

j'ai teste ton code Excel-lent il y a une ereure ou c'est ecrit en rouge
 
Vote positif 0 Vote négatif
Re : couleur rouge avec macro

Bonjour le fil,

Cette fois-ci, j'ai pris le temps d'ouvrir ton fichier, y mettre ma macro et la tester!

Voici ci-dessous mon code corrigé et un peu raccourci.

Code: 
Sub Test()

Dim k As Long, y As Byte
Application.ScreenUpdating = False
For k = 4 To 36
  If k = 13 Then k = 16
  If k = 25 Then k = 28
    For y = 7 To 26
      If Cells(k, y) > 0 And Cells(k, y) < 5 Then
        With Cells(k, y)
          .Interior.ColorIndex = 3
          .Font.ColorIndex = 2
      Else
        If .Interior.ColorIndex = 3 Then
             .Interior.ColorIndex = 43
             .Font.ColorIndex = 2
         End With
         End If
      End If
    Next
Next
Application.ScreenUpdating = True
End Sub

Bonne fin de semaine.
 
Vote positif 0 Vote négatif
Re : couleur rouge avec macro

Re,

Il ne s'agit pas d'être fort, encore que cela aide, mais d'utiliser les outils à disposition.

Sur le code de Pierre Olivier, voilà ce que j'ai fait :

1) Outils/Macro/Nouvelle macro
2) Selection des plages à la souris, la première et ensuite avec la touche Ctrl la deuxième et pareil pour la troisième
3) Application de la couleur verte avec le pot de peinture de la barre à outils Mise en forme, choix de Automatique pour la Police de caractère.
4) Arrêt de l'enregistrement, soit par le petit carré noir de la barre d'outils qui s'était ouverte au début, soit par Outils/Macro/Arrêter l'enregistrement.

J'obtiens des lignes :

Range("G4:Z12,G16:Z24").Select
Range("G16").Activate
ActiveWindow.SmallScroll Down:=9
Range("G4:Z12,G16:Z24,G28:Z36").Select
Range("G28").Activate
 Selection.Interior.ColorIndex = 35
Selection.Font.ColorIndex = 0

J'ai mis en rouge l'inutile car ce qui intéresse c'est la selection et ensuite la mise en couleur de la cellule et de la police.

J'ai ensuite intégré ces 3 lignes juste après le : Application.ScreenUpdating = False du code de Pierre Olivier.

Il n'y a rien de sorcier, simplement une démarche volontaire, mais très simple et sans rien connaître.

Bon courage.

Jean-Pierre
 
Vote positif 0 Vote négatif
Re : couleur rouge avec macro

Re,

Pour information, tu n'as rien dis concernant les cellules vertes, donc la macro ne les traite pas.

C'est à dire :
-> qu'au début de l'exécution de la macro, une cellule rouge qui correspond plus aux critéres, elle deviendra verte, montrant ainsi que la fois précédente elle répondait aux conditions.

Mais également :
-> qu'au début de l'exécution de la macro, une cellule verte (donc qui correspondait aux critères la fois précédente) restera verte.

Donc il suffit que la cellule est répondu un jour aux critères pour être verte.

C'est ce que tu veux?

Au sujet de l'enregistreur de macro, au début, tu auras du mal à savoir quelles lignes sont inutiles, mais tu verras, ça vient vite avec un peu d'implication et beaucoup de test. Mais sinon, ne panique pas, si tu laisses les lignes inutiles, dans 99% des cas ta macro fonctionnera quand même très bien!

Courage
 
Vote positif 0 Vote négatif
Re : couleur rouge avec macro

Bonsoir à tous,

Un peu, beaucoup à la bourre 😱. Mais pour illustrer les propos de jeanpierre voici la macro sans le .select qui n'est pas utile.

Code: 
Sub Mise_En_Forme()

Dim k As Long, y As Byte
Application.ScreenUpdating = False

With Range("G4:Z12,G16:Z24,G28:Z36")
  .Interior.ColorIndex = 35
  .Font.ColorIndex = 0
End With

For k = 4 To 36
  If k = 13 Then k = 16
  If k = 25 Then k = 28
    For y = 7 To 26
      If Cells(k, y) > 0 And Cells(k, y) < 5 Then
        With Cells(k, y)
          .Interior.ColorIndex = 3
          .Font.ColorIndex = 2
        End With
      End If
    Next
Next
Application.ScreenUpdating = True
End Sub

A+
 
Vote positif 0 Vote négatif
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

D
  • Résolu(e)
Microsoft 365 chercher une cellule de couleur rouge dans une colonne
Réponses
4
Affichages
444
sylvanu
sylvanu
U
  • Résolu(e)
Microsoft 365 Créer un graphique avec segment chronologique
Réponses
2
Affichages
553
Utilisateur_X
U
W
  • Question Question
Microsoft 365 Macro pour un bilan fonctionnement coloré
Réponses
3
Affichages
142
sylvanu
sylvanu
C
  • Question Question
XL 2021 Exporter des données vers une autre feuille...
Réponses
7
Affichages
231
sylvanu
sylvanu
E
  • Question Question
Microsoft 365 couleur et ligne
Réponses
6
Affichages
299
cathodique
cathodique
Philarête
  • Question Question
XL pour MAC Mise en forme conditionnelle de cellules adjacentes en fonction du contenu d'une cellule
Réponses
8
Affichages
398
sylvanu
sylvanu
T
  • Résolu(e)
Microsoft 365 Macro pour changer la couleur d'une cellule si...
2 3
Réponses
36
Affichages
2 K
Toubabou
T
jeff1494
  • Résolu(e)
XL 2021 Export d'un Userform au format Docx;
3 4 5
Réponses
60
Affichages
2 K
job75
job75
A
  • Question Question
XL 2013 Création de planning en 3x8 pour 11 agents
Réponses
0
Affichages
210
Atexide
A
A
  • Question Question
XL 2013 Création d'un planning en 3x8 sur l'année 2026
2
Réponses
29
Affichages
1 K
Atexide
A
P
  • Question Question
Microsoft 365 Mettre en surbrillance les trois cellules avec les plus grandes valeurs
Réponses
4
Affichages
302
Perceval973
P
Magnio
  • Résolu(e)
Microsoft 365 Pointer vers une Ligne/Case selon une sélection
Réponses
10
Affichages
416
Magnio
Magnio
M
  • Résolu(e)
Microsoft 365 Erreur inexplicable
Réponses
3
Affichages
241
Marie L
M
A
  • Question Question
XL 2016 Suppression contenu d'une plage de cellules en fonction de leur valeur
Réponses
4
Affichages
278
TooFatBoy
TooFatBoy
D
  • Question Question
Microsoft 365 recherche avec critère variable
Réponses
13
Affichages
384
ALS35
A
Francoise_nord
  • Question Question
XL 2021 Besoin aide sur macro en VBA
Réponses
0
Affichages
276
Francoise_nord
Francoise_nord
B
  • Question Question
XL 2021 VBA pour générer une liste de valeurs comprise entre 2 valeurs
2
Réponses
16
Affichages
794
benjy555
B
C
  • Question Question
XL 2021 Mettre en couleur un texte dans listbox
Réponses
9
Affichages
843
ChTi160
ChTi160
anthoYS
  • Résolu(e)
XL 2019 colorer les différents aliments avec un code VB pour macro de ce genre ?
2
Réponses
16
Affichages
649
anthoYS
anthoYS
W
  • Résolu(e)
XL 2016 Changer la taille, la couleur, la graisse d'une partie du contenu de cellule
Réponses
5
Affichages
394
job75
job75
Retour