Bonjour,
Au lieu de nous demander de tester un code qui ne fonctionne pas comme
tu l'espères chez toi, pourquoi ne pas expliquer ce que tu veux fair e et
le résultat que tu veux obtenir.
Ceci dit, j'ai testé sommairement la macro et elle fonctionne.
La mise en forme conditionnelle :
Nom de la feuille : Feuil1
plage de cellules : A1:A4
Formule = A1>0
Et c'est bien ce que j'ai obtenu à partir de la macro!
MichD
Bonjour,
Au lieu de nous demander de tester un code qui ne fonctionne pas comme
tu l'espères chez toi, pourquoi ne pas expliquer ce que tu veux fair e et
le résultat que tu veux obtenir.
Ceci dit, j'ai testé sommairement la macro et elle fonctionne.
La mise en forme conditionnelle :
Nom de la feuille : Feuil1
plage de cellules : A1:A4
Formule = A1>0
Et c'est bien ce que j'ai obtenu à partir de la macro!
MichD
Bonjour,
Au lieu de nous demander de tester un code qui ne fonctionne pas comme
tu l'espères chez toi, pourquoi ne pas expliquer ce que tu veux fair e et
le résultat que tu veux obtenir.
Ceci dit, j'ai testé sommairement la macro et elle fonctionne.
La mise en forme conditionnelle :
Nom de la feuille : Feuil1
plage de cellules : A1:A4
Formule = A1>0
Et c'est bien ce que j'ai obtenu à partir de la macro!
MichD
Et de continuer ....
Après le premier test décrit dans l'autre msg, je refais un deuxième, sans rien
changer (donc, avec la feuille "CF rules".
Et bien, il me crée une feuil4, vide.
Rien de changé dans "CF rules".
Bonne fin de soirée à tous.
Jacques
" Le vin est au repas ce que le parfum est à la femme."
.
"Jacquouille" a écrit dans le message de groupe de discussion :
nm3ohd$19dc$
Bonsoir,
Une qui revient de Dieu sait d'où....
En feuil1!A1, MEFC = La valeur de la cel est comprise entre 3 et 5 + couleur
de fond bleu.
Voilà ce que la macro donne chez moi, avec XL 2003.
- création d'une feuille appelée "CF Rules" (Rule qui veut dire en Wallon,
un mètre)
avec en A1, le mot "sheet"
en B1, le mot" Formula" et en C1, le mot "Range"
En A2, le mot "feuil1"
PLUS un ajustement automatique des 3 premières colonnes.
Donc, pour moi, cette macro me donne le menu, mais il n'y a rien dans
l'assiette !
Jacques
" Le vin est au repas ce que le parfum est à la femme."
.
"Patrick" a écrit dans le message de groupe de discussion :
nm3beg$jk9$
Bonjour,
je suis sous XL2007 et j'ai pêché ce code sur un site mais il ne semble
pas fonctionner chez moi...
Si parmi vous il y a des gens sous 2010-13-16, pourrait-il (elle) le
tester et dire si c'est ok ou pas ?
Merci
Option Explicit
Sub List_Conditional_Formatting_Rules()
Dim ws As Worksheet, wsCF As Worksheet, NR As Long
Dim CFrule As FormatCondition, Rng As Range
On Error Resume Next
Sheets.Add(After:=Sheets(Sheets.Count)).Name = "CF Rules"
Set wsCF = Sheets("CF Rules")
wsCF.Range("A1:C1").Value = [{"Sheet","Formula","Range"}]
NR = 2
For Each ws In Worksheets
If ws.Name <> "CF Rules" Then
Set Rng = ws.Cells
For Each CFrule In Rng.FormatConditions
wsCF.Range("A" & NR).Value = ws.Name
wsCF.Range("B" & NR).Value = "'" & CFrule.Formula1
wsCF.Range("C" & NR).Value = CFrule.AppliesTo.Address
NR = NR + 1
Next CFrule
End If
Next ws
wsCF.Columns.AutoFit
End Sub
---
L'absence de virus dans ce courrier électronique a été vérifiée par le logiciel
antivirus Avast.
https://www.avast.com/antivirus
---
L'absence de virus dans ce courrier électronique a été vérifiée par le logiciel
antivirus Avast.
https://www.avast.com/antivirus
Et de continuer ....
Après le premier test décrit dans l'autre msg, je refais un deuxième, sans rien
changer (donc, avec la feuille "CF rules".
Et bien, il me crée une feuil4, vide.
Rien de changé dans "CF rules".
Bonne fin de soirée à tous.
Jacques
" Le vin est au repas ce que le parfum est à la femme."
.
"Jacquouille" a écrit dans le message de groupe de discussion :
nm3ohd$19dc$1@gioia.aioe.org...
Bonsoir,
Une qui revient de Dieu sait d'où....
En feuil1!A1, MEFC = La valeur de la cel est comprise entre 3 et 5 + couleur
de fond bleu.
Voilà ce que la macro donne chez moi, avec XL 2003.
- création d'une feuille appelée "CF Rules" (Rule qui veut dire en Wallon,
un mètre)
avec en A1, le mot "sheet"
en B1, le mot" Formula" et en C1, le mot "Range"
En A2, le mot "feuil1"
PLUS un ajustement automatique des 3 premières colonnes.
Donc, pour moi, cette macro me donne le menu, mais il n'y a rien dans
l'assiette !
Jacques
" Le vin est au repas ce que le parfum est à la femme."
.
"Patrick" a écrit dans le message de groupe de discussion :
nm3beg$jk9$1@gioia.aioe.org...
Bonjour,
je suis sous XL2007 et j'ai pêché ce code sur un site mais il ne semble
pas fonctionner chez moi...
Si parmi vous il y a des gens sous 2010-13-16, pourrait-il (elle) le
tester et dire si c'est ok ou pas ?
Merci
Option Explicit
Sub List_Conditional_Formatting_Rules()
Dim ws As Worksheet, wsCF As Worksheet, NR As Long
Dim CFrule As FormatCondition, Rng As Range
On Error Resume Next
Sheets.Add(After:=Sheets(Sheets.Count)).Name = "CF Rules"
Set wsCF = Sheets("CF Rules")
wsCF.Range("A1:C1").Value = [{"Sheet","Formula","Range"}]
NR = 2
For Each ws In Worksheets
If ws.Name <> "CF Rules" Then
Set Rng = ws.Cells
For Each CFrule In Rng.FormatConditions
wsCF.Range("A" & NR).Value = ws.Name
wsCF.Range("B" & NR).Value = "'" & CFrule.Formula1
wsCF.Range("C" & NR).Value = CFrule.AppliesTo.Address
NR = NR + 1
Next CFrule
End If
Next ws
wsCF.Columns.AutoFit
End Sub
---
L'absence de virus dans ce courrier électronique a été vérifiée par le logiciel
antivirus Avast.
https://www.avast.com/antivirus
---
L'absence de virus dans ce courrier électronique a été vérifiée par le logiciel
antivirus Avast.
https://www.avast.com/antivirus
Et de continuer ....
Après le premier test décrit dans l'autre msg, je refais un deuxième, sans rien
changer (donc, avec la feuille "CF rules".
Et bien, il me crée une feuil4, vide.
Rien de changé dans "CF rules".
Bonne fin de soirée à tous.
Jacques
" Le vin est au repas ce que le parfum est à la femme."
.
"Jacquouille" a écrit dans le message de groupe de discussion :
nm3ohd$19dc$
Bonsoir,
Une qui revient de Dieu sait d'où....
En feuil1!A1, MEFC = La valeur de la cel est comprise entre 3 et 5 + couleur
de fond bleu.
Voilà ce que la macro donne chez moi, avec XL 2003.
- création d'une feuille appelée "CF Rules" (Rule qui veut dire en Wallon,
un mètre)
avec en A1, le mot "sheet"
en B1, le mot" Formula" et en C1, le mot "Range"
En A2, le mot "feuil1"
PLUS un ajustement automatique des 3 premières colonnes.
Donc, pour moi, cette macro me donne le menu, mais il n'y a rien dans
l'assiette !
Jacques
" Le vin est au repas ce que le parfum est à la femme."
.
"Patrick" a écrit dans le message de groupe de discussion :
nm3beg$jk9$
Bonjour,
je suis sous XL2007 et j'ai pêché ce code sur un site mais il ne semble
pas fonctionner chez moi...
Si parmi vous il y a des gens sous 2010-13-16, pourrait-il (elle) le
tester et dire si c'est ok ou pas ?
Merci
Option Explicit
Sub List_Conditional_Formatting_Rules()
Dim ws As Worksheet, wsCF As Worksheet, NR As Long
Dim CFrule As FormatCondition, Rng As Range
On Error Resume Next
Sheets.Add(After:=Sheets(Sheets.Count)).Name = "CF Rules"
Set wsCF = Sheets("CF Rules")
wsCF.Range("A1:C1").Value = [{"Sheet","Formula","Range"}]
NR = 2
For Each ws In Worksheets
If ws.Name <> "CF Rules" Then
Set Rng = ws.Cells
For Each CFrule In Rng.FormatConditions
wsCF.Range("A" & NR).Value = ws.Name
wsCF.Range("B" & NR).Value = "'" & CFrule.Formula1
wsCF.Range("C" & NR).Value = CFrule.AppliesTo.Address
NR = NR + 1
Next CFrule
End If
Next ws
wsCF.Columns.AutoFit
End Sub
---
L'absence de virus dans ce courrier électronique a été vérifiée par le logiciel
antivirus Avast.
https://www.avast.com/antivirus
---
L'absence de virus dans ce courrier électronique a été vérifiée par le logiciel
antivirus Avast.
https://www.avast.com/antivirus
salutatous,
j'ai fais un test avec la macro de Denis,
http://www.cjoint.com/c/FGna4U5WkVa
ça fonctionne très bien sur xl2010
s.v.p dit-nous si ça fonctionne sur ta version.
isabelle
Le 2016-07-12 à 17:50, Jacquouille a écrit :Et de continuer ....
Après le premier test décrit dans l'autre msg, je refais un deuxième,
sans rien
changer (donc, avec la feuille "CF rules".
Et bien, il me crée une feuil4, vide.
Rien de changé dans "CF rules".
Bonne fin de soirée à tous.
Jacques
" Le vin est au repas ce que le parfum est à la femme."
.
"Jacquouille" a écrit dans le message de groupe de discussion :
nm3ohd$19dc$
Bonsoir,
Une qui revient de Dieu sait d'où....
En feuil1!A1, MEFC = La valeur de la cel est comprise entre 3 et 5 +
couleur
de fond bleu.
Voilà ce que la macro donne chez moi, avec XL 2003.
- création d'une feuille appelée "CF Rules" (Rule qui veut dire en
Wallon,
un mètre)
avec en A1, le mot "sheet"
en B1, le mot" Formula" et en C1, le mot "Range"
En A2, le mot "feuil1"
PLUS un ajustement automatique des 3 premières colonnes.
Donc, pour moi, cette macro me donne le menu, mais il n'y a rien dans
l'assiette !
Jacques
" Le vin est au repas ce que le parfum est à la femme."
.
"Patrick" a écrit dans le message de groupe de discussion :
nm3beg$jk9$
Bonjour,
je suis sous XL2007 et j'ai pêché ce code sur un site mais il ne semble
pas fonctionner chez moi...
Si parmi vous il y a des gens sous 2010-13-16, pourrait-il (elle) le
tester et dire si c'est ok ou pas ?
Merci
Option Explicit
Sub List_Conditional_Formatting_Rules()
Dim ws As Worksheet, wsCF As Worksheet, NR As Long
Dim CFrule As FormatCondition, Rng As Range
On Error Resume Next
Sheets.Add(After:=Sheets(Sheets.Count)).Name = "CF Rules"
Set wsCF = Sheets("CF Rules")
wsCF.Range("A1:C1").Value = [{"Sheet","Formula","Range"}]
NR = 2
For Each ws In Worksheets
If ws.Name <> "CF Rules" Then
Set Rng = ws.Cells
For Each CFrule In Rng.FormatConditions
wsCF.Range("A" & NR).Value = ws.Name
wsCF.Range("B" & NR).Value = "'" & CFrule.Formula1
wsCF.Range("C" & NR).Value = CFrule.AppliesTo.Address
NR = NR + 1
Next CFrule
End If
Next ws
wsCF.Columns.AutoFit
End Sub
---
L'absence de virus dans ce courrier électronique a été vérifiée par le
logiciel
antivirus Avast.
https://www.avast.com/antivirus
---
L'absence de virus dans ce courrier électronique a été vérifiée par le
logiciel
antivirus Avast.
https://www.avast.com/antivirus
salutatous,
j'ai fais un test avec la macro de Denis,
http://www.cjoint.com/c/FGna4U5WkVa
ça fonctionne très bien sur xl2010
s.v.p dit-nous si ça fonctionne sur ta version.
isabelle
Le 2016-07-12 à 17:50, Jacquouille a écrit :
Et de continuer ....
Après le premier test décrit dans l'autre msg, je refais un deuxième,
sans rien
changer (donc, avec la feuille "CF rules".
Et bien, il me crée une feuil4, vide.
Rien de changé dans "CF rules".
Bonne fin de soirée à tous.
Jacques
" Le vin est au repas ce que le parfum est à la femme."
.
"Jacquouille" a écrit dans le message de groupe de discussion :
nm3ohd$19dc$1@gioia.aioe.org...
Bonsoir,
Une qui revient de Dieu sait d'où....
En feuil1!A1, MEFC = La valeur de la cel est comprise entre 3 et 5 +
couleur
de fond bleu.
Voilà ce que la macro donne chez moi, avec XL 2003.
- création d'une feuille appelée "CF Rules" (Rule qui veut dire en
Wallon,
un mètre)
avec en A1, le mot "sheet"
en B1, le mot" Formula" et en C1, le mot "Range"
En A2, le mot "feuil1"
PLUS un ajustement automatique des 3 premières colonnes.
Donc, pour moi, cette macro me donne le menu, mais il n'y a rien dans
l'assiette !
Jacques
" Le vin est au repas ce que le parfum est à la femme."
.
"Patrick" a écrit dans le message de groupe de discussion :
nm3beg$jk9$1@gioia.aioe.org...
Bonjour,
je suis sous XL2007 et j'ai pêché ce code sur un site mais il ne semble
pas fonctionner chez moi...
Si parmi vous il y a des gens sous 2010-13-16, pourrait-il (elle) le
tester et dire si c'est ok ou pas ?
Merci
Option Explicit
Sub List_Conditional_Formatting_Rules()
Dim ws As Worksheet, wsCF As Worksheet, NR As Long
Dim CFrule As FormatCondition, Rng As Range
On Error Resume Next
Sheets.Add(After:=Sheets(Sheets.Count)).Name = "CF Rules"
Set wsCF = Sheets("CF Rules")
wsCF.Range("A1:C1").Value = [{"Sheet","Formula","Range"}]
NR = 2
For Each ws In Worksheets
If ws.Name <> "CF Rules" Then
Set Rng = ws.Cells
For Each CFrule In Rng.FormatConditions
wsCF.Range("A" & NR).Value = ws.Name
wsCF.Range("B" & NR).Value = "'" & CFrule.Formula1
wsCF.Range("C" & NR).Value = CFrule.AppliesTo.Address
NR = NR + 1
Next CFrule
End If
Next ws
wsCF.Columns.AutoFit
End Sub
---
L'absence de virus dans ce courrier électronique a été vérifiée par le
logiciel
antivirus Avast.
https://www.avast.com/antivirus
---
L'absence de virus dans ce courrier électronique a été vérifiée par le
logiciel
antivirus Avast.
https://www.avast.com/antivirus
salutatous,
j'ai fais un test avec la macro de Denis,
http://www.cjoint.com/c/FGna4U5WkVa
ça fonctionne très bien sur xl2010
s.v.p dit-nous si ça fonctionne sur ta version.
isabelle
Le 2016-07-12 à 17:50, Jacquouille a écrit :Et de continuer ....
Après le premier test décrit dans l'autre msg, je refais un deuxième,
sans rien
changer (donc, avec la feuille "CF rules".
Et bien, il me crée une feuil4, vide.
Rien de changé dans "CF rules".
Bonne fin de soirée à tous.
Jacques
" Le vin est au repas ce que le parfum est à la femme."
.
"Jacquouille" a écrit dans le message de groupe de discussion :
nm3ohd$19dc$
Bonsoir,
Une qui revient de Dieu sait d'où....
En feuil1!A1, MEFC = La valeur de la cel est comprise entre 3 et 5 +
couleur
de fond bleu.
Voilà ce que la macro donne chez moi, avec XL 2003.
- création d'une feuille appelée "CF Rules" (Rule qui veut dire en
Wallon,
un mètre)
avec en A1, le mot "sheet"
en B1, le mot" Formula" et en C1, le mot "Range"
En A2, le mot "feuil1"
PLUS un ajustement automatique des 3 premières colonnes.
Donc, pour moi, cette macro me donne le menu, mais il n'y a rien dans
l'assiette !
Jacques
" Le vin est au repas ce que le parfum est à la femme."
.
"Patrick" a écrit dans le message de groupe de discussion :
nm3beg$jk9$
Bonjour,
je suis sous XL2007 et j'ai pêché ce code sur un site mais il ne semble
pas fonctionner chez moi...
Si parmi vous il y a des gens sous 2010-13-16, pourrait-il (elle) le
tester et dire si c'est ok ou pas ?
Merci
Option Explicit
Sub List_Conditional_Formatting_Rules()
Dim ws As Worksheet, wsCF As Worksheet, NR As Long
Dim CFrule As FormatCondition, Rng As Range
On Error Resume Next
Sheets.Add(After:=Sheets(Sheets.Count)).Name = "CF Rules"
Set wsCF = Sheets("CF Rules")
wsCF.Range("A1:C1").Value = [{"Sheet","Formula","Range"}]
NR = 2
For Each ws In Worksheets
If ws.Name <> "CF Rules" Then
Set Rng = ws.Cells
For Each CFrule In Rng.FormatConditions
wsCF.Range("A" & NR).Value = ws.Name
wsCF.Range("B" & NR).Value = "'" & CFrule.Formula1
wsCF.Range("C" & NR).Value = CFrule.AppliesTo.Address
NR = NR + 1
Next CFrule
End If
Next ws
wsCF.Columns.AutoFit
End Sub
---
L'absence de virus dans ce courrier électronique a été vérifiée par le
logiciel
antivirus Avast.
https://www.avast.com/antivirus
---
L'absence de virus dans ce courrier électronique a été vérifiée par le
logiciel
antivirus Avast.
https://www.avast.com/antivirus