Mise en forme selon 2 critères

Bonjour,

Je bloque sur quelque chose de sûrement très simple.

je souhaite faire une mise en forme au cellule content "1" avec la couleur selon ce qui est rentré dans la colonne "A".Pourriez-vous m'aider à faire la formule de mise en forme ?

Merci

Bonjour,

"Pomme, Pêche, Poire, Abricot, il y en a une qui est en trop"

=et($A7="POMME";A7>0)
'ou
=NB.SI.ENS($A7;"POMME";A7;">0")

A appliquer à $C$7:$H$10.

Mais ça pourrait devenir compliqué avec un grand nombre d'articles...

Cdlt,

Merci beaucoup pour ta réponse !

J'ai essayé différentes manières...mais pas moyen, je bloque.

Ci-joint mon fichier, serait-il possible d'y ajouter la formule pour que je comprenne ?

Bonjour

Avec une plage nommée "couleurs_fruits" pour les couleurs de la Feuille "liste"

Avec un double Private Sub sur la Feuille "STAGIAIRE"

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Application.Intersect(Target, Range("D4:D8")) Is Nothing Then
Target.Interior.ColorIndex = [couleurs_fruits].Find(Target, LookAt:=xlWhole).Interior.ColorIndex
ElseIf Not Application.Intersect(Target, Range("G4:BF8")) Is Nothing Then
If Target.Value = 1 Then
Target.Interior.ColorIndex = Range("D" & Target.Row).Interior.ColorIndex
End If
End If
End Sub

Cordialement

Excellent merci.

ça fonctionne, mais ca plante lorsque je désire faire une correction.

N'est-il pas possible de faire ce genre d'opération sans utiliser VB ?

Merci encore pour votre aide

Bonjour,

Il est possible qu'il y ait des bugs notamment si vous changez les valeurs d'une sélection multiple...

Mais, je me dis que l'organisation serait peut-être à revoir. A votre place, je mettrais au moins les dates en lignes et les articles en colonnes, et sinon, j'aurais une colonne date, une colonne article, une colonne entrée ( ou sortie, vente >>> je ne connais pas la finalité), une colonne prix, ...

Ce serait donc une sorte de journal.

Ca permettrait de mieux recouper l'information et de parvenir à obtenir des récapitulatifs.

Cdlt,

Merci pour la proposition.

mais je ne désire pas changer la mise en forme.

Il n'y a pas de calcul de prix ou autre à la fin.

Ce n'est vraiment pas réalisable avec une mise en forme et la formule =NB.SI.ENS ?

Ici cela fonctionne avec une simple mise en forme conditionnelle. Mais mon but c'est que ca reprenne la couleur qui est rentrée en colonne "D".

Si c'est possible :

Mais vous devriez y songer quand même

Cdlt

Edit : laissez tomber ma réponse alors, je n'avais pas vue la vôtre.

Sans VBA, ça parait compliqué...

Voici un essai :

'MODULE FEUILLE EN QUESTION
Private Sub Worksheet_Change(ByVal Target As Range)

dim plage as range

If Not Intersect(Target, Range("G4:BF8")) Is Nothing Then
    set plage = intersect(Target, Range("G4:BF8"))
    call MFC(plage)
end if

End Sub

'MODULE NORMAL
Sub MFC(Cible as range)

for each cell in Cible
    if cell.value > 0 then
        cell.interior.color = Cells(cell.row, 4).displayformat.interior.color
    else
        cell.interior.color = RGB(255,255,255)
    end if
next cell

end sub

Code édité pour prendre en compte la couleur résultant d'une MFC en colonne D

Cdlt,