Salut,
Quel sera le code pour que je vois :
- La ligne A-E se colorier en jaune si la veleur dans la colonne C est
égal à V
- La ligne F-K se colorier en vert si la veleur dans la colonne I est
égal à R
Merci.
Salut,
Quel sera le code pour que je vois :
- La ligne A-E se colorier en jaune si la veleur dans la colonne C est
égal à V
- La ligne F-K se colorier en vert si la veleur dans la colonne I est
égal à R
Merci.
Salut,
Quel sera le code pour que je vois :
- La ligne A-E se colorier en jaune si la veleur dans la colonne C est
égal à V
- La ligne F-K se colorier en vert si la veleur dans la colonne I est
égal à R
Merci.
Formula1:="=$I$2=""r"""
bonjour,
code pour colonnes F:K
Sub Macro5()
'sélectionner cellules concernées
Selection.FormatConditions.Add Type:=xlExpression,
Formula1:="=$I$2=""r"""
Selection.FormatConditions(1).Interior.ColorIndex = 4
End Sub
J'espère que c'est ce que tu souhaites
JP25
A+
"Apitos" a écrit dans le message de news:
Salut,
Quel sera le code pour que je vois :
- La ligne A-E se colorier en jaune si la veleur dans la colonne C est
égal à V
- La ligne F-K se colorier en vert si la veleur dans la colonne I est
égal à R
Merci.
Formula1:="=$I$2=""r"""
bonjour,
code pour colonnes F:K
Sub Macro5()
'sélectionner cellules concernées
Selection.FormatConditions.Add Type:=xlExpression,
Formula1:="=$I$2=""r"""
Selection.FormatConditions(1).Interior.ColorIndex = 4
End Sub
J'espère que c'est ce que tu souhaites
JP25
A+
"Apitos" <apitos@gmail.com> a écrit dans le message de news:
1179856544.773682.111760@36g2000prm.googlegroups.com...
Salut,
Quel sera le code pour que je vois :
- La ligne A-E se colorier en jaune si la veleur dans la colonne C est
égal à V
- La ligne F-K se colorier en vert si la veleur dans la colonne I est
égal à R
Merci.
Formula1:="=$I$2=""r"""
bonjour,
code pour colonnes F:K
Sub Macro5()
'sélectionner cellules concernées
Selection.FormatConditions.Add Type:=xlExpression,
Formula1:="=$I$2=""r"""
Selection.FormatConditions(1).Interior.ColorIndex = 4
End Sub
J'espère que c'est ce que tu souhaites
JP25
A+
"Apitos" a écrit dans le message de news:
Salut,
Quel sera le code pour que je vois :
- La ligne A-E se colorier en jaune si la veleur dans la colonne C est
égal à V
- La ligne F-K se colorier en vert si la veleur dans la colonne I est
égal à R
Merci.
Bonsoir, JP25
es-tu sûr pourFormula1:="=$I$2=""r"""
Adressage absolu ou relatif pour le numéro de ligne?
ou plutôt Formula1:="=$I2=""r"""
Amicalementbonjour,
code pour colonnes F:K
Sub Macro5()
'sélectionner cellules concernées
Selection.FormatConditions.Add Type:=xlExpression,
Formula1:="=$I$2=""r"""
Selection.FormatConditions(1).Interior.ColorIndex = 4
End Sub
J'espère que c'est ce que tu souhaites
JP25
A+
"Apitos" a écrit dans le message de news:
Salut,
Quel sera le code pour que je vois :
- La ligne A-E se colorier en jaune si la veleur dans la colonne C est
égal à V
- La ligne F-K se colorier en vert si la veleur dans la colonne I est
égal à R
Merci.
Bonsoir, JP25
es-tu sûr pour
Formula1:="=$I$2=""r"""
Adressage absolu ou relatif pour le numéro de ligne?
ou plutôt Formula1:="=$I2=""r"""
Amicalement
bonjour,
code pour colonnes F:K
Sub Macro5()
'sélectionner cellules concernées
Selection.FormatConditions.Add Type:=xlExpression,
Formula1:="=$I$2=""r"""
Selection.FormatConditions(1).Interior.ColorIndex = 4
End Sub
J'espère que c'est ce que tu souhaites
JP25
A+
"Apitos" <apitos@gmail.com> a écrit dans le message de news:
1179856544.773682.111760@36g2000prm.googlegroups.com...
Salut,
Quel sera le code pour que je vois :
- La ligne A-E se colorier en jaune si la veleur dans la colonne C est
égal à V
- La ligne F-K se colorier en vert si la veleur dans la colonne I est
égal à R
Merci.
Bonsoir, JP25
es-tu sûr pourFormula1:="=$I$2=""r"""
Adressage absolu ou relatif pour le numéro de ligne?
ou plutôt Formula1:="=$I2=""r"""
Amicalementbonjour,
code pour colonnes F:K
Sub Macro5()
'sélectionner cellules concernées
Selection.FormatConditions.Add Type:=xlExpression,
Formula1:="=$I$2=""r"""
Selection.FormatConditions(1).Interior.ColorIndex = 4
End Sub
J'espère que c'est ce que tu souhaites
JP25
A+
"Apitos" a écrit dans le message de news:
Salut,
Quel sera le code pour que je vois :
- La ligne A-E se colorier en jaune si la veleur dans la colonne C est
égal à V
- La ligne F-K se colorier en vert si la veleur dans la colonne I est
égal à R
Merci.
Attention,
Formula1:="=$I$2=""r""", doit se trouver derriere xlexpression et non a la
ligne en dessous
Si ce n'est pas le cas,
Place toi a la fin de xlexpression
et fait sup
tu n'auras plus de message d'erreur dans le code
JP25
"cousinhub" a écrit dans le message de news:
uv$Bonsoir, JP25
es-tu sûr pourFormula1:="=$I$2=""r"""
Adressage absolu ou relatif pour le numéro de ligne?
ou plutôt Formula1:="=$I2=""r"""
Amicalementbonjour,
code pour colonnes F:K
Sub Macro5()
'sélectionner cellules concernées
Selection.FormatConditions.Add Type:=xlExpression,
Formula1:="=$I$2=""r"""
Selection.FormatConditions(1).Interior.ColorIndex = 4
End Sub
J'espère que c'est ce que tu souhaites
JP25
A+
"Apitos" a écrit dans le message de news:
Salut,
Quel sera le code pour que je vois :
- La ligne A-E se colorier en jaune si la veleur dans la colonne C est
égal à V
- La ligne F-K se colorier en vert si la veleur dans la colonne I est
égal à R
Merci.
Attention,
Formula1:="=$I$2=""r""", doit se trouver derriere xlexpression et non a la
ligne en dessous
Si ce n'est pas le cas,
Place toi a la fin de xlexpression
et fait sup
tu n'auras plus de message d'erreur dans le code
JP25
"cousinhub" <pmcsnhb_nospam@aol.com> a écrit dans le message de news:
uv$Zg8JnHHA.4872@TK2MSFTNGP03.phx.gbl...
Bonsoir, JP25
es-tu sûr pour
Formula1:="=$I$2=""r"""
Adressage absolu ou relatif pour le numéro de ligne?
ou plutôt Formula1:="=$I2=""r"""
Amicalement
bonjour,
code pour colonnes F:K
Sub Macro5()
'sélectionner cellules concernées
Selection.FormatConditions.Add Type:=xlExpression,
Formula1:="=$I$2=""r"""
Selection.FormatConditions(1).Interior.ColorIndex = 4
End Sub
J'espère que c'est ce que tu souhaites
JP25
A+
"Apitos" <apitos@gmail.com> a écrit dans le message de news:
1179856544.773682.111760@36g2000prm.googlegroups.com...
Salut,
Quel sera le code pour que je vois :
- La ligne A-E se colorier en jaune si la veleur dans la colonne C est
égal à V
- La ligne F-K se colorier en vert si la veleur dans la colonne I est
égal à R
Merci.
Attention,
Formula1:="=$I$2=""r""", doit se trouver derriere xlexpression et non a la
ligne en dessous
Si ce n'est pas le cas,
Place toi a la fin de xlexpression
et fait sup
tu n'auras plus de message d'erreur dans le code
JP25
"cousinhub" a écrit dans le message de news:
uv$Bonsoir, JP25
es-tu sûr pourFormula1:="=$I$2=""r"""
Adressage absolu ou relatif pour le numéro de ligne?
ou plutôt Formula1:="=$I2=""r"""
Amicalementbonjour,
code pour colonnes F:K
Sub Macro5()
'sélectionner cellules concernées
Selection.FormatConditions.Add Type:=xlExpression,
Formula1:="=$I$2=""r"""
Selection.FormatConditions(1).Interior.ColorIndex = 4
End Sub
J'espère que c'est ce que tu souhaites
JP25
A+
"Apitos" a écrit dans le message de news:
Salut,
Quel sera le code pour que je vois :
- La ligne A-E se colorier en jaune si la veleur dans la colonne C est
égal à V
- La ligne F-K se colorier en vert si la veleur dans la colonne I est
égal à R
Merci.
J'ai un peu modifier le code :
Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
If Intersect(Target, Range("C2:C" &
Range("C65536").End(xlUp).Row)) Is Nothing Then
If Intersect(Target, Range("I3:I" &
Range("I65536").End(xlUp).Row)) Is Nothing Then Exit Sub
End If
On Error GoTo Fin
'Premier tableau
If Target.Column = 3 And Target.Count = 1 Then
Select Case LCase(Target.Text)
Case Is = "v"
Range("A" & Target.Row & ":F" &
Target.Row).Interior.ColorIndex = 19
Case Is = "r"
Range("A" & Target.Row & ":F" &
Target.Row).Interior.ColorIndex = 44
Case Else
Range("A" & Target.Row & ":F" &
Target.Row).Interior.ColorIndex = xlNone
End Select
End If
'Deuxieme tableau
If Target.Column = 9 And Target.Count = 1 Then
Select Case LCase(Target.Text)
Case Is = "v"
Range("G" & Target.Row & ":M" &
Target.Row).Interior.ColorIndex = 19
Case Is = "r"
Range("G" & Target.Row & ":M" &
Target.Row).Interior.ColorIndex = 44
Case Else
Range("G" & Target.Row & ":M" &
Target.Row).Interior.ColorIndex = xlNone
End Select
End If
Application.EnableEvents = True
Fin:
End Sub
Mais :
- Il ne fonctionne que pour le premier tableau et non pas pour le
deuxieme
- Quand je saisi un autre texte dans la colonne C, la procedure
s'arretera, même si je saisi "v" ou "r" dans Col C.
Ou est l'erreur ?
Merci.
J'ai un peu modifier le code :
Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
If Intersect(Target, Range("C2:C" &
Range("C65536").End(xlUp).Row)) Is Nothing Then
If Intersect(Target, Range("I3:I" &
Range("I65536").End(xlUp).Row)) Is Nothing Then Exit Sub
End If
On Error GoTo Fin
'Premier tableau
If Target.Column = 3 And Target.Count = 1 Then
Select Case LCase(Target.Text)
Case Is = "v"
Range("A" & Target.Row & ":F" &
Target.Row).Interior.ColorIndex = 19
Case Is = "r"
Range("A" & Target.Row & ":F" &
Target.Row).Interior.ColorIndex = 44
Case Else
Range("A" & Target.Row & ":F" &
Target.Row).Interior.ColorIndex = xlNone
End Select
End If
'Deuxieme tableau
If Target.Column = 9 And Target.Count = 1 Then
Select Case LCase(Target.Text)
Case Is = "v"
Range("G" & Target.Row & ":M" &
Target.Row).Interior.ColorIndex = 19
Case Is = "r"
Range("G" & Target.Row & ":M" &
Target.Row).Interior.ColorIndex = 44
Case Else
Range("G" & Target.Row & ":M" &
Target.Row).Interior.ColorIndex = xlNone
End Select
End If
Application.EnableEvents = True
Fin:
End Sub
Mais :
- Il ne fonctionne que pour le premier tableau et non pas pour le
deuxieme
- Quand je saisi un autre texte dans la colonne C, la procedure
s'arretera, même si je saisi "v" ou "r" dans Col C.
Ou est l'erreur ?
Merci.
J'ai un peu modifier le code :
Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
If Intersect(Target, Range("C2:C" &
Range("C65536").End(xlUp).Row)) Is Nothing Then
If Intersect(Target, Range("I3:I" &
Range("I65536").End(xlUp).Row)) Is Nothing Then Exit Sub
End If
On Error GoTo Fin
'Premier tableau
If Target.Column = 3 And Target.Count = 1 Then
Select Case LCase(Target.Text)
Case Is = "v"
Range("A" & Target.Row & ":F" &
Target.Row).Interior.ColorIndex = 19
Case Is = "r"
Range("A" & Target.Row & ":F" &
Target.Row).Interior.ColorIndex = 44
Case Else
Range("A" & Target.Row & ":F" &
Target.Row).Interior.ColorIndex = xlNone
End Select
End If
'Deuxieme tableau
If Target.Column = 9 And Target.Count = 1 Then
Select Case LCase(Target.Text)
Case Is = "v"
Range("G" & Target.Row & ":M" &
Target.Row).Interior.ColorIndex = 19
Case Is = "r"
Range("G" & Target.Row & ":M" &
Target.Row).Interior.ColorIndex = 44
Case Else
Range("G" & Target.Row & ":M" &
Target.Row).Interior.ColorIndex = xlNone
End Select
End If
Application.EnableEvents = True
Fin:
End Sub
Mais :
- Il ne fonctionne que pour le premier tableau et non pas pour le
deuxieme
- Quand je saisi un autre texte dans la colonne C, la procedure
s'arretera, même si je saisi "v" ou "r" dans Col C.
Ou est l'erreur ?
Merci.
Merci cousinhub.
Ca marche tres bien.
Et si je veux appliquer un cadrillage aux lignes concernées par les
valeurs "v" et "r", et enlever celui-ci si n'y a des valeurs autres
uae "v" ou "r" ?
Merci.
Merci cousinhub.
Ca marche tres bien.
Et si je veux appliquer un cadrillage aux lignes concernées par les
valeurs "v" et "r", et enlever celui-ci si n'y a des valeurs autres
uae "v" ou "r" ?
Merci.
Merci cousinhub.
Ca marche tres bien.
Et si je veux appliquer un cadrillage aux lignes concernées par les
valeurs "v" et "r", et enlever celui-ci si n'y a des valeurs autres
uae "v" ou "r" ?
Merci.