Couleur dans cellule si une autre contient une parti de text

bonjour a tous et toutes

voila

dans ma fauille base je rentre mes ref et les produit

et sur la fauil tab des ref

et j'aimerais si cela est possible metre les ref en vert par ex si une cellule de la feuille base col B comptient le nombre 45

et la meme choses mais rouge pour le nombre 60 etc..

je joint un exemple

merci d'avance et a bientôt

Bonsoir,

Il faudrait savoir comment tu procèdes.

En supposant que ta feuille Base est remplie puis que tu complètes la feuille Tab dans les colonnes A àD, utilise ce bout de code

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
'Macro Dan
Dim plage As Range, cel As Range
Dim c As Integer
Dim lg As Integer
Set plage = Range("A3:D8")
lg = Cells.Find("*", LookIn:=xlValues, SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row + 1
Set plage = Range("A3:D" & lg)
If Not Intersect(Target, plage) Is Nothing Then
For Each cel In plage
If Not IsEmpty(cel) Then
    lg = Sheets("Base").Range("A1:A" & Sheets("Base").Range("A" & Rows.Count).Row).Find(cel, LookIn:=xlValues).Row
    Select Case Right(Sheets("Base").Range("B" & lg), 2)
    Case Is = 45: c = 4
    Case Is = 60: c = 3
    Case Else: c = -4142
    End Select
    cel.Interior.ColorIndex = c
    End If
Next
End If
End Sub

Pour placer le code :

• clique droite sur l'onglet de ta feuille Base
• choisis l'option "visualiser le code"
• dans la fenêtre colle le code ci-dessus

Ensuite change ou ajoute une valeur dans la feuille tab pour tester

Si tu travailles sous excel 2007 ou supérieur, il te faut enregistrer le fichier avec l'extension XLSM pour que cela fonctionne.

Si ok, clique sur le v vert à coté du bouton EDITER pour cloturer le fil

Si non, dis moi

Amicalement