D=E9butant en macro, je voudrais colorier la police d'une=20
cellule suivant si sa valeur est sup=E9rieure ou inf=E9rieure=20
=E0 la valeur d'une autre cellule.
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
ru-th
Salut un exemple si tu ne veux pas de MFC Sub Macro2() With ActiveCell.Font Select Case ActiveCell.Value Case Is > 50 .ColorIndex = 3 Case Is > 20 .ColorIndex = 5 Case Is > 10 .ColorIndex = 6 Case Else .ColorIndex = xlAutomatic End Select End With End Sub
-- a+ rural thierry Veaux et Broutards d'Anjou Wicasa on kin nape yapi inahni yo (à l'essai)
"Jean-Paul" a écrit dans le message de news: 01e001c39e40$01db4a30$ Débutant en macro, je voudrais colorier la police d'une cellule suivant si sa valeur est supérieure ou inférieure à la valeur d'une autre cellule.
Merci
Salut
un exemple si tu ne veux pas de MFC
Sub Macro2()
With ActiveCell.Font
Select Case ActiveCell.Value
Case Is > 50
.ColorIndex = 3
Case Is > 20
.ColorIndex = 5
Case Is > 10
.ColorIndex = 6
Case Else
.ColorIndex = xlAutomatic
End Select
End With
End Sub
--
a+
rural thierry
Veaux et Broutards d'Anjou
Wicasa on kin nape yapi inahni yo (à l'essai)
"Jean-Paul" <couret.jean-paul@wanadoo.fr> a écrit dans le message de news:
01e001c39e40$01db4a30$a101280a@phx.gbl...
Débutant en macro, je voudrais colorier la police d'une
cellule suivant si sa valeur est supérieure ou inférieure
à la valeur d'une autre cellule.
Salut un exemple si tu ne veux pas de MFC Sub Macro2() With ActiveCell.Font Select Case ActiveCell.Value Case Is > 50 .ColorIndex = 3 Case Is > 20 .ColorIndex = 5 Case Is > 10 .ColorIndex = 6 Case Else .ColorIndex = xlAutomatic End Select End With End Sub
-- a+ rural thierry Veaux et Broutards d'Anjou Wicasa on kin nape yapi inahni yo (à l'essai)
"Jean-Paul" a écrit dans le message de news: 01e001c39e40$01db4a30$ Débutant en macro, je voudrais colorier la police d'une cellule suivant si sa valeur est supérieure ou inférieure à la valeur d'une autre cellule.
Merci
Jean-François Aubert
Salut Jean-Paul,
Sans VBA: avec la Mise En Forme Conditionnelle
Condition 1 - choisir: la formule est - et coller à côté =$A$1> -cliquer sur Format
Condition 2 - choisir: la formule est - et coller à côté =$A$1<10 -cliquer sur Format
Avec VBA, à coller dans le module de code de la feuille concernée:
Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = "$A$1" Then If Target >= 10 Then [B1].Font.ColorIndex = 3 Else [B1].Font.ColorIndex = 6 End If End If End Sub
-- Amicalement
Jean-François Aubert {Vaudois de la Côte Lémanique}
"Jean-Paul" a écrit dans le message de news:01e001c39e40$01db4a30$ Débutant en macro, je voudrais colorier la police d'une cellule suivant si sa valeur est supérieure ou inférieure à la valeur d'une autre cellule.
Merci
Salut Jean-Paul,
Sans VBA: avec la Mise En Forme Conditionnelle
Condition 1
- choisir: la formule est
- et coller à côté =$A$1>
-cliquer sur Format
Condition 2
- choisir: la formule est
- et coller à côté =$A$1<10
-cliquer sur Format
Avec VBA, à coller dans le module de code de la feuille concernée:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$1" Then
If Target >= 10 Then
[B1].Font.ColorIndex = 3
Else
[B1].Font.ColorIndex = 6
End If
End If
End Sub
--
Amicalement
Jean-François Aubert
{Vaudois de la Côte Lémanique}
"Jean-Paul" <couret.jean-paul@wanadoo.fr> a écrit dans le message de
news:01e001c39e40$01db4a30$a101280a@phx.gbl...
Débutant en macro, je voudrais colorier la police d'une
cellule suivant si sa valeur est supérieure ou inférieure
à la valeur d'une autre cellule.
Condition 1 - choisir: la formule est - et coller à côté =$A$1> -cliquer sur Format
Condition 2 - choisir: la formule est - et coller à côté =$A$1<10 -cliquer sur Format
Avec VBA, à coller dans le module de code de la feuille concernée:
Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = "$A$1" Then If Target >= 10 Then [B1].Font.ColorIndex = 3 Else [B1].Font.ColorIndex = 6 End If End If End Sub
-- Amicalement
Jean-François Aubert {Vaudois de la Côte Lémanique}
"Jean-Paul" a écrit dans le message de news:01e001c39e40$01db4a30$ Débutant en macro, je voudrais colorier la police d'une cellule suivant si sa valeur est supérieure ou inférieure à la valeur d'une autre cellule.
Merci
Gaetan Mourmant
Et pour aller plus loin, un petit tour sur mon site ;-)
"Jean-Paul" a écrit dans le message de news: 01e001c39e40$01db4a30$ Débutant en macro, je voudrais colorier la police d'une cellule suivant si sa valeur est supérieure ou inférieure à la valeur d'une autre cellule.
Merci
Et pour aller plus loin, un petit tour sur mon site ;-)
"Jean-Paul" <couret.jean-paul@wanadoo.fr> a écrit dans le message de news:
01e001c39e40$01db4a30$a101280a@phx.gbl...
Débutant en macro, je voudrais colorier la police d'une
cellule suivant si sa valeur est supérieure ou inférieure
à la valeur d'une autre cellule.
"Jean-Paul" a écrit dans le message de news: 01e001c39e40$01db4a30$ Débutant en macro, je voudrais colorier la police d'une cellule suivant si sa valeur est supérieure ou inférieure à la valeur d'une autre cellule.
