[Excel ou VB?] MEFC modifiant autre cellule

Résolu
greengrin Messages postés 3 Date d'inscription   Statut Membre Dernière intervention   -  
greengrin Messages postés 3 Date d'inscription   Statut Membre Dernière intervention   -
Bonjour,

Cela fait un bout de temps que je cherche une solution pour mettre en forme des cellules avec plus de 3 conditions sans trouver de réponse satisfaisante... (j'ai 5 conditions pour le moment)

Les mises en formes conditionnelles se limitent à 3 conditions, j'ai vu qu'il était possible de mettre en forme les cellules avant d'y appliquer des conditions mais cela ne solutionne pas mon souci, cela ne semble ne s'appliquer qu'au texte, alors que je cherche seulement à mettre un fond de couleur différente selon les valeurs contenues dans certaines autres cellules.

Tout ce que j'ai trouvé pour l'instant ce sont des macros pour modifier les cellules elles mêmes et non d'autres cellules cibles.


Le problème :

J'ai deux colonnes A et B, et je souhaiterait appliquer ces conditions sur toutes les cellules de A en fonction des cellules de B :

si B1 = haricot alors A1 est en fond vert
si B1 = tomate alors A1 est en fond rouge
si B1 = raisin alors A1 est en fond violet
si B1 = citron alors A1 est en fond jaune
si B1 = orange alors A1 est en fond orange
petit plus si possible : si B1 est différent de haricot, tomate, raisin, citron ou orange, alors n'appliquer aucune couleur de fond sur la cellule A1

et ainsi de suite sur A2 en fonction de B2, A3 en fonction de B3 etc etc...


Je vous remercie d'avance de m'apporter vos lumières car je suis un peu perdu!!
greengrin
A voir également:

4 réponses

Réponse 1 / 4
Armojax Messages postés 1860 Date d'inscription   Statut Membre Dernière intervention   1 528
 
Copie ça dans le code de la feuille concernée (le code de Feuil1 par exemple) :
Private Sub Worksheet_Change(ByVal Target As Range)
  If Target.Column <> 2 Then Exit Sub
  Dim I As Long
  I = Target.Row
  Select Case UCase(Cells(I, 2).Value)
    Case "HARICOT": Cells(I, 1).Interior.ColorIndex = 4
    Case "TOMATE": Cells(I, 1).Interior.ColorIndex = 3
    Case "RAISIN": Cells(I, 1).Interior.ColorIndex = 39
    Case "ORANGE": Cells(I, 1).Interior.ColorIndex = 45
    Case "CITRON": Cells(I, 1).Interior.ColorIndex = 6
    Case Else: Cells(I, 1).Interior.ColorIndex = xlNone
  End Select
End Sub
1
Réponse 2 / 4
greengrin Messages postés 3 Date d'inscription   Statut Membre Dernière intervention   1
 
C'est EXACTEMENT ce que je recherchais!
et ça marche tip top!!

Enfin une solution fonctionne, Merci beaucoup pour ton aide!!

greengrin
1
Réponse 3 / 4
Armojax Messages postés 1860 Date d'inscription   Statut Membre Dernière intervention   1 528
 
Salut

"Tout ce que j'ai trouvé pour l'instant ce sont des macros pour modifier les cellules elles mêmes et non d'autres cellules cibles."

Eh oui, je pense qu'il faut que tu passes par une macro.
0
Réponse 4 / 4
greengrin Messages postés 3 Date d'inscription   Statut Membre Dernière intervention   1
 
oui je lepense aussi, mais comme je l'expliquais (plus ou moins clairement) dans mon message, celles que j'ai testées ne me donnent pas le resultat escompté...
0

Discussions similaires

Excel formule : savoir si une cellule contient partie texte
plunderer007 -
francois -

14 réponses
Remplir une cellule (texte) en fonction d'une autre (texte).
SOMUM -
SOMUM -

4 réponses