Couleur de remplissage en fonction de la cellule

[14loulou]

Bonjour,

Je bloque sur un petit souci

quand le clique sur la ligne pour mettre une donnée (j'ai fait une liste déroulante) je voudrais quand fonction de ce résultat de la ligne en cours colonne 2 . La ligne se remplisse d'une couleur de la colonne 1 et colonne 5

J'ai un début de script

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
  If Target.Column = 2 Then
    If Target.Value = "toto" Then
     Rows(Target.Row).Font.ColorIndex = 3
    End If
  End If
End Sub

merci de votre aide

 

[BERRACHED said]

Re : Couleur de remplissage en fonction de la cellule

Salut,14loulou

un fichier Exemple en joins,ferait bien l'affaire pour comprendre la démarche.

ton code donne la couleur Rouge a la colonne 2

Cordialement

 

[14loulou]

Re : Couleur de remplissage en fonction de la cellule

bonjour,

J'ai fait un fichier,

Voir ci joint 🙂

 

[jeanpierre]

Re : Couleur de remplissage en fonction de la cellule

Bonjour 14loulou, Salut Said,

Peut-être qu'avec une simple Mise en forme conditionnelle cela suffirait ?

Dans ce cas, car je ne vais pas savoir t'expliquer avec Excel 2007, regarde ce lien et plus particulièrement le chapitre IV E "Feuilles de calcul/Mise en forme conditionnelle" :

Présentation de Microsoft Office - Excel 2007 - Club d'entraide des développeurs francophones - Club d'entraide des développeurs francophones

Ensuite et après selection de toute ta plage, tu choisis La formule est et en première condition ceci : =$B3="toto" et tu selectionnes ton motif bleu.

Ajouter et en seconde condition : =$B3="tutu" et ton autre motif.

Bon après-midi.

Jean-Pierre

 

[14loulou]

Re : Couleur de remplissage en fonction de la cellule

Bonjour,

je preferai avoir une version VB.

 

[14loulou]

Re : Couleur de remplissage en fonction de la cellule

Bonsoir,

Personne pour me donner un coup de main ?

merci

 

[14loulou]

Re : Couleur de remplissage en fonction de la cellule

Bonjour,

Personne pour aider ?

 

[PMO2]

Re : Couleur de remplissage en fonction de la cellule

Bonjour,

Une piste avec le code suivant

'############
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Dim lig&
Dim i&
Dim R As Range
Dim R2 As Range
Dim C As Range
Dim valeur
Dim couleur
Set R = Application.Intersect(Target, Range(Columns(2).Address))
If R Is Nothing Then Exit Sub
'--- A adapter ---
valeur = Array("toto", "tutu")
couleur = Array(41, 44)
'-----------------
For Each C In R
lig& = C.Row
Set R2 = ActiveSheet.Range(Cells(lig&, 1), Cells(lig&, 5))
For i& = LBound(valeur) To UBound(valeur)
If C = valeur(i&) Then
R2.Interior.ColorIndex = couleur(i&)
Exit For
End If
Next i&
Next C
End Sub
'############

Cordialement.

PMO
Patrick Morange