Entrée supprimer valeurs de certaines cellules suiv. liste

Bonjour à tous,

Petit problème et en plus débutant donc forcément je nage…

Je souhaiterais la suppression des valeurs entrées dans certaines cellules en fonction du choix fait sur une liste de validation des données

Dans la cellule F1 j'ai une liste qui me propose soit de choisir "Entrer Heure" soit "Supprimer"

Si dans la cellule F1 "Entrer Heure" est choisie alors l'utilisateur peut entrer des heures de A1 à E1

Si dans la cellule F1"Supprimer" alors toutes les heures de A1 à F1 s'effacent.

Merci d'avance pour votre aide

Alain.

Bonjour Alex, bonjour le forum,

Essaie avec cette macro événementielle à placer dans l'onglet concerné :

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address <> "$F$1" Then Exit Sub
If Target.Value = "Entrer Heure" Then Range("A1").Select
If Target.Value = "Supprimer" Then Range("A1:E1").ClearContents
End Sub

Merci ThauTheme

C'est exactement ce que je voulais

Bonne journée à toi

Alain

J'ai encore un petit problème car je voudrais étendre le code que ThauTheme m'a retourné mais sur plusieurs lignes

Voir fichier joint

Merci d'avance pour votre aide

Alain

Bonjour Alex, bonjour le forum,

Le code adapté :

Private Sub Worksheet_Change(ByVal Target As Range)
If Application.Intersect(Target, Range("F2:F11")) Is Nothing Then Exit Sub
If Target.Value = "Entrer Heure" Then Cells(Target.Row, 1).Select
If Target.Value = "Supprimer" Then Cells(Target.Row, 1).Resize(1, 5).ClearContents
End Sub

Merci ThauThème de t'être penché une nouvelle fois sur mon problème.

Je te confirme que ton nouveau code fonctionne parfaitement.

Bonne Soirée à toi et au Forum

Alain