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,
tu peux utiliser jusqu'à 4 critères puisqu'il y en a 3 que tu peux ajouter et forcément 1 dernier qui peut être le compémentaire des 3 autres dans l'ensemble des lois booelennes que tu as écrites. Si tu veux plus de 4 critères, il te faudra passer par VBA mais ce n'est pas si difficile.
A+
Bjr,
Peut on utiliser la mise en forme conditionnelle sur plus de 3 criteres; et si oui comment?
Merci de votre aide
Cordialement
Pierre
Bonjour,
tu peux utiliser jusqu'à 4 critères puisqu'il y en a 3 que tu peux
ajouter et forcément 1 dernier qui peut être le compémentaire des 3
autres dans l'ensemble des lois booelennes que tu as écrites.
Si tu veux plus de 4 critères, il te faudra passer par VBA mais ce n'est
pas si difficile.
A+
Bjr,
Peut on utiliser la mise en forme conditionnelle sur plus de 3 criteres; et
si oui comment?
tu peux utiliser jusqu'à 4 critères puisqu'il y en a 3 que tu peux ajouter et forcément 1 dernier qui peut être le compémentaire des 3 autres dans l'ensemble des lois booelennes que tu as écrites. Si tu veux plus de 4 critères, il te faudra passer par VBA mais ce n'est pas si difficile.
A+
Bjr,
Peut on utiliser la mise en forme conditionnelle sur plus de 3 criteres; et si oui comment?
Merci de votre aide
Cordialement
Pierre
Jero
Salut,
Oui, jusqu'à six si tu utilises en plus les formats personnalisés du genre : [Bleu][>Q]Standard;[Vert][<]Standard;[Noir]Standard que tu complètes avec une mise en forme conditionnelle (je peux t'envoyer un topo.) Sinon, VBA... Un exemple : Sub FormatConditionnel()
Dim Cellule As Variant
For Each Cellule In Selection
Select Case Cellule.Value
Case Is<
Cellule.Font.ColorIndex = 4
'Vert
Case 11 To 20
Cellule.Font.ColorIndex = 3
'Rouge
Case 21 To 30
Cellule.Font.ColorIndex = 33
'Bleu ciel
Case 31 To 40
Cellule.Font.ColorIndex = 48
'Gris
Case 41 To 50
Cellule.Font.ColorIndex = 0
'Noir
Case Else
Cellule.Font.ColorIndex = 5
'Bleu
End Select
Next
End Sub
et pour tout remettre en format "normal" Sub InitFormat()
Selection.Font.ColorIndex = 0
End Sub
Jero "Pierre B" a écrit dans le message de news: 440dc025$0$20152$
Bjr,
Peut on utiliser la mise en forme conditionnelle sur plus de 3 criteres; et si oui comment?
Merci de votre aide
Cordialement
Pierre
Salut,
Oui, jusqu'à six si tu utilises en plus les formats personnalisés du genre :
[Bleu][>Q]Standard;[Vert][<]Standard;[Noir]Standard
que tu complètes avec une mise en forme conditionnelle (je peux t'envoyer un
topo.)
Sinon, VBA...
Un exemple :
Sub FormatConditionnel()
Dim Cellule As Variant
For Each Cellule In Selection
Select Case Cellule.Value
Case Is<
Cellule.Font.ColorIndex = 4
'Vert
Case 11 To 20
Cellule.Font.ColorIndex = 3
'Rouge
Case 21 To 30
Cellule.Font.ColorIndex = 33
'Bleu ciel
Case 31 To 40
Cellule.Font.ColorIndex = 48
'Gris
Case 41 To 50
Cellule.Font.ColorIndex = 0
'Noir
Case Else
Cellule.Font.ColorIndex = 5
'Bleu
End Select
Next
End Sub
et pour tout remettre en format "normal"
Sub InitFormat()
Selection.Font.ColorIndex = 0
End Sub
Jero
"Pierre B" <Pas_de_spam_Pierre.Barthel@wanadoo.fr> a écrit dans le message
de news: 440dc025$0$20152$8fcfb975@news.wanadoo.fr...
Bjr,
Peut on utiliser la mise en forme conditionnelle sur plus de 3 criteres;
et si oui comment?
Oui, jusqu'à six si tu utilises en plus les formats personnalisés du genre : [Bleu][>Q]Standard;[Vert][<]Standard;[Noir]Standard que tu complètes avec une mise en forme conditionnelle (je peux t'envoyer un topo.) Sinon, VBA... Un exemple : Sub FormatConditionnel()
Dim Cellule As Variant
For Each Cellule In Selection
Select Case Cellule.Value
Case Is<
Cellule.Font.ColorIndex = 4
'Vert
Case 11 To 20
Cellule.Font.ColorIndex = 3
'Rouge
Case 21 To 30
Cellule.Font.ColorIndex = 33
'Bleu ciel
Case 31 To 40
Cellule.Font.ColorIndex = 48
'Gris
Case 41 To 50
Cellule.Font.ColorIndex = 0
'Noir
Case Else
Cellule.Font.ColorIndex = 5
'Bleu
End Select
Next
End Sub
et pour tout remettre en format "normal" Sub InitFormat()
Selection.Font.ColorIndex = 0
End Sub
Jero "Pierre B" a écrit dans le message de news: 440dc025$0$20152$
Bjr,
Peut on utiliser la mise en forme conditionnelle sur plus de 3 criteres; et si oui comment?
Merci de votre aide
Cordialement
Pierre
Pierre B
Bjr,
Merci de votre aide ! Finalement, j'y suis arrivé (en VBA), mais il me manque de pouvoir declencher automatiquement la macro quand on rentre une valeur dans la cellule. Pour eviter de la relancer à chaque fois
Avez-vous uns solution?
Pierre
"Jero" <~ a écrit dans le message de news: %236KkQ$
Salut,
Oui, jusqu'à six si tu utilises en plus les formats personnalisés du genre : [Bleu][>Q]Standard;[Vert][<]Standard;[Noir]Standard que tu complètes avec une mise en forme conditionnelle (je peux t'envoyer un topo.) Sinon, VBA... Un exemple : Sub FormatConditionnel()
Dim Cellule As Variant
For Each Cellule In Selection
Select Case Cellule.Value
Case Is<
Cellule.Font.ColorIndex = 4
'Vert
Case 11 To 20
Cellule.Font.ColorIndex = 3
'Rouge
Case 21 To 30
Cellule.Font.ColorIndex = 33
'Bleu ciel
Case 31 To 40
Cellule.Font.ColorIndex = 48
'Gris
Case 41 To 50
Cellule.Font.ColorIndex = 0
'Noir
Case Else
Cellule.Font.ColorIndex = 5
'Bleu
End Select
Next
End Sub
et pour tout remettre en format "normal" Sub InitFormat()
Selection.Font.ColorIndex = 0
End Sub
Jero "Pierre B" a écrit dans le message de news: 440dc025$0$20152$
Bjr,
Peut on utiliser la mise en forme conditionnelle sur plus de 3 criteres; et si oui comment?
Merci de votre aide
Cordialement
Pierre
Bjr,
Merci de votre aide !
Finalement, j'y suis arrivé (en VBA), mais il me manque de pouvoir
declencher automatiquement la macro quand on rentre une valeur dans la
cellule.
Pour eviter de la relancer à chaque fois
Avez-vous uns solution?
Pierre
"Jero" <~jean-pierre.geraudel@ac-nantes.fr> a écrit dans le message de news:
%236KkQ$oQGHA.4452@TK2MSFTNGP12.phx.gbl...
Salut,
Oui, jusqu'à six si tu utilises en plus les formats personnalisés du genre
: [Bleu][>Q]Standard;[Vert][<]Standard;[Noir]Standard
que tu complètes avec une mise en forme conditionnelle (je peux t'envoyer
un topo.)
Sinon, VBA...
Un exemple :
Sub FormatConditionnel()
Dim Cellule As Variant
For Each Cellule In Selection
Select Case Cellule.Value
Case Is<
Cellule.Font.ColorIndex = 4
'Vert
Case 11 To 20
Cellule.Font.ColorIndex = 3
'Rouge
Case 21 To 30
Cellule.Font.ColorIndex = 33
'Bleu ciel
Case 31 To 40
Cellule.Font.ColorIndex = 48
'Gris
Case 41 To 50
Cellule.Font.ColorIndex = 0
'Noir
Case Else
Cellule.Font.ColorIndex = 5
'Bleu
End Select
Next
End Sub
et pour tout remettre en format "normal"
Sub InitFormat()
Selection.Font.ColorIndex = 0
End Sub
Jero
"Pierre B" <Pas_de_spam_Pierre.Barthel@wanadoo.fr> a écrit dans le message
de news: 440dc025$0$20152$8fcfb975@news.wanadoo.fr...
Bjr,
Peut on utiliser la mise en forme conditionnelle sur plus de 3 criteres;
et si oui comment?
Merci de votre aide ! Finalement, j'y suis arrivé (en VBA), mais il me manque de pouvoir declencher automatiquement la macro quand on rentre une valeur dans la cellule. Pour eviter de la relancer à chaque fois
Avez-vous uns solution?
Pierre
"Jero" <~ a écrit dans le message de news: %236KkQ$
Salut,
Oui, jusqu'à six si tu utilises en plus les formats personnalisés du genre : [Bleu][>Q]Standard;[Vert][<]Standard;[Noir]Standard que tu complètes avec une mise en forme conditionnelle (je peux t'envoyer un topo.) Sinon, VBA... Un exemple : Sub FormatConditionnel()
Dim Cellule As Variant
For Each Cellule In Selection
Select Case Cellule.Value
Case Is<
Cellule.Font.ColorIndex = 4
'Vert
Case 11 To 20
Cellule.Font.ColorIndex = 3
'Rouge
Case 21 To 30
Cellule.Font.ColorIndex = 33
'Bleu ciel
Case 31 To 40
Cellule.Font.ColorIndex = 48
'Gris
Case 41 To 50
Cellule.Font.ColorIndex = 0
'Noir
Case Else
Cellule.Font.ColorIndex = 5
'Bleu
End Select
Next
End Sub
et pour tout remettre en format "normal" Sub InitFormat()
Selection.Font.ColorIndex = 0
End Sub
Jero "Pierre B" a écrit dans le message de news: 440dc025$0$20152$
Bjr,
Peut on utiliser la mise en forme conditionnelle sur plus de 3 criteres; et si oui comment?
Merci de votre aide
Cordialement
Pierre
Jero
Re, sur l'un des événements
Private Sub Worksheet_Change(ByVal Target As Range)
End Sub ou Private Sub Worksheet_SelectionChange(ByVal Target As Range)
End Sub note : Je n'ai pas essayé Jero "Pierre B" a écrit dans le message de news: 440ed068$0$19709$
Bjr,
Merci de votre aide ! Finalement, j'y suis arrivé (en VBA), mais il me manque de pouvoir declencher automatiquement la macro quand on rentre une valeur dans la cellule. Pour eviter de la relancer à chaque fois
Avez-vous uns solution?
Pierre
"Jero" <~ a écrit dans le message de news: %236KkQ$
Salut,
Oui, jusqu'à six si tu utilises en plus les formats personnalisés du genre : [Bleu][>Q]Standard;[Vert][<]Standard;[Noir]Standard que tu complètes avec une mise en forme conditionnelle (je peux t'envoyer un topo.) Sinon, VBA... Un exemple : Sub FormatConditionnel()
Dim Cellule As Variant
For Each Cellule In Selection
Select Case Cellule.Value
Case Is<
Cellule.Font.ColorIndex = 4
'Vert
Case 11 To 20
Cellule.Font.ColorIndex = 3
'Rouge
Case 21 To 30
Cellule.Font.ColorIndex = 33
'Bleu ciel
Case 31 To 40
Cellule.Font.ColorIndex = 48
'Gris
Case 41 To 50
Cellule.Font.ColorIndex = 0
'Noir
Case Else
Cellule.Font.ColorIndex = 5
'Bleu
End Select
Next
End Sub
et pour tout remettre en format "normal" Sub InitFormat()
Selection.Font.ColorIndex = 0
End Sub
Jero "Pierre B" a écrit dans le message de news: 440dc025$0$20152$
Bjr,
Peut on utiliser la mise en forme conditionnelle sur plus de 3 criteres; et si oui comment?
Merci de votre aide
Cordialement
Pierre
Re,
sur l'un des événements
Private Sub Worksheet_Change(ByVal Target As Range)
End Sub
ou
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
End Sub
note : Je n'ai pas essayé
Jero
"Pierre B" <Pas_de_spam_Pierre.Barthel@wanadoo.fr> a écrit dans le message
de news: 440ed068$0$19709$8fcfb975@news.wanadoo.fr...
Bjr,
Merci de votre aide !
Finalement, j'y suis arrivé (en VBA), mais il me manque de pouvoir
declencher automatiquement la macro quand on rentre une valeur dans la
cellule.
Pour eviter de la relancer à chaque fois
Avez-vous uns solution?
Pierre
"Jero" <~jean-pierre.geraudel@ac-nantes.fr> a écrit dans le message de
news: %236KkQ$oQGHA.4452@TK2MSFTNGP12.phx.gbl...
Salut,
Oui, jusqu'à six si tu utilises en plus les formats personnalisés du
genre : [Bleu][>Q]Standard;[Vert][<]Standard;[Noir]Standard
que tu complètes avec une mise en forme conditionnelle (je peux t'envoyer
un topo.)
Sinon, VBA...
Un exemple :
Sub FormatConditionnel()
Dim Cellule As Variant
For Each Cellule In Selection
Select Case Cellule.Value
Case Is<
Cellule.Font.ColorIndex = 4
'Vert
Case 11 To 20
Cellule.Font.ColorIndex = 3
'Rouge
Case 21 To 30
Cellule.Font.ColorIndex = 33
'Bleu ciel
Case 31 To 40
Cellule.Font.ColorIndex = 48
'Gris
Case 41 To 50
Cellule.Font.ColorIndex = 0
'Noir
Case Else
Cellule.Font.ColorIndex = 5
'Bleu
End Select
Next
End Sub
et pour tout remettre en format "normal"
Sub InitFormat()
Selection.Font.ColorIndex = 0
End Sub
Jero
"Pierre B" <Pas_de_spam_Pierre.Barthel@wanadoo.fr> a écrit dans le
message de news: 440dc025$0$20152$8fcfb975@news.wanadoo.fr...
Bjr,
Peut on utiliser la mise en forme conditionnelle sur plus de 3 criteres;
et si oui comment?
Private Sub Worksheet_Change(ByVal Target As Range)
End Sub ou Private Sub Worksheet_SelectionChange(ByVal Target As Range)
End Sub note : Je n'ai pas essayé Jero "Pierre B" a écrit dans le message de news: 440ed068$0$19709$
Bjr,
Merci de votre aide ! Finalement, j'y suis arrivé (en VBA), mais il me manque de pouvoir declencher automatiquement la macro quand on rentre une valeur dans la cellule. Pour eviter de la relancer à chaque fois
Avez-vous uns solution?
Pierre
"Jero" <~ a écrit dans le message de news: %236KkQ$
Salut,
Oui, jusqu'à six si tu utilises en plus les formats personnalisés du genre : [Bleu][>Q]Standard;[Vert][<]Standard;[Noir]Standard que tu complètes avec une mise en forme conditionnelle (je peux t'envoyer un topo.) Sinon, VBA... Un exemple : Sub FormatConditionnel()
Dim Cellule As Variant
For Each Cellule In Selection
Select Case Cellule.Value
Case Is<
Cellule.Font.ColorIndex = 4
'Vert
Case 11 To 20
Cellule.Font.ColorIndex = 3
'Rouge
Case 21 To 30
Cellule.Font.ColorIndex = 33
'Bleu ciel
Case 31 To 40
Cellule.Font.ColorIndex = 48
'Gris
Case 41 To 50
Cellule.Font.ColorIndex = 0
'Noir
Case Else
Cellule.Font.ColorIndex = 5
'Bleu
End Select
Next
End Sub
et pour tout remettre en format "normal" Sub InitFormat()
Selection.Font.ColorIndex = 0
End Sub
Jero "Pierre B" a écrit dans le message de news: 440dc025$0$20152$
Bjr,
Peut on utiliser la mise en forme conditionnelle sur plus de 3 criteres; et si oui comment?
Merci de votre aide
Cordialement
Pierre
Pierre B
Merci, je vais essayer
Pierre
"Jero" <~ a écrit dans le message de news: %
Re, sur l'un des événements
Private Sub Worksheet_Change(ByVal Target As Range)
End Sub ou Private Sub Worksheet_SelectionChange(ByVal Target As Range)
End Sub note : Je n'ai pas essayé Jero "Pierre B" a écrit dans le message de news: 440ed068$0$19709$
Bjr,
Merci de votre aide ! Finalement, j'y suis arrivé (en VBA), mais il me manque de pouvoir declencher automatiquement la macro quand on rentre une valeur dans la cellule. Pour eviter de la relancer à chaque fois
Avez-vous uns solution?
Pierre
"Jero" <~ a écrit dans le message de news: %236KkQ$
Salut,
Oui, jusqu'à six si tu utilises en plus les formats personnalisés du genre : [Bleu][>Q]Standard;[Vert][<]Standard;[Noir]Standard que tu complètes avec une mise en forme conditionnelle (je peux t'envoyer un topo.) Sinon, VBA... Un exemple : Sub FormatConditionnel()
Dim Cellule As Variant
For Each Cellule In Selection
Select Case Cellule.Value
Case Is<
Cellule.Font.ColorIndex = 4
'Vert
Case 11 To 20
Cellule.Font.ColorIndex = 3
'Rouge
Case 21 To 30
Cellule.Font.ColorIndex = 33
'Bleu ciel
Case 31 To 40
Cellule.Font.ColorIndex = 48
'Gris
Case 41 To 50
Cellule.Font.ColorIndex = 0
'Noir
Case Else
Cellule.Font.ColorIndex = 5
'Bleu
End Select
Next
End Sub
et pour tout remettre en format "normal" Sub InitFormat()
Selection.Font.ColorIndex = 0
End Sub
Jero "Pierre B" a écrit dans le message de news: 440dc025$0$20152$
Bjr,
Peut on utiliser la mise en forme conditionnelle sur plus de 3 criteres; et si oui comment?
Merci de votre aide
Cordialement
Pierre
Merci, je vais essayer
Pierre
"Jero" <~jean-pierre.geraudel@ac-nantes.fr> a écrit dans le message de news:
%23IuYmarQGHA.1556@TK2MSFTNGP09.phx.gbl...
Re,
sur l'un des événements
Private Sub Worksheet_Change(ByVal Target As Range)
End Sub
ou
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
End Sub
note : Je n'ai pas essayé
Jero
"Pierre B" <Pas_de_spam_Pierre.Barthel@wanadoo.fr> a écrit dans le message
de news: 440ed068$0$19709$8fcfb975@news.wanadoo.fr...
Bjr,
Merci de votre aide !
Finalement, j'y suis arrivé (en VBA), mais il me manque de pouvoir
declencher automatiquement la macro quand on rentre une valeur dans la
cellule.
Pour eviter de la relancer à chaque fois
Avez-vous uns solution?
Pierre
"Jero" <~jean-pierre.geraudel@ac-nantes.fr> a écrit dans le message de
news: %236KkQ$oQGHA.4452@TK2MSFTNGP12.phx.gbl...
Salut,
Oui, jusqu'à six si tu utilises en plus les formats personnalisés du
genre : [Bleu][>Q]Standard;[Vert][<]Standard;[Noir]Standard
que tu complètes avec une mise en forme conditionnelle (je peux
t'envoyer un topo.)
Sinon, VBA...
Un exemple :
Sub FormatConditionnel()
Dim Cellule As Variant
For Each Cellule In Selection
Select Case Cellule.Value
Case Is<
Cellule.Font.ColorIndex = 4
'Vert
Case 11 To 20
Cellule.Font.ColorIndex = 3
'Rouge
Case 21 To 30
Cellule.Font.ColorIndex = 33
'Bleu ciel
Case 31 To 40
Cellule.Font.ColorIndex = 48
'Gris
Case 41 To 50
Cellule.Font.ColorIndex = 0
'Noir
Case Else
Cellule.Font.ColorIndex = 5
'Bleu
End Select
Next
End Sub
et pour tout remettre en format "normal"
Sub InitFormat()
Selection.Font.ColorIndex = 0
End Sub
Jero
"Pierre B" <Pas_de_spam_Pierre.Barthel@wanadoo.fr> a écrit dans le
message de news: 440dc025$0$20152$8fcfb975@news.wanadoo.fr...
Bjr,
Peut on utiliser la mise en forme conditionnelle sur plus de 3
criteres; et si oui comment?
Private Sub Worksheet_Change(ByVal Target As Range)
End Sub ou Private Sub Worksheet_SelectionChange(ByVal Target As Range)
End Sub note : Je n'ai pas essayé Jero "Pierre B" a écrit dans le message de news: 440ed068$0$19709$
Bjr,
Merci de votre aide ! Finalement, j'y suis arrivé (en VBA), mais il me manque de pouvoir declencher automatiquement la macro quand on rentre une valeur dans la cellule. Pour eviter de la relancer à chaque fois
Avez-vous uns solution?
Pierre
"Jero" <~ a écrit dans le message de news: %236KkQ$
Salut,
Oui, jusqu'à six si tu utilises en plus les formats personnalisés du genre : [Bleu][>Q]Standard;[Vert][<]Standard;[Noir]Standard que tu complètes avec une mise en forme conditionnelle (je peux t'envoyer un topo.) Sinon, VBA... Un exemple : Sub FormatConditionnel()
Dim Cellule As Variant
For Each Cellule In Selection
Select Case Cellule.Value
Case Is<
Cellule.Font.ColorIndex = 4
'Vert
Case 11 To 20
Cellule.Font.ColorIndex = 3
'Rouge
Case 21 To 30
Cellule.Font.ColorIndex = 33
'Bleu ciel
Case 31 To 40
Cellule.Font.ColorIndex = 48
'Gris
Case 41 To 50
Cellule.Font.ColorIndex = 0
'Noir
Case Else
Cellule.Font.ColorIndex = 5
'Bleu
End Select
Next
End Sub
et pour tout remettre en format "normal" Sub InitFormat()
Selection.Font.ColorIndex = 0
End Sub
Jero "Pierre B" a écrit dans le message de news: 440dc025$0$20152$
Bjr,
Peut on utiliser la mise en forme conditionnelle sur plus de 3 criteres; et si oui comment?
