XL 2019 masquer une colonne si vide

Neileru4 · Vendredi à 11:29

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 · Vendredi à 11:43

Neileru4 à dit:
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 · Mardi à 08:38

Gégé-45550 à dit:
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 · Mardi à 08:51

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 · Mardi à 09:33

Bonjour à tous

@Dudu2

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

Il faut voir ici

@Neileru4

Neileru4 à dit:
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

Dudu2 à dit:
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 · Mardi à 09:38

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

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

Phil69970 · Mardi à 10:09

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 · Mardi à 11:14

Bonjour à tous,

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

VB:

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 · Mardi à 11:44

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 · Mardi à 14:45

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 · Hier à 07:59

merci a vous pour ces réponses

job75 · Hier à 08:21

Bonjour le forum,

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

Neileru4 à dit:
merci a vous pour ces réponses

Chou blanc

A+

job75 · Hier à 09:14

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

VB:

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

XL 2019 masquer une colonne si vide

Neileru4

XLDnaute Occasionnel

Pièces jointes

Gégé-45550

XLDnaute Accro

Pièces jointes

Neileru4

XLDnaute Occasionnel

Dudu2

XLDnaute Barbatruc

Phil69970

XLDnaute Barbatruc

Dudu2

XLDnaute Barbatruc

Pièces jointes

Phil69970

XLDnaute Barbatruc

job75

XLDnaute Barbatruc

Pièces jointes

job75

XLDnaute Barbatruc

Dudu2

XLDnaute Barbatruc

Neileru4

XLDnaute Occasionnel

job75

XLDnaute Barbatruc

job75

XLDnaute Barbatruc

Pièces jointes

Discussions similaires