code VBA pour suppression

[titi]

Bonjour au forum,
Un fichier ci-joint avec les explications et le code, il ne manque pas grand chose mais ?



TITI

 

[Arnaud]

salut,

comme ça ça te vas ??

 

[Lord Nelson]

Salut,
Il te suffit de rajouter Target.Value = "" et le tour est joué.

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Target.Column = 5 Then
If Application.WorksheetFunction. _
CountIf(Range("e4:e20"), Target.Value) > 1 Then
MsgBox "ce nom a déja été saisi il va être supprimé"
Target.Value = ""
End If
End If
End Sub

A+
LN

 

[titi]

merci a tous les deux.
çà marche a plus
titi

 

[titi]

un petit problème qui apparaît lorsque je supprime l'ensemble des codes.
la macro apparaît en erreur
si vous pouvez faire quelque chose.
TITI

 

[Lord Nelson]

Peux-tu préciser "lorsque je supprime l'ensemble des codes" ?
Je ne vois pas où tu veux en venir.
A+

 

[titi]

en fait si je selectionne la colonne E de e4 a e20 et que je desire supprimer les codes la macro apparaît en erreur.

si tu aime mieux ses codes peuvent changer toutes les semaines.

le problème n'est pas si grave que çà car en appuyant sur fin la macro ce réinitialise, mais çà fait desordre
merci
titi

 

[Lord Nelson]

En effet, ça plante.
Place ceci au début de la procédure :
If Target.Text = "" Then Exit Sub
et tout s'arrange !
A+
LN

 

[titi]

Merci LN
Le problème esr reglé .
titi