effacement de données

[DIGGERJACK]

Bonjour le forum
Dans la zone jaune je choisis un nombre issu de la liste déroulante mais je voudrais être prévenu d"un message
" Nombre déjà affecté " qui serait issu de la liste déroulante si ce nombre est sélectionné deux fois
Cela fonctionne à merveille

Comment modifier le code pour pouvoir effacer les données sans avoir de bug
en sachant que ces données doivent être effacées en les selectionnant non pas une à une mais par plage de cellule
Exemple D6😀9 ou D20😀45
actuellement si je sélectionne la plage D20😀45 et que j'appuies sur SUPP il y a une erreur d'excécution 13
Comment faire
Merci de votre aide
Diggerjack

 

[Pierrot93]

Re : effacement de données

Bonjour Diggerjack

essaye peut être en modifiant ton code comme ci essous :

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
If Not Application.Intersect(Target, Range("D6:D50")) Is Nothing Then
    If Target <> "" And Application.WorksheetFunction.CountIf(Range("D6:D50"), Target) > 1 Then
    MsgBox "vous avez déjà saisi cette valeur"
    Target = ""
    Target.Select
    End If
End If
End Sub

bonne journée
@+

 

[DIGGERJACK]

Re : effacement de données

Bonjour le forum et Pierrot 93

Merci beaucoup cela fonctionne à merveille

Bonne journée à tous
Diggerjack