Bonjour,
Je souhaiterai afficher automatiquement certaines colonnes de ma feuille "Base" qui est en xlVeryHidden
Dans la feuille "Admin", j'envisageais mettre une croix (X) dans la plage B15:AA19 qui signifierait "afficher colonnes ligne 14", lorsque la feuille "Base" est activée, en fonction du Nom de l'utilisateur saisi dans le TextBox (que je voudrais récupérer en C10) toutes les colonnes ayant une croix dans la ligne correspondant au Nom de l'utilisateur afficherait les colonnes concernées (AffColSelonPers).
Comment réaliser ça en VBA, je n'en ai aucune idée ?
Ex. PAINE 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 et recommencer les enregistrements.
Usf : Le Nom de l'utilisateur se met dès la première lettre saisie dans le TextBox, il ne faudrait pas.
En vous remerciant.
Ce code ne fait pas ce qu'il faut, mais je suis loin d'être un spécialiste du Vba :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12 Sub affichercolonnes() Sheets("Base").Select Columns("C:Z").EntireColumn.Hidden = True 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
Partager