Discussion :

[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

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

[SfJ5Rpw8]

Bonsoir ,

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

[lagodille]

Bonsoir ,

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

le voici :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[SfJ5Rpw8]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

par tout simplement :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

    For Each l In   Aselectionner

cela aussi :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Rows(l.Row).RowHeight = 0

s'écrit plutôt tout simplement:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

l.RowHeight = 0

[SfJ5Rpw8]

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