suppresssion lignes masquées

[jo]

Bonjour à tous,

je sollicite votre aide afin de trouver comment supprimer uniquement les lignes masquées d'une feuille.

Je sais comment sélectionner uniquement les cellules visibles, mais pas celles qui sont masquées.

Y a t-il possibilité pour inverser la sélection ?

Merci de m'aider si vous savez quelque chose à ce sujet, trouver une solution à ce problème me faciliterais énormément les choses...

@ plus.

Jo.

 

[PascalXLD]

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

 

[NICO]

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.

 

[jo]

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.

 

[jo]

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.

 

[PascalXLD]

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

 

[jo]

merci beaucoup, Pascal,

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


Bon week end.

@ plus

Jo

P.S. belle montagne