XL 2019 masquer une colonne si vide

[Neileru4]

Bonjour a tous j'ai un fichier excel ci joint
j'ai un onglet praticien avec le nom de mes praticien
et un onglet janvier ou mes praticien sont repris de mon onglet praticien
je voudrais si possible de masquer dans janvier les colonnes ou les nom praticien sont vide
mais que si il y a un nom de renseigner que la colonne s'affiche

 

[Gégé-45550]

Bonjour a tous j'ai un fichier excel ci joint
j'ai un onglet praticien avec le nom de mes praticien
et un onglet janvier ou mes praticien sont repris de mon onglet praticien
je voudrais si possible de masquer dans janvier les colonnes ou les nom praticien sont vide
mais que si il y a un nom de renseigner que la colonne s'affiche

Bonjour,
Voir PJ, onglet 'Janvier', ligne 5.
Cordialement,

 

[Neileru4]

Bonjour,
Voir PJ, onglet 'Janvier', ligne 5.
Cordialement,

bonjour je ne comprend pas ce que vous avez fait de plus sur le fichier

et je ne veux pas les ligne mes les colonnes a masquer

 

[Dudu2]

Bonjour,
Pourquoi tu mets en JANVIER des formules du genre =+PRATICIEN!Z5 ?
Le "+" fait un calcul qui dont affiche 0 au lieu d'une cellule vide comme la cellule PRATICIEN!Z5.

En plus, même en retirant ce "+", je n'arrive pas à retirer ce fichu "0" !
A la limite, puisque les tableaux ne sont pas structurés, ça facilite le masquage.

Mais comme tu as des commentaires sous tes tableaux, tu ne peux pas masquer les colonnes sans masquer les commentaires. Faut revoir ton design.

 

[Phil69970]

Bonjour à tous

@Dudu2

En plus, même en retirant ce "+", je n'arrive pas à retirer ce fichu "0" !

Il faut voir ici

@Neileru4

je voudrais si possible de masquer dans janvier les colonnes ou les nom praticien sont vide
mais que si il y a un nom de renseigner que la colonne s'affiche

Et d'une manière général ton fichier est à revoir comme @Dudu2 te la dit ainsi que les dizaines de MFC

Mais comme tu as des commentaires sous tes tableaux, tu ne peux pas masquer les colonnes sans masquer les commentaires. Faut revoir ton design.

Bonne lecture

 

[Dudu2]

Ah oui, je n'avais pas trouvé l'option.
Merci @Phil69970,

Sinon en VBA ça donné ça...

 

[Phil69970]

Re

@Dudu2

Il faudrait rajouter ceci au début de ton code pour épargner mes yeux ainsi que les yeux des utilisateurs

Application.ScreenUpdating = False

 

[job75]

Bonjour à tous,

J'y vais de ma solution avec cette macro dans ThisWorkbook :

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
If Not IsDate("1/" & Sh.Name) Then Exit Sub
Dim col%
Application.ScreenUpdating = False
Sh.Columns.Hidden = False 'RAZ
For col = 4 To 81 'de D à CC
    If Sh.Cells(6, col) = "J" Then
        If Application.CountA(Cells(7, col).Resize(31, 2)) = 0 Then Columns(col).Resize(, 2).Hidden = True
    End If
Next
End Sub

Elle s'exécute quand on active une feuille de mois.

Pas regardé les autres solutions, tant pis si la mienne fait double emploi.

A+

 

[job75]

Bon Dudu2 masque les colonnes quand le praticien est "0".

Mois je masque les colonnes des praticiens sans informations dans les lignes 7 à 37.

C'est pourquoi 3 praticiens "0" sont affichés, pour les masquer effacez leurs informations.

 

[Dudu2]

Bonjour @job75,
C'est ce que j'allais dire à la lecture de ton code. Et dans un premier temps ai pensé comme tu l'as fait.
Mais en relisant sa demande:

je voudrais si possible de masquer dans janvier les colonnes ou les nom praticien sont vide
mais que si il y a un nom de renseigner que la colonne s'affiche

je pense que ce serait plutôt les colonnes à 0 qu'il faut masquer.
A voir selon le retour du demandeur...

 

[Neileru4]

merci a vous pour ces réponses

 

[job75]

Bonjour le forum,

je pense que ce serait plutôt les colonnes à 0 qu'il faut masquer.
A voir selon le retour du demandeur...

merci a vous pour ces réponses

Chou blanc

A+

 

[job75]

Pour finir voici ce que moi j'utiliserai pour masquer les valeurs zéro en ligne 5 :

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
If Not IsDate("1/" & Sh.Name) Then Exit Sub
Sh.Columns.Hidden = False 'RAZ
On Error Resume Next 'si aucune Special Cell
Sh.Rows(5).SpecialCells(xlCellTypeFormulas, 1).EntireColumn.Hidden = True 'masque les valeurs numériques en ligne 5
End Sub