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
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
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
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
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
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
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" <xyz@wanadoo.fr> a écrit dans le message de news:
482ea8c7$0$860$ba4acef3@news.orange.fr...
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
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
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
Merci de me repondre
Comment je fais pour tester la condition?
"anonymousA" <anonymousA@wanadoo.fr> a écrit dans le message de news:
482eaf61$0$908$ba4acef3@news.orange.fr...
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
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
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
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" <anonymousA@wanadoo.fr> a écrit dans le message de news:
482eaf61$0$908$ba4acef3@news.orange.fr...
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
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
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
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" <xyz@wanadoo.fr> a écrit dans le message de news:
482eb0b5$0$883$ba4acef3@news.orange.fr...
Merci de me repondre
Comment je fais pour tester la condition?
"anonymousA" <anonymousA@wanadoo.fr> a écrit dans le message de news:
482eaf61$0$908$ba4acef3@news.orange.fr...
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
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
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
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
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
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
ma condition c'est:
la formule est =ET(D36<>"";D37="") cela met la cela en couleur 44 si la
condition est vrai
"Jacky" <Dupond@marcel.fr> a écrit dans le message de news:
%23vITGaAuIHA.4528@TK2MSFTNGP03.phx.gbl...
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" <xyz@wanadoo.fr> a écrit dans le message de news:
482ea8c7$0$860$ba4acef3@news.orange.fr...
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
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
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
Re...
Sur quelle plage ??
--
Salutations
JJ
"yan" <xyz@wanadoo.fr> a écrit dans le message de news:
482eb536$0$911$ba4acef3@news.orange.fr...
ma condition c'est:
la formule est =ET(D36<>"";D37="") cela met la cela en couleur 44 si la
condition est vrai
"Jacky" <Dupond@marcel.fr> a écrit dans le message de news:
%23vITGaAuIHA.4528@TK2MSFTNGP03.phx.gbl...
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" <xyz@wanadoo.fr> a écrit dans le message de news:
482ea8c7$0$860$ba4acef3@news.orange.fr...
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
"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
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
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" <Dupond@marcel.fr> a écrit dans le message de news:
%23kWaltAuIHA.420@TK2MSFTNGP02.phx.gbl...
Re...
Sur quelle plage ??
--
Salutations
JJ
"yan" <xyz@wanadoo.fr> a écrit dans le message de news:
482eb536$0$911$ba4acef3@news.orange.fr...
ma condition c'est:
la formule est =ET(D36<>"";D37="") cela met la cela en couleur 44 si
la condition est vrai
"Jacky" <Dupond@marcel.fr> a écrit dans le message de news:
%23vITGaAuIHA.4528@TK2MSFTNGP03.phx.gbl...
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" <xyz@wanadoo.fr> a écrit dans le message de news:
482ea8c7$0$860$ba4acef3@news.orange.fr...
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
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
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
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" <Dupond@marcel.fr> a écrit dans le message de news:
eB%23lh6AuIHA.3564@TK2MSFTNGP03.phx.gbl...
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" <Dupond@marcel.fr> a écrit dans le message de news:
%23kWaltAuIHA.420@TK2MSFTNGP02.phx.gbl...
Re...
Sur quelle plage ??
--
Salutations
JJ
"yan" <xyz@wanadoo.fr> a écrit dans le message de news:
482eb536$0$911$ba4acef3@news.orange.fr...
ma condition c'est:
la formule est =ET(D36<>"";D37="") cela met la cela en couleur 44 si
la condition est vrai
"Jacky" <Dupond@marcel.fr> a écrit dans le message de news:
%23vITGaAuIHA.4528@TK2MSFTNGP03.phx.gbl...
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" <xyz@wanadoo.fr> a écrit dans le message de news:
482ea8c7$0$860$ba4acef3@news.orange.fr...
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
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