Masquer colonne sous conditiion

[Emiaime]

Bonjour,

je travaille actuellement un fichier excel et mon besoin est de masquer une colonne tout dépendant de ce qui est écrit sur une rangée.

En colone A, le nom de mes employés sont inscrits. (Si la case est vide, c'est parce qu'il n'a pas d'employé) (A6 à A31)
Ces même nom se retrouvent aussi dans une ligne (5B à 5AA) 52 fois (pour chaque semaine de l'année)

J'aimerais donc que la ligne 5 affiche seulement les noms des employés se retrouvant dans ma colone A.
Ce qui veut dire; Si en A30 ma cellule est vide, la colone 5Z sera masquée.

Je dois répéter ceci pour mes 52 semaines.

J'ai joint le fichier

J'ai aucune idée de comment fonctionne le code...

Pouvez-vous m'aider?

 

[vgendron]

hello

voir PJ
il suffit d'effacer un nom en colonne A ou le remettre
pour voir le code associé: ouvrir éditeur VBA: Alt + F11

 

[job75]

Bonjour Emiaime, vgendron,

Je pense qu'il faut aussi masquer les colonnes avec "Nouvel employé" :

Private Sub Worksheet_Change(ByVal Target As Range)
With Range("A6:A" & Application.Match("*Total*", [A:A], 0) - 1)
  If Intersect(Target, .Cells) Is Nothing Or .Row < 6 Then Exit Sub
    Application.ScreenUpdating = False
    Application.EnableEvents = False
    On Error Resume Next
    Columns.Hidden = False 'RAZ
    .Replace "Nouvel employé", "#N/A", xlWhole
    .SpecialCells(xlCellTypeBlanks) = "#N/A"
    Rows(5).SpecialCells(xlCellTypeFormulas, 16).EntireColumn.Hidden = True
    .Replace "#N/A", "Nouvel employé"
    Application.EnableEvents = True
End With
End Sub

Et si l'on efface un nom en colonne A il est remplacé par "Nouvel employé"...

Fichier joint.

A+

 

[job75]

Re,

Vous remarquerez aussi que j'ai bien allégé le fichier 🙄

A+

 

[Emiaime]

Un énorme merci! 🙂 tout fonctionne