Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel tester la couleur d'une cellule

tester la couleur d'une cellule

10 réponses
Avatar
yan
Bonjour a tous
Dans une procédure si j'écris ceci
For Each c In Selection
couleur = c.Interior.ColorIndex
je peut tester la couleur de la cellule.
Cela fonctionne si c'est moi qui ai mis la couleur
Comment faire si la cellule est mise en couleur par un format conditionnel?
Merci
Yan
Signaler un problème avec ce contenu

10 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
anonymousA
Bonjour,

Ce n'est pas possible dans ce cas de tester la couleur. Il te faut
tester la condition .

A+

Bonjour a tous
Dans une procédure si j'écris ceci
For Each c In Selection
couleur = c.Interior.ColorIndex
je peut tester la couleur de la cellule.
Cela fonctionne si c'est moi qui ai mis la couleur
Comment faire si la cellule est mise en couleur par un format conditionnel?
Merci
Yan




Avatar
Jacky
Bonjour,

Sauf à monter une usine à gaz, ce n'est pas possible
Utilise la même condition que celle utilisée pour la MFC
Sinon ici
http://www.excelabo.net/excel/conditionformat.php
Rubrique:
Récupérer la couleur appliquée par une MEFC

--
Salutations
JJ


"yan" a écrit dans le message de news:
482ea8c7$0$860$
Bonjour a tous
Dans une procédure si j'écris ceci
For Each c In Selection
couleur = c.Interior.ColorIndex
je peut tester la couleur de la cellule.
Cela fonctionne si c'est moi qui ai mis la couleur
Comment faire si la cellule est mise en couleur par un format
conditionnel?
Merci
Yan




Avatar
yan
Merci de me repondre
Comment je fais pour tester la condition?

"anonymousA" a écrit dans le message de news:
482eaf61$0$908$
Bonjour,

Ce n'est pas possible dans ce cas de tester la couleur. Il te faut tester
la condition .

A+

Bonjour a tous
Dans une procédure si j'écris ceci
For Each c In Selection
couleur = c.Interior.ColorIndex
je peut tester la couleur de la cellule.
Cela fonctionne si c'est moi qui ai mis la couleur
Comment faire si la cellule est mise en couleur par un format
conditionnel?
Merci
Yan





Avatar
Misange
c'est celle qui t'a servi à écrire ta mise en forme conditionnelle !
Si tu mets en rouge les cellule de valeur supérieure à 10, au lieu de
compter les cellules rouges tu comptes les cellules dans lequelles la
valeur est supérieure à 10. CQFD

Misange migrateuse
XlWiki : Participez à un travail collaboratif sur excel !
http://xlwiki.free.fr/wiki
http://www.excelabo.net

Merci de me repondre
Comment je fais pour tester la condition?

"anonymousA" a écrit dans le message de news:
482eaf61$0$908$
Bonjour,

Ce n'est pas possible dans ce cas de tester la couleur. Il te faut tester
la condition .

A+

Bonjour a tous
Dans une procédure si j'écris ceci
For Each c In Selection
couleur = c.Interior.ColorIndex
je peut tester la couleur de la cellule.
Cela fonctionne si c'est moi qui ai mis la couleur
Comment faire si la cellule est mise en couleur par un format
conditionnel?
Merci
Yan








Avatar
Jacky
Re..
La question qu'il faut se poser est:
Quel est la formule dans la MFC qui provoque la couleur ?
Et l'inclure dans la boucle
--
Salutations
JJ


"yan" a écrit dans le message de news:
482eb0b5$0$883$
Merci de me repondre
Comment je fais pour tester la condition?

"anonymousA" a écrit dans le message de news:
482eaf61$0$908$
Bonjour,

Ce n'est pas possible dans ce cas de tester la couleur. Il te faut tester
la condition .

A+

Bonjour a tous
Dans une procédure si j'écris ceci
For Each c In Selection
couleur = c.Interior.ColorIndex
je peut tester la couleur de la cellule.
Cela fonctionne si c'est moi qui ai mis la couleur
Comment faire si la cellule est mise en couleur par un format
conditionnel?
Merci
Yan








Avatar
LSteph
Bonjour,

il me semble plus rapide d'utiliser directement la condition et le
format associé.


justification:
Formatconditions peut revêtir différents formats et pas forcément la
couleur, d'ailleurs peutêtre cellule police bordures

Cela par exemple répondra le numéro de la coluleur même si la condition
n'est pas remplie

With ActiveCell.FormatConditions(1)
MsgBox .Interior.ColorIndex
End With


Et en + tu devra tester chaque condition!


@+

--
Bonjour a tous
Dans une procédure si j'écris ceci
For Each c In Selection
couleur = c.Interior.ColorIndex
je peut tester la couleur de la cellule.
Cela fonctionne si c'est moi qui ai mis la couleur
Comment faire si la cellule est mise en couleur par un format conditionnel?
Merci
Yan




Avatar
yan
ma condition c'est:
la formule est =ET(D36<>"";D37="") cela met la cela en couleur 44 si la
condition est vrai

"Jacky" a écrit dans le message de news:
%
Bonjour,

Sauf à monter une usine à gaz, ce n'est pas possible
Utilise la même condition que celle utilisée pour la MFC
Sinon ici
http://www.excelabo.net/excel/conditionformat.php
Rubrique:
Récupérer la couleur appliquée par une MEFC

--
Salutations
JJ


"yan" a écrit dans le message de news:
482ea8c7$0$860$
Bonjour a tous
Dans une procédure si j'écris ceci
For Each c In Selection
couleur = c.Interior.ColorIndex
je peut tester la couleur de la cellule.
Cela fonctionne si c'est moi qui ai mis la couleur
Comment faire si la cellule est mise en couleur par un format
conditionnel?
Merci
Yan








Avatar
Jacky
Re...
Sur quelle plage ??

--
Salutations
JJ


"yan" a écrit dans le message de news:
482eb536$0$911$
ma condition c'est:
la formule est =ET(D36<>"";D37="") cela met la cela en couleur 44 si la
condition est vrai

"Jacky" a écrit dans le message de news:
%
Bonjour,

Sauf à monter une usine à gaz, ce n'est pas possible
Utilise la même condition que celle utilisée pour la MFC
Sinon ici
http://www.excelabo.net/excel/conditionformat.php
Rubrique:
Récupérer la couleur appliquée par une MEFC

--
Salutations
JJ


"yan" a écrit dans le message de news:
482ea8c7$0$860$
Bonjour a tous
Dans une procédure si j'écris ceci
For Each c In Selection
couleur = c.Interior.ColorIndex
je peut tester la couleur de la cellule.
Cela fonctionne si c'est moi qui ai mis la couleur
Comment faire si la cellule est mise en couleur par un format
conditionnel?
Merci
Yan












Avatar
Jacky
Re...
Cela pourrait ressembler à ceci
'--------------
Sub jj()
Set plage = [e36:e100] ' a adapter
x = 0
For Each c In plage
If Cells(c.Row, 4) <> "" And Cells(c.Row + 1, 4) = "" Then
MsgBox "Cellule " & c.Address & " coupable" '**facultatif**
x = x + 1
End If
Next
MsgBox x & " Cellule(s) coupable(s)"
End Sub
'-----------------

--
Salutations
JJ


"Jacky" a écrit dans le message de news:
%
Re...
Sur quelle plage ??

--
Salutations
JJ


"yan" a écrit dans le message de news:
482eb536$0$911$
ma condition c'est:
la formule est =ET(D36<>"";D37="") cela met la cela en couleur 44 si
la condition est vrai

"Jacky" a écrit dans le message de news:
%
Bonjour,

Sauf à monter une usine à gaz, ce n'est pas possible
Utilise la même condition que celle utilisée pour la MFC
Sinon ici
http://www.excelabo.net/excel/conditionformat.php
Rubrique:
Récupérer la couleur appliquée par une MEFC

--
Salutations
JJ


"yan" a écrit dans le message de news:
482ea8c7$0$860$
Bonjour a tous
Dans une procédure si j'écris ceci
For Each c In Selection
couleur = c.Interior.ColorIndex
je peut tester la couleur de la cellule.
Cela fonctionne si c'est moi qui ai mis la couleur
Comment faire si la cellule est mise en couleur par un format
conditionnel?
Merci
Yan
















Avatar
yan
Merci a tous ceux qui m'ont aidé
J'ai trouvé une solution qui me convient en adaptant un peu de tout parmi
les solutions que vous m'avez apporté
Et finalement c'est pas trop usine a gaz!!
Bon week-end
A+
Yan

"Jacky" a écrit dans le message de news:
eB%
Re...
Cela pourrait ressembler à ceci
'--------------
Sub jj()
Set plage = [e36:e100] ' a adapter
x = 0
For Each c In plage
If Cells(c.Row, 4) <> "" And Cells(c.Row + 1, 4) = "" Then
MsgBox "Cellule " & c.Address & " coupable" '**facultatif**
x = x + 1
End If
Next
MsgBox x & " Cellule(s) coupable(s)"
End Sub
'-----------------

--
Salutations
JJ


"Jacky" a écrit dans le message de news:
%
Re...
Sur quelle plage ??

--
Salutations
JJ


"yan" a écrit dans le message de news:
482eb536$0$911$
ma condition c'est:
la formule est =ET(D36<>"";D37="") cela met la cela en couleur 44 si
la condition est vrai

"Jacky" a écrit dans le message de news:
%
Bonjour,

Sauf à monter une usine à gaz, ce n'est pas possible
Utilise la même condition que celle utilisée pour la MFC
Sinon ici
http://www.excelabo.net/excel/conditionformat.php
Rubrique:
Récupérer la couleur appliquée par une MEFC

--
Salutations
JJ


"yan" a écrit dans le message de news:
482ea8c7$0$860$
Bonjour a tous
Dans une procédure si j'écris ceci
For Each c In Selection
couleur = c.Interior.ColorIndex
je peut tester la couleur de la cellule.
Cela fonctionne si c'est moi qui ai mis la couleur
Comment faire si la cellule est mise en couleur par un format
conditionnel?
Merci
Yan