Couleur de Texte

Le
Guillaume
Bonjour

J'ai en A1 un texte ecrit en noir par défaut
en A2 j'ai du texte qui est en rouge de par une mise en forme conditionnelle

Je voudrais en VBA lui dire que Si une cellule en A n'est pas noire alors
faire ceci ou cela
J'uitlise

1°) If Range("A2").Font.Color <> RGB (0,0,0) Then
2°) If Range("A2").Font.ColorIndex <> 0 Then

Mais rien de tout ça fonctionne.

Pouvez vous m'eclairer.
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
isabelle
Le #20661241
bonjour Guillaume,

With Range("IV65536")
.FormulaLocal = [A2].FormatConditions(1).Formula1
If [IV65536] Then MsgBox "VRAI" 'action
.Clear
End With

isabelle

Guillaume a écrit :
Bonjour

J'ai en A1 un texte ecrit en noir par défaut
en A2 j'ai du texte qui est en rouge de par une mise en forme conditionnelle

Je voudrais en VBA lui dire que Si une cellule en A n'est pas noire alors
faire ceci ou cela
J'uitlise

1°) If Range("A2").Font.Color <> RGB (0,0,0) Then
2°) If Range("A2").Font.ColorIndex <> 0 Then

Mais rien de tout ça fonctionne.

Pouvez vous m'eclairer.





Nectoux Guillaume
Le #20661601
Merci isabelle!
Pourrais tu me décortiquer un peu ton code que je puisse le faire moi même
une prochaine fois...


"isabelle" a écrit dans le message de news:
%
bonjour Guillaume,

With Range("IV65536")
.FormulaLocal = [A2].FormatConditions(1).Formula1
If [IV65536] Then MsgBox "VRAI" 'action
.Clear
End With

isabelle

Guillaume a écrit :
Bonjour

J'ai en A1 un texte ecrit en noir par défaut
en A2 j'ai du texte qui est en rouge de par une mise en forme
conditionnelle

Je voudrais en VBA lui dire que Si une cellule en A n'est pas noire alors
faire ceci ou cela
J'uitlise

1°) If Range("A2").Font.Color <> RGB (0,0,0) Then
2°) If Range("A2").Font.ColorIndex <> 0 Then

Mais rien de tout ça fonctionne.

Pouvez vous m'eclairer.






isabelle
Le #20664001
bonjour Guillaume,

j'ai utilisé la cellule "IV65536" pour calculer la formule
de la mfc (si c'est une formule dans la mfc)

With Range("IV65536")
.FormulaLocal = [A2].FormatConditions(1).Formula1

vérifier si la cellule contient la valeur "Vrai"
If [IV65536] Then MsgBox "VRAI" 'action

efface tout la cellule "IV65536"
.Clear
End With

isabelle



Nectoux Guillaume a écrit :
Merci isabelle!
Pourrais tu me décortiquer un peu ton code que je puisse le faire moi même
une prochaine fois...


"isabelle" a écrit dans le message de news:
%

bonjour Guillaume,

With Range("IV65536")
.FormulaLocal = [A2].FormatConditions(1).Formula1
If [IV65536] Then MsgBox "VRAI" 'action
.Clear
End With

isabelle

Guillaume a écrit :

Bonjour

J'ai en A1 un texte ecrit en noir par défaut
en A2 j'ai du texte qui est en rouge de par une mise en forme
conditionnelle

Je voudrais en VBA lui dire que Si une cellule en A n'est pas noire alors
faire ceci ou cela
J'uitlise

1°) If Range("A2").Font.Color <> RGB (0,0,0) Then
2°) If Range("A2").Font.ColorIndex <> 0 Then

Mais rien de tout ça fonctionne.

Pouvez vous m'eclairer.












Guillaume
Le #20667611
Ca marche pas et pourtant le texte est en rouge donc il répond bien à la
formule de la mfc!!!

Et au fait pourquoi mon code ne fonctionne pas????


"isabelle" a écrit dans le message de news:
%
bonjour Guillaume,

j'ai utilisé la cellule "IV65536" pour calculer la formule de la mfc (si
c'est une formule dans la mfc)

With Range("IV65536")
.FormulaLocal = [A2].FormatConditions(1).Formula1

vérifier si la cellule contient la valeur "Vrai"
If [IV65536] Then MsgBox "VRAI" 'action

efface tout la cellule "IV65536"
.Clear
End With

isabelle



Nectoux Guillaume a écrit :
Merci isabelle!
Pourrais tu me décortiquer un peu ton code que je puisse le faire moi
même une prochaine fois...


"isabelle" a écrit dans le message de news:
%

bonjour Guillaume,

With Range("IV65536")
.FormulaLocal = [A2].FormatConditions(1).Formula1
If [IV65536] Then MsgBox "VRAI" 'action
.Clear
End With

isabelle

Guillaume a écrit :

Bonjour

J'ai en A1 un texte ecrit en noir par défaut
en A2 j'ai du texte qui est en rouge de par une mise en forme
conditionnelle

Je voudrais en VBA lui dire que Si une cellule en A n'est pas noire
alors faire ceci ou cela
J'uitlise

1°) If Range("A2").Font.Color <> RGB (0,0,0) Then
2°) If Range("A2").Font.ColorIndex <> 0 Then

Mais rien de tout ça fonctionne.

Pouvez vous m'eclairer.














isabelle
Le #20667111
difficile de répondre sans voir le fichier, tu le met sur ci-joint ?
isabelle

Guillaume a écrit :
Ca marche pas et pourtant le texte est en rouge donc il répond bien à la
formule de la mfc!!!

Et au fait pourquoi mon code ne fonctionne pas????


"isabelle" a écrit dans le message de news:
%

bonjour Guillaume,

j'ai utilisé la cellule "IV65536" pour calculer la formule de la mfc (si
c'est une formule dans la mfc)

With Range("IV65536")
.FormulaLocal = [A2].FormatConditions(1).Formula1

vérifier si la cellule contient la valeur "Vrai"
If [IV65536] Then MsgBox "VRAI" 'action

efface tout la cellule "IV65536"
.Clear
End With

isabelle



Nectoux Guillaume a écrit :

Merci isabelle!
Pourrais tu me décortiquer un peu ton code que je puisse le faire moi
même une prochaine fois...


"isabelle" a écrit dans le message de news:
%


bonjour Guillaume,

With Range("IV65536")
.FormulaLocal = [A2].FormatConditions(1).Formula1
If [IV65536] Then MsgBox "VRAI" 'action
.Clear
End With

isabelle

Guillaume a écrit :


Bonjour

J'ai en A1 un texte ecrit en noir par défaut
en A2 j'ai du texte qui est en rouge de par une mise en forme
conditionnelle

Je voudrais en VBA lui dire que Si une cellule en A n'est pas noire
alors faire ceci ou cela
J'uitlise

1°) If Range("A2").Font.Color <> RGB (0,0,0) Then
2°) If Range("A2").Font.ColorIndex <> 0 Then

Mais rien de tout ça fonctionne.

Pouvez vous m'eclairer.



















Guillaume
Le #20667091
Voici le lien.
http://www.cijoint.fr/cjlink.php?file=cj200911/cijawUddY6.xls

En A et B de la feuille2 on a les dates et les jours.
2 macros: Macro 8 (que j'utiliser pour essayer un bout de code. Quand ça me
plait, je l'intègre dans "copie cellule".

"copie cellule" qui copie la colonne A et B en D et E et qui trie D et E
selon E
Une MEFC pour que le sjours ferie se colorent en rouge selon la formule
=NB.SI(Feries;D17)>0
les jours feries etant en feuille 4

en I1, l'année a changer pour générer les dates en A1.
L'idee est de dire a la macro de numéroter de 1 a 19 en G1 a G365 sauf quand
le jour est ferie c'est a dire quand la date est en rouge. Je voulais
utiliser la couleur car je ne sais pas dire en VBA: "si la cellule Dx répond
a la formule NB.SI(Feries;Dx)>0" alors ...

D'ailleur si quelqu'un peut me répondre: existe il qqch comme if formula
D2... then...

Merci a tous


"isabelle" a écrit dans le message de news:

difficile de répondre sans voir le fichier, tu le met sur ci-joint ?
isabelle

Guillaume a écrit :
Ca marche pas et pourtant le texte est en rouge donc il répond bien à la
formule de la mfc!!!

Et au fait pourquoi mon code ne fonctionne pas????


"isabelle" a écrit dans le message de news:
%

bonjour Guillaume,

j'ai utilisé la cellule "IV65536" pour calculer la formule de la mfc (si
c'est une formule dans la mfc)

With Range("IV65536")
.FormulaLocal = [A2].FormatConditions(1).Formula1

vérifier si la cellule contient la valeur "Vrai"
If [IV65536] Then MsgBox "VRAI" 'action

efface tout la cellule "IV65536"
.Clear
End With

isabelle



Nectoux Guillaume a écrit :

Merci isabelle!
Pourrais tu me décortiquer un peu ton code que je puisse le faire moi
même une prochaine fois...


"isabelle" a écrit dans le message de news:
%


bonjour Guillaume,

With Range("IV65536")
.FormulaLocal = [A2].FormatConditions(1).Formula1
If [IV65536] Then MsgBox "VRAI" 'action
.Clear
End With

isabelle

Guillaume a écrit :


Bonjour

J'ai en A1 un texte ecrit en noir par défaut
en A2 j'ai du texte qui est en rouge de par une mise en forme
conditionnelle

Je voudrais en VBA lui dire que Si une cellule en A n'est pas noire
alors faire ceci ou cela
J'uitlise

1°) If Range("A2").Font.Color <> RGB (0,0,0) Then
2°) If Range("A2").Font.ColorIndex <> 0 Then

Mais rien de tout ça fonctionne.

Pouvez vous m'eclairer.





















isabelle
Le #20667071
bonjour Guillaume,

essai celui-ci :
http://www.cijoint.fr/cjlink.php?file=cj200911/cijTfQ6CTZ.xls

isabelle

Guillaume a écrit :
Voici le lien.
http://www.cijoint.fr/cjlink.php?file=cj200911/cijawUddY6.xls

En A et B de la feuille2 on a les dates et les jours.
2 macros: Macro 8 (que j'utiliser pour essayer un bout de code. Quand ça me
plait, je l'intègre dans "copie cellule".

"copie cellule" qui copie la colonne A et B en D et E et qui trie D et E
selon E
Une MEFC pour que le sjours ferie se colorent en rouge selon la formule
=NB.SI(Feries;D17)>0
les jours feries etant en feuille 4

en I1, l'année a changer pour générer les dates en A1.
L'idee est de dire a la macro de numéroter de 1 a 19 en G1 a G365 sauf quand
le jour est ferie c'est a dire quand la date est en rouge. Je voulais
utiliser la couleur car je ne sais pas dire en VBA: "si la cellule Dx répond
a la formule NB.SI(Feries;Dx)>0" alors ...

D'ailleur si quelqu'un peut me répondre: existe il qqch comme if formula
D2... then...

Merci a tous


"isabelle" a écrit dans le message de news:


difficile de répondre sans voir le fichier, tu le met sur ci-joint ?
isabelle

Guillaume a écrit :

Ca marche pas et pourtant le texte est en rouge donc il répond bien à la
formule de la mfc!!!

Et au fait pourquoi mon code ne fonctionne pas????


"isabelle" a écrit dans le message de news:
%


bonjour Guillaume,

j'ai utilisé la cellule "IV65536" pour calculer la formule de la mfc (si
c'est une formule dans la mfc)

With Range("IV65536")
.FormulaLocal = [A2].FormatConditions(1).Formula1

vérifier si la cellule contient la valeur "Vrai"
If [IV65536] Then MsgBox "VRAI" 'action

efface tout la cellule "IV65536"
.Clear
End With

isabelle



Nectoux Guillaume a écrit :


Merci isabelle!
Pourrais tu me décortiquer un peu ton code que je puisse le faire moi
même une prochaine fois...


"isabelle" a écrit dans le message de news:
%



bonjour Guillaume,

With Range("IV65536")
.FormulaLocal = [A2].FormatConditions(1).Formula1
If [IV65536] Then MsgBox "VRAI" 'action
.Clear
End With

isabelle

Guillaume a écrit :



Bonjour

J'ai en A1 un texte ecrit en noir par défaut
en A2 j'ai du texte qui est en rouge de par une mise en forme
conditionnelle

Je voudrais en VBA lui dire que Si une cellule en A n'est pas noire
alors faire ceci ou cela
J'uitlise

1°) If Range("A2").Font.Color <> RGB (0,0,0) Then
2°) If Range("A2").Font.ColorIndex <> 0 Then

Mais rien de tout ça fonctionne.

Pouvez vous m'eclairer.

























Publicité
Poster une réponse
Anonyme