Discussion :

[logiclogic]

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

[Pierre Fauconnier]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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