Voici un exemple de ce que je souhaiterais réalisé. Si A1="B" alors je veux que la plage de cellule B1:B3 soit colorée en bleu
J'ai bien essayé en combinant avec d'anciennes macros mais je n'y arrive decidement pas... Je débute et c'est dur...
Voici un exemple rudimentaire de mes essais
Sub couleur()
If A1 = "b" Then
SelectionRange("b1:b3").Interior.ColorIndex = 41
End If
End Sub
Re : plusieurs formats conditionnels de plage de cellules
Bonsoir
A mettre dans le code de la feuillle
(Il y a surement plus concis niveau code)
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Text = "b" Then
Range(Target.Offset(0, 1), Target.Offset(2, 1)).Interior.ColorIndex = 41
End If
End Sub
Re : plusieurs formats conditionnels de plage de cellules
Bonsoir bud, spit, staple....
staple, tu disais un peu plus concis :
Private Sub Worksheet_Change(ByVal Target As Range)
Range(Target.Offset(0, 1), Target.Offset(2, 1)).Interior.ColorIndex = _
IIf(Target = "b", 41, xlNone)
End Sub
Re : plusieurs formats conditionnels de plage de cellules
Merci Staple1600 et Merci bhbh,
On s'approche de la vérité puisqu'en fait je souhaiterais que pour tout "B" affiché dans la plage de celulle "A1:A20", les cellules des lignes correspondantes soint affichées en bleu "D:F"... Ex : Si A12="B" alors D12,E12 et F12 s'affichent en bleu
Re : plusieurs formats conditionnels de plage de cellules
Bonjour
->bhbh: un Oh admiratif pour ta concision "vbaistique"
En reprenant le code de bhbh
Code:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim x As Long
x = Target.Row
If Not Target.Column = 1 Then Exit Sub
Range(Cells(x, 4), Cells(x, 6)).Interior.ColorIndex _
= IIf(Target = "b", 41, xlNone)
End Sub
Re : plusieurs formats conditionnels de plage de cellules
Salut
un petit changement sur la fin... mais sans tester et sans en être sur !
En reprenant le code de bhbh
Code:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim x As Long
x = Target.Row
If Not Target.Column = 1 Then Exit Sub
Range(Cells(x, 4), Cells(x, 6)).Interior.ColorIndex _
= IIf(Target = "b", 41, IIF(Target = "c", 5, xlNone))
End Sub
Re : plusieurs formats conditionnels de plage de cellules
Bonjour
edit: j'avais oublié d'utiliser le With
Code:
Private Sub Worksheet_Change(ByVal Target As Range)
With Target
If Not .Column = 1 Then Exit Sub
.Offset(0, 3).Resize(1, 3).Interior.ColorIndex _
= IIf(Target = "b", 41, IIf(Target = "c", 3, xlNone))
End With
End Sub
En reprenant le code de ya_v_ka, reprenant le code de bhbh
et toujours dans un esprit de concision
Code:
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Target.Column = 1 Then Exit Sub
Target.Offset(0, 3).Resize(1, 3).Interior.ColorIndex _
= IIf(Target = "b", 41, IIf(Target = "c", 3, xlNone))
End Sub
ou aussi
Code:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1 Then Target.Offset(0, 3).Resize(1, 3).Interior.ColorIndex _
= IIf(Target = "b", 41, IIf(Target = "c", 3, xlNone))
End Sub
Re : plusieurs formats conditionnels de plage de cellules
Salut
Je savais que le rouge était un code entre 3 et 8, mais j'ai tenté ca au hasard, la couleur n'étant surement pas le problème principal de la question ;-) je suis déjà content d'avoir formulé le IIf correctement, je ne l'ai encore jamais utilisé...
Re : plusieurs formats conditionnels de plage de cellules
Merci Staple,
Ca fonctionne parfaitement... mais il me faut aussi faire la même chose avec la colonne 7 en plus de la colonne 1... Merci et désolé de revenir si souvent à la charge