suppresssion lignes masquées

PascalXLD

XLDnaute Barbatruc

Modérateur

• 25 Mars 2005

• #2

Bonjour

Avec une petite macro peut-être

Sub effacer()
dim c as integer
maligne = range('A65536').end(xlup).row

for x=maligne to 1 step -1
if rows(x).visible=false then rows(x).delete
next

end sub

Bon courage

 

Vote positif 0 Vote négatif

N

NICO

Guest

• 25 Mars 2005

• #3

Salut à tous

je ne connais pas de soluce pour ton pb, mais ça m'interesse de savoir comment on peut le résoudre.

J'ai des pbs du meme type. Une base de données que je dois échanger avec des clients. Je ne veux pas en communiquer la totalité.

Si je pouvais supprimer les lignes masquées, ça résoudrait tout.

a bientôt.

 

Vote positif 0 Vote négatif

J

jo

Guest

• 25 Mars 2005

• #4

merci pascal pour ta réponse

cependant, il y a une érreur dans le code (à la ligne if..)

Peux-tu m'aider à rectifier.

Merci d'avance.

 

Vote positif 0 Vote négatif

J

jo

Guest

• 25 Mars 2005

• #5

merci pascal pour ta réponse

cependant, il y a une érreur dans le code (à la ligne if..)

Peux-tu m'aider à rectifier.

Merci d'avance.

 

Vote positif 0 Vote négatif

PascalXLD

XLDnaute Barbatruc

Modérateur

• 25 Mars 2005

• #6

Oups excuse

Je l'ai fait comme cela vite fait entre deux et je me suis planté

Sub effacer()
Dim x As Integer
Dim maligne As Integer
maligne = Range('A65536').End(xlUp).Row

For x = maligne To 1 Step -1
If Rows(x).Hidden = True Then Rows(x).Delete
Next

End Sub

ça devrait aller maintenant

Message édité par: Pascal76, à: 25/03/2005 13:28

 

Vote positif 0 Vote négatif

J

jo

Guest

• 25 Mars 2005

• #7

merci beaucoup, Pascal,

tu m'enlève une grosse épine du pied, ça marche impec.


Bon week end.

@ plus

Jo

P.S. belle montagne

 

Vote positif 0 Vote négatif