papy 73 ans
XLDnaute Occasionnel
Bonjour,
Je souhaiterai afficher automatiquement certaines colonnes de ma feuille "Base" qui est en xlVeryHidden lorsque la feuille est affichée.
Dans la feuille "Admin", j'envisageais mettre une croix (X) dans la plage B15:AA20 qui signifierait "afficher colonne", lorsque la feuille est activée, en fonction du Nom de l'utilisateur toutes les colonnes ayant une croix dans la ligne correspondant au Nom de l'utilisateur afficheraient les colonnes concernées.
Comment réaliser ça en Vba, je n'en ai aucune idée ?
Ex. DUPONT colonnes visibles : A:B, E:F, J, N:R, V
Sur la feuille Espion, est-il possible de renseigner les cellules modifiées et de limiter à 100 enregistrements successifs.
En vous remerciant.
édit : j'y suis presque avec ce code
Je souhaiterai afficher automatiquement certaines colonnes de ma feuille "Base" qui est en xlVeryHidden lorsque la feuille est affichée.
Dans la feuille "Admin", j'envisageais mettre une croix (X) dans la plage B15:AA20 qui signifierait "afficher colonne", lorsque la feuille est activée, en fonction du Nom de l'utilisateur toutes les colonnes ayant une croix dans la ligne correspondant au Nom de l'utilisateur afficheraient les colonnes concernées.
Comment réaliser ça en Vba, je n'en ai aucune idée ?
Ex. DUPONT colonnes visibles : A:B, E:F, J, N:R, V
Sur la feuille Espion, est-il possible de renseigner les cellules modifiées et de limiter à 100 enregistrements successifs.
En vous remerciant.
édit : j'y suis presque avec ce code
VB:
Sub affichercolonnes()
Sheets("Base").Select
Columns("C:Z").EntireColumn.Hidden = True 'Select
Sheets("Admin").Select
If nom = nom Then
For Each cell In ActiveSheet.Range("C17:AA17"):
If cell.Value = "X" Then
Sheets("Base").Columns(cell.Column).Hidden = False
End If
Next cell
End If
End Sub
Pièces jointes
Dernière édition: