Automatisation au changement de la valeur d'une cellule

Bonjour,

Je souhaite réaliser un code qui me permet de supprimer automatiquement la valeur d'une case (ici A1) en fonction de sa valeur (ici inférieur à 10).

J'ai essayé plusieurs Private Sub mais je n'arrive pas à les faire fonctionner, cela est probablement juste le fait que je ne sache pas dans quel module VBA écrit le Private Sub.

Si quelqu'un pourrais m'éclairer cela serait super.

Belle journée à vous.

(PS: dans le document je n'ai pas mit de private juste la formule a réaliser automatiquement ^^)

Bonjour,

Si vous voulez que la macro réagisse au changement de valeur (cela s'appelle une macro évènementielle), il faut la placer dans le module de la feuille et non dans le module standard(vous pouvez le supprimer)

Copiez ce code dans le module de la feuille 1:

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address = "$A$1" And Target < 10 Then
        Target.ClearContents
    End If
End Sub

Comme dans l'image ci-dessous:

Cdlt

Et si tu veux néanmoins laisser ça dans un module que tu n'actives que quand tu le veux, tu mets ;

Sub Bornes()
If Worksheets("Feuil1").Range("A1") < 10 Then
Worksheets("Feuil1").Range("A1").ClearContents
End If
End Sub

Bonjour,

Je vous remercie pour vos réponse. Notamment Arturo83 maintenant tout marche comme souhaité ^^.

Belle journée à vous