Effacer une cellule si on écrit ailleurs dans une colonne

Bonjour tout le monde,

Je vous joint mon fichier.

Vous pouvez voir que dans une colonne on peut écrire que une seule cellule pour que la formule prenne tout son sens soit j'aimerais limité la saisie à une seule cellule dans une plage de la collone.

Je voudrait que si on écrit dans un autre celulle qui est dans la dite plage, la précédente cellule se vide et l'autre subsiste et ainsi de suite

Autrement dit J'aimerais que quand je rentre un prix dans la colone "Prix à encoder" , l'autre s'efface, qu'il ne puisse y en avoir qu'un.

Si c'est du VBA, est-ce compliqué ?

Par avance merci

Bonsoir,

Dans le module de la feuille :

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim v
    If Not Intersect(Target, Me.Range("D9:D15")) Is Nothing Then
        Application.ScreenUpdating = False
        Application.EnableEvents = False
        If Target.Count = 1 Then
            v = Target
            Me.Range("D9:D15").ClearContents
            Target = v
        Else
            Me.Range("D9:D15").ClearContents
        End If
        Application.EnableEvents = True
    End If
End Sub

J'ai également modifié ta formule à rallonge en E17, pour raccourcir un peu

=SOMMEPROD(D9:D15/(C9:C15/100))

Cordialement.

Rien à dire c'est parfait !!!!!

Tu es génial

Franchement merci ! Franchement trop cool !

Je valide à 100 pour-cent c'est exactement ce que je voulais.