Comment coder ça

2 choix. Codes à placer dans le module de la feuille concernée. clic droit sur l'onglet de cette feuille / visualiser le code.
"oneshot" :

Private Sub CommandButton1_Click()
Dim i As Integer
    With Worksheets("Feuil1")   'ADAPTER le nom de la feuille
        For i = 45 To 5000  'boucle sur les cellules D45:D5000 ADAPTER le 45 et le 5000 de la boucle
            If .Range("D" & i).Value = "F" Then .Range("C" & i).ClearContents
        Next
    End With
End Sub

Ou alors, au fur et à mesure de la saisie :

 Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Cells.Count = 1 Then
        If Not Intersect(Target, Range("D45:D5000")) Is Nothing Then
            If Target.Value = "F" Then Target.Offset(, -1).ClearContents
        End If
    End If
End Sub

Bonjour,

Salut Eriiic,

Faut il effacer la cellule en C si D contient :
> EFFRAYER
> F
> f
> faute
???

Bonjour,

contiguë à gauche ? à droite ? au-dessus ?
Que contient-elle ? Formule ou saisie ?
eric

Bonjour,

A priori, il faut passer par un script en VBA qu'on déclenchera sur l'appui d'une touche ou d'un bouton. C'est ce que vous voulez ? Pouvez-vous préciser d'avantage ?