masquer ligne et colonne

[meldja]

Bonjour,
J'ai une feuille planning.
Sur une autre feuille, je reprends les empois du temps par employé (j'ai mis une liste déroulante comprenant les noms des employés et avec NB.SI, je suis arrivé à afficher leur planning lorsque leur nom est sélectionné).
Je sais comment masquer des lignes vides par macro, mais pas des colonnes
Ma questions est la suivante :
Est-il possible de programmer une macro qui masquerait et les lignes vides et les colonnes vides ?
Mon fichier en pièce jointe pour plus de précision.
(la colonne servant de critère pour la masquer les lignes est la Z et la ligne pour masquer les colonnes est la 166).
Merci d'avance

 

[skoobi]

Re : masquer ligne et colonne

Bonsoir,

ton fichier n'est pas passé.

 

[GIBI]

Re : masquer ligne et colonne

Bonsoir,

la solution

Rows(L).Hidden = True pour les lignes
Columns(C).Hidden = True pour les colonnes

Pour tester que la ligne /colonne est vide
If Application.WorksheetFunction.CountA(Rows(L).EntireRow) = 0 Then
If Application.WorksheetFunction.CountA(Columns(C).EntireRow) = 0

GIBI

 

[meldja]

Re : masquer ligne et colonne

Merci Skoobi et Gibi, ainsi que tous les autres qui ont consulté mon post.
En fait, je n'arrive toujours pas à masquer les lignes vides et les colonnes vides en même temps.
Cette fois-ci, j'envoie un fichier très simple que je pourrai adapter ensuite à mon fichier.
Dans une colonne (cellule en jaune) certaines cellules sont vides. J'ai une macro pour masquer les lignes si dans ma plage colonne des cellules sont vides.
J'aimerais rajouter du code à ma macro, pour qu'elle masque également des colonnes lorsque des cellules (en jaune) dans une ligne sont vides.
Merci d'avance

 

[Cousinhub]

Re : masquer ligne et colonne

Bonjour,
remplace tes deux codes par ceux-ci :

Private Sub CommandButton1_Click()
    Range("F2:F7").SpecialCells(xlCellTypeBlanks).EntireRow.Hidden = True
    Range("A9:E9").SpecialCells(xlCellTypeBlanks).EntireColumn.Hidden = True
End Sub

Private Sub CommandButton2_Click()
    Cells.EntireRow.Hidden = False
    Cells.EntireColumn.Hidden = False
End Sub

 

[meldja]

Re : masquer ligne et colonne

Merci beaucoup pour ta réponse,
mais quand je l'adapte à mon fichier :

Private Sub CommandButton1_Click()
Range("z2:z165").SpecialCells(xlCellTypeBlanks).EntireRow.Hidden = True
Range("b166:x166").SpecialCells(xlCellTypeBlanks).EntireColumn.Hidden = True
End Sub

Private Sub CommandButton2_Click()
Cells.EntireRow.Hidden = False
Cells.EntireColumn.Hidden = False
End Sub

j'ai une erreur au niveau de la ligne :
Range("b166:x166").SpecialCells(xlCellTypeBlanks).EntireColumn.Hidden = True
Merci d'avance si t'as une solution.

 

[Cousinhub]

Re : masquer ligne et colonne

Re-,
quel type d'erreur?

"Pas de cellules correspondantes"?

 

[meldja]

Re : masquer ligne et colonne

Erreur de compilation

 

[Cousinhub]

Re : masquer ligne et colonne

Re-,
tu as du faire une erreur dans la recopie....(du moins, je pense)

Regarde ton fichier origine, modifié :

 

[meldja]

Re : masquer ligne et colonne

Ben je compriends rien,
Regarde comment j'ai adapté ton code :
boutons à partir de la colonne Y,
critères de masquage de lignes, colonne Z,
critères de masquage de colonnes, ligne 166.

J'espère que c'est pas moi qui suis trop simplet !!!
Merci de jeter un coup d'oeil.

 

[Cousinhub]

Re : masquer ligne et colonne

Re-,
oui, erreur de compréhension...
Tes lignes ne sont pas vides, mais le résultat de la formule dans les cellules donnent soit "1" soit "", mais les cellules ne sont pas vides...

Remplace par ce code :

Private Sub CommandButton1_Click()
Application.ScreenUpdating = False
For Each cel In Range("z2:z164")
    If cel.Value = "" Then cel.EntireRow.Hidden = True
Next cel
For Each cel In Range("b166:x166")
    If cel.Value = "" Then cel.EntireColumn.Hidden = True
Next cel
Application.ScreenUpdating = True
End Sub

 

[meldja]

Re : masquer ligne et colonne

Merci, ça marche nickel.
Excuse d'avoir pas mieux précisé ma demande.
A plus