Macro supression valeurs cellules

[Tex]

Bonjour,

Etant novice dans le domaine du VBA, je sollicite votre aide.
Je souhaite créer une macro permettant de supprimer les valeurs présentes sur une même colonne en fonction des valeurs inscrites sur une plage de données.
Par exemple si dans la plage il y a inscrit le nombre 10 alors la macro va supprimer le nombre 10 dans la colonne spécifiée.

J'ai récupérer un bout de code qui peut servir de base mais il me manque la ligne IF cell et probablement d'autres codes.

Sub Macro()
Dim I, L As Integer
Dim Cell1 As Variant

I = Feuil1.Range("k1").End(xlDown).Row ' Trouve la fin de la colonne K
Range("k1:k" & I).Select 'Selectionne l'ensemble de la colonne jusqu'à Vide = True
L = 1
Start:
For Each Cell1 In Selection ' Pour chaque cellule dans la selection
If Cell1 - ???? Then
Cell1.Delete ' Efface la cellule
Range("k" & L & ":k" & Feuil1.Range("k1").End(xlDown).Row).Select ' Reselectionne la Colonne k depuis la ligne ne cours seulement
GoTo Start: ' recommence depuis le debut de cette selection
Else

End If
Next
End Sub


Merci

 

[JCGL]

Re : Macro supression valeurs cellules

Bonjour à tous,
Bienvenue sur XLD,

Peux-tu essayer :

Option Explicit

Sub Del_Val()
Dim X%
Dim Val

Val = 10

X = Feuil1.Range("K65536").End(xlUp).Row
For X = 1 To X
If Range("K" & X) = Val Then Range("K" & X).ClearContents
Next X
End Sub

A+ à Tous