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

B

Banzai64

XLDnaute Accro

• 18 Janvier 2011

• #2

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

Bonjour

Un essai

VB:

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

 

Vote positif 0 Vote négatif

I

ipotez

XLDnaute Occasionnel

• 18 Janvier 2011

• #3

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

 

Dernière édition: 18 Janvier 2011

Vote positif 0 Vote négatif

I

ipotez

XLDnaute Occasionnel

• 18 Janvier 2011

• #4

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

 

Pièces jointes

• XLDOWNLOAD.xls

  47.5 KB · Affichages: 111
• XLDOWNLOAD.xls

  47.5 KB · Affichages: 114
• XLDOWNLOAD.xls

  47.5 KB · Affichages: 114

Dernière édition: 18 Janvier 2011

Vote positif 0 Vote négatif

B

Banzai64

XLDnaute Accro

• 18 Janvier 2011

• #5

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

VB:

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]

 

Vote positif 0 Vote négatif

I

ipotez

XLDnaute Occasionnel

• 18 Janvier 2011

• #6

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

Tout simplement 🙂

Merci bien Banzaï !
A++

 

Vote positif 0 Vote négatif