couleur rouge avec macro

phil59110 · 29 Janvier 2009

bonjour a tous et a toutes!!!

voila est ce qu'il serais possible de colorier des celules avec une macro don les valeurs son inférieur a 5

je joint un petit fichier pour l'exemple

Merci Beaucoup!!

Excel-lent · 1 Février 2009

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

phil59110 · 1 Février 2009

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.

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

merci beaucoup!!

jeanpierre · 1 Février 2009

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.

phil59110 · 1 Février 2009

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.

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??

jeanpierre · 1 Février 2009

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.

phil59110 · 1 Février 2009

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.

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 !

phil59110 · 1 Février 2009

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

j'ai teste ton code Excel-lent il y a une ereure ou c'est ecrit en rouge

Excel-lent · 1 Février 2009

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.

jeanpierre · 1 Février 2009

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

Excel-lent · 1 Février 2009

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

phil59110 · 1 Février 2009

Re : couleur rouge avec macro

ben je vais faire tout ça et je vous dit quoi!!
je vous remerci beaucoup super sympa!!!!!!

phil59110 · 1 Février 2009

Re : couleur rouge avec macro

ça y est ça marche avec vos deux exemples ben comme ça au depart ça parrait dificile
mais aprés c'est vrai que parfois c'est tout bette!

merci beaucoup Excel-lent et Jean-Pierre !!!!!!!!!!

jeanpierre · 1 Février 2009

Re : couleur rouge avec macro

Re phil,

Ton enthousiasme fait plaisir à voir ou du moins à lire.

Tu as pris la bonne route... Alors bon vent pour la suite, mais, tous, toujours là pour t'aider.

phil59110 · 1 Février 2009

Re : couleur rouge avec macro

jeanpierre à dit:
Re phil,

Ton enthousiasme fait plaisir à voir ou du moins à lire.

Tu as pris la bonne route... Alors bon vent pour la suite, mais, tous, toujours là pour t'aider.

merci Jean-Pierre ça fait plaisir des paroles comme ça!!!!!!!

bqtr · 4 Février 2009

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+

couleur rouge avec macro

phil59110

XLDnaute Occasionnel

Pièces jointes

Excel-lent

XLDnaute Barbatruc

phil59110

XLDnaute Occasionnel

jeanpierre

Nous a quitté

phil59110

XLDnaute Occasionnel

jeanpierre

Nous a quitté

phil59110

XLDnaute Occasionnel

phil59110

XLDnaute Occasionnel

Excel-lent

XLDnaute Barbatruc

jeanpierre

Nous a quitté

Excel-lent

XLDnaute Barbatruc

phil59110

XLDnaute Occasionnel

phil59110

XLDnaute Occasionnel

jeanpierre

Nous a quitté

phil59110

XLDnaute Occasionnel

bqtr

XLDnaute Accro

Discussions similaires

couleur rouge avec macro

XLDnaute Occasionnel

Pièces jointes

XLDnaute Barbatruc

XLDnaute Occasionnel

Nous a quitté

XLDnaute Occasionnel

Nous a quitté

XLDnaute Occasionnel

XLDnaute Occasionnel

XLDnaute Barbatruc

Nous a quitté

XLDnaute Barbatruc

XLDnaute Occasionnel

XLDnaute Occasionnel

Nous a quitté

XLDnaute Occasionnel

XLDnaute Accro

Discussions similaires

Privacy & Transparency

Privacy & Transparency