Masquer colonne sous conditiion

Emiaime · 21 Septembre 2016

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 · 21 Septembre 2016

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 · 21 Septembre 2016

Bonjour Emiaime, vgendron,

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

Code:

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 · 21 Septembre 2016

Re,

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

A+

Emiaime · 21 Septembre 2016

Un énorme merci! tout fonctionne

Masquer colonne sous conditiion

Emiaime

XLDnaute Nouveau

Pièces jointes

vgendron

XLDnaute Barbatruc

Pièces jointes

job75

XLDnaute Barbatruc

Pièces jointes

job75

XLDnaute Barbatruc

Emiaime

XLDnaute Nouveau

Discussions similaires