masquer ligne ou colonne en fonction d 'une valeur

[zorg62]

bonjour, Voila la situation est grave, je n'y connais rien a excel, du moins, je sais creer des tableaux graphique feuilles de calcul, la base quoi.

et la je tombe sur la grosse colle et j ai pas interet a me planter
mon patron me demande de creer un tableau avec le nom du personnel dans chaque colonne, et chaque colonne avec le nom affiché, signifie que cette personne est presente, si elle est absente, alors la colonne doit se masquer. merci de votre aide.

 

[DL_13]

Re : masquer ligne ou colonne en fonction d 'une valeur

Bonjour et Bienvenu,

un essai avec : Si nom en Col; Ligne1 alors Colonne visible
Si Absence de nom ce Col; Ligne1 alors Colonne cachée

Sub masquer()
Dim i As Integer
Dercol = Cells(1, Columns.Count).End(xlToLeft).Column
For i = Dercol To 2 Step -1
    If Cells(1, i) = "" Then Columns(i).ColumnWidth = 0
Next i
End Sub

et la Sub pour Remise à Zèro

Sub RemiseaZero()
Dim i As Integer
Dercol = Cells(1, Columns.Count).End(xlToLeft).Column
Application.ScreenUpdating = False
For i = Dercol To 2 Step -1
     Columns(i).ColumnWidth = 8.43
Next i
Application.ScreenUpdating = True
End Sub

Il aurait été judicieux de nous faire parvenir un fichier

Bonne journée

 

[zorg62]

Re : masquer ligne ou colonne en fonction d 'une valeur

Merci je vais essayer d appliquer cela cet aprem midi, et je mettrais ici mon fichier