couleur rouge avec macro

[phil59110]

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

 

[dixit]

Re : couleur rouge avec macro

bonjour,
pourquoi ne pas utiliser la Mise en Forme Conditionnelle, bien plus simple ?
quelques exemples ICI : Ce lien n'existe plus
bye

 

[phil59110]

Re : couleur rouge avec macro

bonjour,
pourquoi ne pas utiliser la Mise en Forme Conditionnelle, bien plus simple ?
quelques exemples ICI : Ce lien n'existe plus
bye

ben oui je sais mais dans les tableaux j'ai déja 3 format conditionnelle!!

merci

 

[phil59110]

Re : couleur rouge avec macro

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

personne qui pouraus maider?

 

[bqtr]

Re : couleur rouge avec macro

Bonsoir,

Voici un exemple : A part lister les cellules une par une je vois pas trop d'autres solutions. Si tu n'as que trois tableaux ça devrait pas être trop long à tester

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
      End If
    Next
Next
Application.ScreenUpdating = True
End Sub

A+

 

[phil59110]

Re : couleur rouge avec macro

Merci mille fois Bqtr ça fonctionne Super!!!!!!

bonne journnée a Toi!!!

 

[esftel]

Re : couleur rouge avec macro

Salut le forum,

ma réponse est un peu tardive, je n'ai plus de connection depuis hier.

Enfin mieux tard que jamais 😱

Sub couleurouge()

Range("G4:Z12, G16:Z24, G28:Z36").Select

For Each cell In Selection
    If cell < 5 And IsNumeric(cell) Then cell.Interior.ColorIndex = 3
    If cell = "" Then cell.Interior.ColorIndex = 35
Next cell

Range("A1").Select

End Sub

 

[phil59110]

Re : couleur rouge avec macro

Salut le forum,

ma réponse est un peu tardive, je n'ai plus de connection depuis hier.

Enfin mieux tard que jamais 😱

Sub couleurouge()

Range("G4:Z12, G16:Z24, G28:Z36").Select

For Each cell In Selection
    If cell < 5 And IsNumeric(cell) Then cell.Interior.ColorIndex = 3
    If cell = "" Then cell.Interior.ColorIndex = 35
Next cell

Range("A1").Select

End Sub

merci beaucoup Esftel super!!
escuse moi d'avoir repondu un peut tardivemenent

 

[phil59110]

Re : couleur rouge avec macro

bonjour a tous et a toutes

me revoila avec ma macro qui fait une couleur rouge selon une valeur
ya Bqtr et Esftel qui mon donner deux macro qui von super bien !!!

mais est ce qu'il serais pas possible de modifier l'une ou l'autre des macro pour qu'avant que les celules avec des valeur infrieure a 5 ce mette en rouge il y a une sorte de rafraichissement en vert claire dans les tableaux concerné
voici les deux macros:

Option Explicit

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 = 5
End With
End If
Next
Next
Application.ScreenUpdating = True
End Sub

Sub couleurouge()

Application.ScreenUpdating = False
Range("G4:Z12, G16:Z24, G28:Z36").Select

For Each cell In Selection
If cell < 5 And IsNumeric(cell) Then cell.Interior.ColorIndex = 3
If cell = "" Then cell.Interior.ColorIndex = 35
Next cell

Range("A1").Select
Application.ScreenUpdating = True
End Sub

merci beaucoup

 

[jeanpierre]

Re : couleur rouge avec macro

Bonjour phil59110, esftel, Pierre Olivier,

Désolé de m'immiscer, surtout sans solution, dans ce fil que j'ai suivi mais je ne vois pas trop l'intérêt.

Des cellules en vert que l'on veut passer au rouge, les solutions données fonctionnent, alors pourquoi passer du vert au vert clair, qui ne sera visible que quelques instants, et encore, à condition de rétablir le rafraîchissement d'écran entre temps.

Ne trouves-tu pas que la macro reste déjà assez longue à l'exécution ?

A te lire pour connaître cet intérêt.

Bon dimanche.

Jean-Pierre

 

[Excel-lent]

Re : couleur rouge avec macro

Bonjour Phil59110,

mais est ce qu'il serais pas possible de modifier l'une ou l'autre des macro pour qu'avant que les celules avec des valeur infrieure a 5 ce mette en rouge il y a une sorte de rafraichissement en vert claire dans les tableaux concerné

Je comprend pas bien ta demande!

Tu veux que pour les même conditions (valeurs comprise entre 0 et 5), que les cellules se colorie en vert en PREMIER?

Suffit de remplacer :

.Interior.ColorIndex = 3

par

[B].Interior.ColorIndex = [U]10[/U]   'ou [U]43[/U] : vert plus clair[/B]

Mais à quelle moment, alors, veux-tu colorier ces même cellules en rouge?

Edition : Bonjour Jean Pierre, je t'avais pas vu!

Bon dimanche

 

[jeanpierre]

Re : couleur rouge avec macro

Bonjour ou re Excel-lent,

Mêmes interrogations....

Bon dimanche aussi.

Jean-Pierre

 

[phil59110]

Re : couleur rouge avec macro

Bonjour phil59110, esftel, Pierre Olivier,

Désolé de m'immiscer, surtout sans solution, dans ce fil que j'ai suivi mais je ne vois pas trop l'intérêt.

Des cellules en vert que l'on veut passer au rouge, les solutions données fonctionnent, alors pourquoi passer du vert au vert clair, qui ne sera visible que quelques instants, et encore, à condition de rétablir le rafraîchissement d'écran entre temps.

Ne trouves-tu pas que la macro reste déjà assez longue à l'exécution ?

A te lire pour connaître cet intérêt.

Bon dimanche.

Jean-Pierre

bonjour Jean-Pierre
oui normallement tu aurais raison mais les valeur des tableaux son lier en faite a des formules et comme les valeurs change tout les jour il peut y avoir des lignes dans les tableaux de 20 chiffre comme 7 chiffres donc les celule qui onts était mise en rouge hier peuvent resté en rouge aujourd'hui alor qu'il n'y a pas de valeur dans la celule du faite que la ligne comporte aujourd'hui 7 chiffres et hier 16 par exemple d'ou cette demande de rafraichissement en vert claire pour que les celule qui non pas de valeur reste verte avant la mise en rouge des celules avec une valeur inferieur a 5

en esperant que mon explication te conviendra
merci de ton intérét!!!

 

[phil59110]

Re : couleur rouge avec macro

Bonjour Phil59110,



Je comprend pas bien ta demande!

Tu veux que pour les même conditions (valeurs comprise entre 0 et 5), que les cellules se colorie en vert en PREMIER?

Suffit de remplacer :

.Interior.ColorIndex = 3

par

[B].Interior.ColorIndex = [U]10[/U]   'ou [U]43[/U] : vert plus clair[/B]

Mais à quelle moment, alors, veux-tu colorier ces même cellules en rouge?

Edition : Bonjour Jean Pierre, je t'avais pas vu!

Bon dimanche

bonjour Excel-lent !
oui je sais que mes demande son pas toujour trés claire et je m'en escuse!
en faite je voudrais que la macro fait en quelque sorte un"rafraichissement" du tableau en vert claire juste avant de mettre les celule en rouge qui onts une valeur inférieur a 5

merci !!

 

[jeanpierre]

Re : couleur rouge avec macro

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.