Faire disparaître des lignes lorsqu'elle ne sont pas marquées

[ipotez]

Re bonjour !

Nouveau post car autre question :
Des images sont plus parlantes que des explications hasardeuses


Merci infiniment pour le coup de pouce !

 

[Banzai64]

Re : Faire disparaître des lignes lorsqu'elle ne sont pas marquées

Bonjour

Un essai

Sub Clic()
Dim I As Long
  For I = Range("A65536").End(xlUp).Row To 1 Step -1
    If UCase(Range("B" & I)) <> "X" Then
      Rows(I).Delete
    End If
  Next I
End Sub

 

[ipotez]

Re : Faire disparaître des lignes lorsqu'elle ne sont pas marquées

Ca marche !

J'avais merdouillé un ptit truc mais c bon tout fonctionne.

Merci beaucoup

 

[ipotez]

Re : Faire disparaître des lignes lorsqu'elle ne sont pas marquées

Tout roule sauf que j'ai un problème avec la partie haute de la feuille.

Je t'ai remis le fichier pour plus de clareté

Ta macro, comme je l'avais demandé, supprime toutes les ligne non marquées. Mais comment dois je procéder si j'ai des informations que je veux conserver ? (par exemple les 6 premières lignes )

Merci

 

[Banzai64]

Re : Faire disparaître des lignes lorsqu'elle ne sont pas marquées

Bonjour juste modifies le 1 de To 1 en mettant : To 7

Sub Clic()
Dim I As Long
  For I = Range("A65536").End(xlUp).Row To 7 Step -1
    If UCase(Range("B" & I)) <> "X" Then
      Rows(I).Delete
    End If
  Next I
End Sub

[/QUOTE]

 

[ipotez]

Re : Faire disparaître des lignes lorsqu'elle ne sont pas marquées

Tout simplement 🙂

Merci bien Banzaï !
A++