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
isabelle
bonjour,
Private Sub Worksheet_Change(ByVal Target As Range) On Error Resume Next Target.Interior.ColorIndex = Target.Value If Err.Number <> 0 Then Err.Clear End Sub
isabelle
Le 2010-10-18 15:38, marcantoi83 a écrit :
Bonjour, je voudrai que la couleur de la police change en fonction de la valeur qui est entrée dans la cellule.
bonjour,
Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
Target.Interior.ColorIndex = Target.Value
If Err.Number <> 0 Then Err.Clear
End Sub
isabelle
Le 2010-10-18 15:38, marcantoi83 a écrit :
Bonjour, je voudrai que la couleur de la police change en fonction de
la valeur qui est entrée dans la cellule.
Private Sub Worksheet_Change(ByVal Target As Range) On Error Resume Next Target.Interior.ColorIndex = Target.Value If Err.Number <> 0 Then Err.Clear End Sub
isabelle
Le 2010-10-18 15:38, marcantoi83 a écrit :
Bonjour, je voudrai que la couleur de la police change en fonction de la valeur qui est entrée dans la cellule.
isabelle
correction,
Private Sub Worksheet_Change(ByVal Target As Range) On Error Resume Next Target.Font.ColorIndex = Target.Value If Err.Number <> 0 Then Err.Clear End Sub
isabelle
Le 2010-10-18 16:17, isabelle a écrit :
Private Sub Worksheet_Change(ByVal Target As Range) On Error Resume Next Target.Interior.ColorIndex = Target.Value If Err.Number <> 0 Then Err.Clear End Sub
isabelle
correction,
Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
Target.Font.ColorIndex = Target.Value
If Err.Number <> 0 Then Err.Clear
End Sub
isabelle
Le 2010-10-18 16:17, isabelle a écrit :
Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
Target.Interior.ColorIndex = Target.Value
If Err.Number <> 0 Then Err.Clear
End Sub
Private Sub Worksheet_Change(ByVal Target As Range) On Error Resume Next Target.Font.ColorIndex = Target.Value If Err.Number <> 0 Then Err.Clear End Sub
isabelle
Le 2010-10-18 16:17, isabelle a écrit :
Private Sub Worksheet_Change(ByVal Target As Range) On Error Resume Next Target.Interior.ColorIndex = Target.Value If Err.Number <> 0 Then Err.Clear End Sub
isabelle
PatriceRoy
On 19 oct, 08:43, isabelle wrote:
correction,
Private Sub Worksheet_Change(ByVal Target As Range) On Error Resume Next Target.Font.ColorIndex = Target.Value If Err.Number <> 0 Then Err.Clear End Sub
isabelle
Le 2010-10-18 16:17, isabelle a écrit :
> Private Sub Worksheet_Change(ByVal Target As Range) > On Error Resume Next > Target.Interior.ColorIndex = Target.Value > If Err.Number <> 0 Then Err.Clear > End Sub
> isabelle- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -
Bonjour,
N'aurais-t-il été plus simple d'utiliser une mise en forme conditionnelle? Il y a une description des possibilités de cette commande à la page http://lecompagnon.info/excel2007/exercices/miseenpage conditionnelle.htm .
Patrice
On 19 oct, 08:43, isabelle <i...@v.org> wrote:
correction,
Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
Target.Font.ColorIndex = Target.Value
If Err.Number <> 0 Then Err.Clear
End Sub
isabelle
Le 2010-10-18 16:17, isabelle a écrit :
> Private Sub Worksheet_Change(ByVal Target As Range)
> On Error Resume Next
> Target.Interior.ColorIndex = Target.Value
> If Err.Number <> 0 Then Err.Clear
> End Sub
> isabelle- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -
Bonjour,
N'aurais-t-il été plus simple d'utiliser une mise en forme
conditionnelle? Il y a une description des possibilités de cette
commande à la page http://lecompagnon.info/excel2007/exercices/miseenpage conditionnelle.htm
.
Private Sub Worksheet_Change(ByVal Target As Range) On Error Resume Next Target.Font.ColorIndex = Target.Value If Err.Number <> 0 Then Err.Clear End Sub
isabelle
Le 2010-10-18 16:17, isabelle a écrit :
> Private Sub Worksheet_Change(ByVal Target As Range) > On Error Resume Next > Target.Interior.ColorIndex = Target.Value > If Err.Number <> 0 Then Err.Clear > End Sub
> isabelle- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -
Bonjour,
N'aurais-t-il été plus simple d'utiliser une mise en forme conditionnelle? Il y a une description des possibilités de cette commande à la page http://lecompagnon.info/excel2007/exercices/miseenpage conditionnelle.htm .