Suppression de lignes a partir d'une variable

  • Initiateur de la discussion Initiateur de la discussion lesuisse
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

L

lesuisse

Guest
Bonjour à toutes et à tous,

En fait je souhaite supprimer des lignes selon un critère alphanumérique dans une cellule.
Ce critère change très régulièrement et se trouve dans la celle O3 de la feuille Menu.
Ce fameux critère peut prendre les formes suivantes. Seuls changent le nombre :
=100
>=100
>100
<=100
<>100
<100

Dans le code ci-dessous, je ne sais pas comment lui insérer cette fameuse variable...

Si vous avez une idée...
Merci beaucoup et bonne journée à toutes et à tous.

Le Suisse

Dim cell As Range
For Each cell In Range("P2😛65536")
If Not IsEmpty(cell) Then
If cell .....???...... Worksheets("Menu").Range("O3").Value Then
cell.EntireRow.ClearContents
End If
End If
Next cell
 
Salut le suisse,

si j'avais ton pb, je le resoudrais comme ca:


dim a as string
a=Worksheets("Menu").Range("O3").Value

case left(a, 2) = "=>"
For Each cell In Range("P2😛65536")
if cell.value => right(a, Len(a)-2)
cell.entirerow.clearcontents
end if
next cell

case left(a,1) = "<"
etc...



ce n'est peu etre pas le plus simple mais c'est une solution.

A++, Sylsyl.
 
Bonjour,

Il y a une voie à explorer avec les filtres automatiques,
Selection.AutoFilter Field:=1, Criteria1:=">10", Operator:=xlAnd.

Où les macros XL4, qui permettent la modification du code en cours d'exécution.

Bonne journée.

@+Jean-Marie
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

Réponses
3
Affichages
832
Retour