Masquer lignes vides

[jacky49]

bonsoir le forum,

Voici un code qui me classe par ordre d'arrivée un tableau des cellules B22 à L57, je voudrais ajouter un bout de code pour que les lignes vides en dessous du classement se cache car il peut y avoir que 5 lignes (de B22 à L 27) qui soit classée et en desous quelles soient masquées.
merci de votre aide.
jacky

Public Sub ClasserManche1(ByVal NomFeuil As String)
  
Worksheets(NomFeuil).Range("B22:L57").Select
    Worksheets(NomFeuil).Sort.SortFields.Clear
    Worksheets(NomFeuil).Sort.SortFields.Add _
        Key:=Range("B22:B57"), SortOn:=xlSortOnValues, Order:=xlAscending, _
        DataOption:=xlSortNormal
    With Worksheets(NomFeuil).Sort
        .SetRange Range("B22:L57")
        .Header = xlGuess
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    Worksheets(NomFeuil).Range("Q22").Select
End Sub

 

[Florian53]

Re : Masquer lignes vides

Salut voici un code qui supprime la ligne si il ne voit rien dans la colonne A:

Sub LignesVides()
Dim lig, cpt
Application.ScreenUpdating = False
Application.Calculation = xlManual
lig = Range("A65000").End(xlUp).Row
For cpt = lig To 1 Step -1
If Range("A" & cpt) = "" Then
Range("A" & cpt).EntireRow.Delete
End If
Next
Application.Calculation = xlCalculationAutomatic
End Sub

A la fin de ton code avant end Sub tu aura qu'à écrire "Call LignesVides

 

[ferdhy]

Re : Masquer lignes vides

Bsr,

voici ce que tu peut ajouter avant END SUB

For i = 22 To 57
If Cells(i, 2).Value = "" Then
Cells(i, 2).Select
Selection.EntireRow.Hidden = True

End If
Next

Ca ne supprime pas mais cache les ligne vide entre la ligne 22 et 57

Ferdi

 

[jacky49]

Re : Masquer lignes vides

bonsoir,

Florian53, ton code fonctionne, mais cela ne va pas car je veux masquer ou supprimer les lignes vides qu'a partir de la lignes 22 .
ferdhy, il me met variable non definie et me surligne For i =

Merci à vous deux , je continue d'essayer
jacky

 

[Florian53]

Re : Masquer lignes vides

Essaye ceci:

Sub LignesVides()
On Error Resume Next
Range("A23:A36653").SpecialCells(xlCellTypeBlanks).EntireRow.Delete
lignefin = [A22:A36653].Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious, LookIn:=xlValues).Row
End Sub

 

[jacky49]

Re : Masquer lignes vides

RE,
Florian, le code me met variable non definie et me surligne Lignesfin et quand je fais Ok,
il me surligne ensuite Sub LignesVides()
merci
jacky

 

[kjin]

Re : Masquer lignes vides

Bonsoir,

je voudrais ajouter un bout de code pour que les lignes vides en dessous du classement se cache car il peut y avoir que 5 lignes (de B22 à L 27) qui soit classée et en desous quelles soient masquées.

😕 Tu vas en faire une pelote si tu n'exprimes pas clairement ta demande...
Comprends pas ton problème puisque tu sais quelles lignes sont à masquer

Rows(ActiveSheet.UsedRange.Rows.Count + 1 & ":65536").Hidden = True
'masque toutes les lignes après la dernière non vide

Rows("23:65536").Hidden = True
'masque toutes les lignes après la ligne 22

Note: 65636 sous 2000, 2007 je ne sais pas
Pour les variables, soit tu les déclares en début de procédure soit tu vires option explicit
A+
kjin

 

[jacky49]

Re : Masquer lignes vides

bonjour le forum,kjin ,

Envoyé par jacky49
je voudrais ajouter un bout de code pour que les lignes vides en dessous du classement se cache car il peut y avoir que 5 lignes (de B22 à L 27) qui soit classée et en desous quelles soient masquées.
Le problème, c'est qu'il peut y avoir un classement qui se fait jusqu'a la ligne 40 ou 57 , tout dépend du nombre de partants et de plus, cela me masque toutes les lignes après la ligne 22 mais comment faire pour les faire revenir pour que le fichier serve pour un autre classement.
merci de votre aide
jacky

 

[jacky49]

Re : Masquer lignes vides

j'espère ^tre plmus clair!!

bonjour le forum,kjin ,

Envoyé par jacky49
je voudrais ajouter un bout de code pour que les lignes vides en dessous du classement se cache car il peut y avoir que 5 lignes (de B22 à L 27) qui soit classée et en desous quelles soient masquées.
Le problème, c'est qu'il peut y avoir un classement qui se fait jusqu'a la ligne 40 ou 57 , tout dépend du nombre de partants et de plus, cela me masque toutes les lignes après la ligne 22 mais comment faire pour les faire revenir pour que le fichier serve pour un autre classement.
merci de votre aide
jacky

 

[jacky49]

Re : Masquer lignes vides

re,

En fait le code :
Rows(ActiveSheet.UsedRange.Rows.Count + 1 & ":65536").Hidden = True
'masque toutes les lignes après la dernière non vide
Il fonctionne, le problème est que j'ai des formules en cellules A à J, c'est maintenant que je m'en rends compte, avec mes excuses et donc, je voudrais masquer les lignes en dessous du nombres de participants.Et je voudrais aussi savoir comment réafficher les lignes masquées ensuite.
merci
jacky

 

[jacky49]

Re : Masquer lignes vides

bonsoir le forum,
juste pour remonter le fil.
merci