Excel macro mise en forme conditionnelle
Résolu/Fermé
evevdll
Raymond PENTIER
- Messages postés
- 81
- Date d'inscription
- vendredi 9 novembre 2007
- Statut
- Membre
- Dernière intervention
- 13 décembre 2009
Raymond PENTIER
- Messages postés
- 56096
- Date d'inscription
- lundi 13 août 2007
- Statut
- Contributeur
- Dernière intervention
- 21 mai 2022
A voir également:
- Excel macro mise en forme conditionnelle vba
- Macro pour mise en forme conditionnelle ✓ - Forum - Excel
- Excel 2010 - Macro de mise en forme conditionnelle ✓ - Forum - Excel
- Macro ou mise en forme conditionnelle ? ✓ - Forum - Bureautique
- Macro excel - mise en forme conditionnelle dynamique filtre ✓ - Forum - VB / VBA
- Macro pour mise en forme conditionnelle ✓ - Forum - Excel
6 réponses
Bonjour,
Voici une macro
Sub formatConditionnelle()
Application.ScreenUpdating = False
For Each c In [f1:f25] 'plage a testée
c.Select
Dim l As Long
l = ActiveCell.[Row]
If ActiveCell.Value = "Vente" And ActiveCell.Offset(0, 9) <> "" Then
Rows("" & l & ":" & l & "").Select
Selection.Font.ColorIndex = 45
Else
If ActiveCell.Value = "Vente" And ActiveCell.Offset(0, 9) = "" Then
Rows("" & l & ":" & l & "").Select
Selection.Font.ColorIndex = 5
Else
Rows("" & l & ":" & l & "").Select
Selection.Font.ColorIndex = 1
End If
End If
Next
Application.ScreenUpdating = True
Range("f1").Select
End Sub
Voici une macro
Sub formatConditionnelle()
Application.ScreenUpdating = False
For Each c In [f1:f25] 'plage a testée
c.Select
Dim l As Long
l = ActiveCell.[Row]
If ActiveCell.Value = "Vente" And ActiveCell.Offset(0, 9) <> "" Then
Rows("" & l & ":" & l & "").Select
Selection.Font.ColorIndex = 45
Else
If ActiveCell.Value = "Vente" And ActiveCell.Offset(0, 9) = "" Then
Rows("" & l & ":" & l & "").Select
Selection.Font.ColorIndex = 5
Else
Rows("" & l & ":" & l & "").Select
Selection.Font.ColorIndex = 1
End If
End If
Next
Application.ScreenUpdating = True
Range("f1").Select
End Sub
11 nov. 2007 à 19:02
Merci de ta réponser c'est impec. Par contre j'essaie de comprendre à chaque fois pour mieux réutiliser par la suite et je constate que j'ai un peu de mal à saisir les phrases :
Application.ScreenUpdating = False
et
Application.ScreenUpdating = True
ça veut dire mise à jour de l'écran ? Pour moi ça voudrait dire que la macro fonctionne sans l'appeler mais comme ça ne fonctionne pas tout seul j'aimerai savoir exactement ce que ça veut dire pour l'utiliser à bon escient. Peut-être que ma question est stupide pour les pro mais j'aime comprendre ce que je fais.
Merci de ta réponse
A+
Eve