FOnction supprimer si une condition est supprimée.

Bonsoir,

Existe-t-il une fonction pour supprimer le contenu si : voici le contexte :

Colonnes C à K et Lignes 2 à x (le tableau se remplit au fur et à mesure de la saisie de valeurs) : contiennent des données,


Je consacre une colonne N pour des données en attente.

L'objectif est de supprimer une donnée de N si la donnée est ajoutée dans une des colonnes de C à K.

1) Pas de fonction "supprimer" dans l'AIde.
2) Est-il possible de faire cela dans une macro ?

merci

Salut.

Le but est donc d'intercepter l'événement Change de la feuille, de voir si c'est une cellule de C:K qui a été modifiée, puis de vérifier si la valeur saisie est présente en N et si oui, de la supprimer en N

Code:

---

1 2 3 4 5 6 7 8

Private Sub Worksheet_Change(ByVal Target As Range) Dim Cellule As Range   If Not Intersect(Range("c:k"), Target) Is Nothing Then Set Cellule = Range("n:n").Find(what:=Target.Value, LookIn:=xlValues, lookat:=xlWhole) If Not Cellule Is Nothing Then Cellule.Delete shift:=xlUp End If End Sub

---

[EDIT] Ce code doit être placé dans le module de la feuille considérée