MEFC sur une portion de ligne

[Mimi]

Bonjour à tout le forum,
Voila je recherche à colorier les celulles A à J lorsque je rentre une donnée en K
D'avance je vous remercie
Michel

 

[wilfried_42]

Re : MEFC sur une portion de ligne

bonjour

tu selectionnes ta plage A:J
tu vas dans les MFC

la formule est : =$Kx<>"" ou encore : =$Kx="Ok"

x etant la premiere ligne selectionnée

 

[Mimi]

Re : MEFC sur une portion de ligne

Bonjour,
Merci de ta réponse, mais j'ai plusieurs choix dans la celulle K, alors ça ne marche pas
Merci
Michel

 

[wilfried_42]

Re : MEFC sur une portion de ligne

re:

combien de choix ?, quelle version d'excel ?

je te cite :

Voila je recherche à colorier les celulles A à J lorsque je rentre une donnée en K

 

[filiph79]

Re : MEFC sur une portion de ligne

Bonjour mimi, wilfried


Ci joint un exemple

cordialement
philippe

 

[Mimi]

Re : MEFC sur une portion de ligne

Bonsoir à tous,
Dans le fichier exemple joint au début, quand je tape en K3, 1950 je voudrais que la ligne se colorie de A à K en jaune (comme dans l'exemple), et dans la même celulle (K3) quand je tape 1952 je voudrais que la ligne de A à k se colorie en bleu ciel. Et ainsi de suite pour les autres lignes de K3 à K400. Tout dépend de la sélection faite dans la colonne K. Il y a 6 choix avec différent colorie.
Je pense enfin j'espère que j'ai bien expliqué la situation sinon dite moi le.
D'avance merci
Michel

 

[wilfried_42]

Re : MEFC sur une portion de ligne

re:

donc c'est par macro, a moins que tu ne sois sur excel 2007, les versions anterieures ne supportent que 3 conditions de MFC

 

[Mimi]

Re : MEFC sur une portion de ligne

Salut Wilfried
Oui c'est par macro, que je souhaite réaliser ceci, je suis sous excel 2003
J'ai fait ceci :

Private Sub Worksheet_Change(ByVal Target As Range)
Dim cel As Range
If Intersect(Target, Range("Dates")) Is Nothing Then Exit Sub
For Each cel In Range("test")
If cel = Target Then
Target.EntireRow.Interior.Colorindex = cel.Interior.Colorindex
Exit Sub
End If
Next cel
End Sub

Mais là ça me colorie toute la ligne
D'avance merci
Michel

 

[wilfried_42]

Re : MEFC sur une portion de ligne

re:

Target.EntireRow.Interior.Colorindex = cel.Interior.Colorindex

devient

range("A" & target.row & ":J" & target.row).interior.colorindex = cel.interior.colorindex

 

[Mimi]

Re : MEFC sur une portion de ligne

Re
Que dire, merveilleux, je te remercie
Michel