Macro conditionnelle

[gabyzedog]

Bonjour tout le monde,

Je voudrais faire que ma macro s'applique aux lignes colorées en jaune (font = 36)
En gros : if activecell (en jaune) = ... (100, 0 ou entre les 2) alors celle du dessus (offset (-1,0)) soit dans la couleur adaptée (vert, rouge, bleu)
Mais je ne vois pas comment formuler l'application seulement aux lignes jaunes ?

Voici la macro actuelle :

Sub Couleur2()
Dim c As Variant
For m = 6 To 100
For n = 6 To 55
If Cells(m, n).Value = 100 Then
Cells(m, n).Offset(-1, 0).Font.ColorIndex = 43
Else
If Cells(m, n).Value = 0 Then
Cells(m, n).Offset(-1, 0).Font.ColorIndex = 3
Else
Cells(m, n).Offset(-1, 0).Font.ColorIndex = 5
End If
End If
Next
Next
End Sub


Merci d'avance

 

[Pierrot93]

Re : Macro conditionnelle

Bonjour,

peut être faire un test ainsi :

If Cells(1, 1).Interior.ColorIndex = 36 Then MsgBox "jaune..."

bonne journée
@+

 

[Paritec]

Re : Macro conditionnelle

bonjour Pierrot🙂 gabyzedog le forum
oui mais il ne traite que la valeur 100 ou 0 pas entre les deux hors il veut traiter de 0 à 100 ou alors j'ai rien compris
a+
papou🙂

 

[Pierrot93]

Re : Macro conditionnelle

Re, bonjour Pascal🙂

oui mais il ne traite que la valeur 100 ou 0 pas entre les deux hors il veut traiter de 0 à 100 ou alors j'ai rien compris

euh.. perso je donnais simplement un exemple afin de tester la couleur de la cellule...

 

[Paritec]

Re : Macro conditionnelle

re pierrot🙂 le forum,
en plus en relisant l'énoncé j'avais compris de travers!!!!! d' ou ma remarque!!!
bref bonne journée
a+
papou🙂

 

[gabyzedog]

Re : Macro conditionnelle

Re tout le monde,

Je viens de tester ça, mais ca ne tourne pas plus.

Sub Couleur2()
Dim c As Variant
For m = 6 To 100
For n = 6 To 55
If Cells(m, n).Interior.ColorIndex = 36 Then
If Cells(m, n).Value = 100 Then
Cells(m, n).Offset(-1, 0).Font.ColorIndex = 43
Else
If Cells(m, n).Value = 0 Then
Cells(m, n).Offset(-1, 0).Font.ColorIndex = 3
Else
Cells(m, n).Offset(-1, 0).Font.ColorIndex = 5
End If
End If
End If
Next
Next
End Sub

Est-ce-que ma macro s'applique bien à l'onglet actif, je ne sais plus comment formuler avec activesheet... (j'ai plusieurs pages où la macro doit s'appliquer)
ou le problème est ailleurs ?

 

[Pierrot93]

Re : Macro conditionnelle

Re,

Est-ce-que ma macro s'applique bien à l'onglet actif, je ne sais plus comment formuler avec activesheet

tout à fait, sauf à ce que le code soit placé dans un module de feuille, dans ce cas s'appliquera sur la feuille en question.....

bon après midi
@+

 

[gabyzedog]

Re : Macro conditionnelle

Arf j'me dégoutes 😉

Je sais pas si c'était ça le problème, mais ca marchait sur une page mais pas sur les autres (en TCD), donc j'ai repris la présentation de celle qui marchait et là, ça roule.
Je suis pas sur que ce soit la meilleure soluce à long terme, mais c'est déjà ça.

En tout cas merci pour votre aide.
++