Effacer cellules

Fichier joint

Bonjour,

Une solution avec macro sur la valeur choisie en A6
- clic droite sur l'onglet Feuil1
- Ajoutez ce code dans la fenêtre

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
Dim i As Byte
If Target.Count > 1 Then Exit Sub
If Not Intersect(Target, Range("A6")) Is Nothing And Target.Value <> vbNullString Then
    For i = 4 To 11
        If Range("B" & i) > Target.Value Then Range("C" & i & ":D" & i).ClearContents
    Next i
End If
End Sub

- Enregistrez votre fichier au format XLSM por accepter l'utilisation de macro

Crdlt

bonsoir

avec un format conditionnel et une formule de somme adaptée

cordialement

Parfait, Merci Tulipe 4

Pourrais-tu me donner cette formule conditionnelle, merci d'avance

bonjour

1) tu selectionnes la plage concernée

2) tu vas dans Mise en forme conditionnelle >>nouvelle règle >>utiliser une formule

3) tu saisis: =ET($B4>$A$6) en faisant attention à l'emplacement des $

4) format >>>police , couleur blanc ou couleur du fond (tu vois.....)

cordialement

OK, tulipe_4, j'ai vu et appliqué, encore un GRAND MERCI