suppresion de lignes vides

[lagodille]

bonjour,
En sélectionnant ma plage E6 à Q22 je voudrai qu il ne reste que les lignes ou se trouvent des p des s et des a et ça ne fonctionne pas pourquoi ?. Mon code se trouve dans le module1
merci
-------------------------------------------------

Fichier joint dans vos discussions

-------------------------------------------------

[bbil]

Bonsoir ,

Il faudrait poster la partie concernée de ton code ..

[lagodille]

Envoyé par bbil

Bonsoir ,

Il faudrait poster la partie concernée de ton code ..

le voici :

Code :

1
2
3
4
5
6
7
8
9
Sub Masque_lig_Vides()
    Set Aselectionner = Application.InputBox _
    (prompt:="selectionner la plage de cellule ", _
    Title:=" Plage de cellules à sélectioner", Type:=8)
    Aselectionner.Select 'Selection de la plage souhaitée
    For Each l In Selection
        If Application.CountA(l.EntireRow) = 0 Then Rows(l.Row).RowHeight = 0
    Next l
End Sub

[bbil]

je ne vois pas ton test sur les p les s et les a ...? tu dois les trouver ou ?


évite les select et sélection ...

en remplaçant :

Code :

1
2
  Aselectionner.Select 'Selection de la plage souhaitée
    For Each l In Selection

par tout simplement :

Code :

    For Each l In   Aselectionner

cela aussi :

Code :

Rows(l.Row).RowHeight = 0

s'écrit plutôt tout simplement:

Code :

l.RowHeight = 0

[lagodille]

en fait si je sélectionne une première fois une plage (E6 à Q22) ca fonctionne mais si après je reselectionne après une autre plage (E6 à K18) ca ne fonctionne plus ????

[bbil]

Envoyé par bbil

je ne vois pas ton test sur les p les s et les a ...? tu doit les trouver ou ?

...

je n'ouvre pas les fichiers joints !
Fichier joint dans vos discussions