Masquer colonnes de façon automatique selon critères

[nauj]

Bonjour Forum,
Voici l'exposé de mon problème : Je souhaiterais intégrer un code VBA permettant de masquer automatiquement des colonnes selon des critères.
Dans la feuille d'exemple ci-attaché, le premier onglet "Paramètres" permet de consigner les noms des sites d'une région (le nombre de sites pouvant varier selon les régions de 1 à 14)
Le second onglet nommé "Activité" reprend les noms des sites (ligne 1) avec une formule "Transpose". Certaines colonnes par conséquent demeurent vides.
Pour ces dernières, je souhaiterais qu'elles se masquent automatiquement.
En vous remerciant par avance de votre coopération
Bonnes fêtes de Pâques
Nauj

 

[roro69]

Re : Masquer colonnes de façon automatique selon critères

Bonjour a essayer:

Sub CACHE()

Dim i As Long

'Boucle sur les colonnes du classeur
For i = 1 To 15

'si cellule = "" colonne est masquée,

If Cells(1, i).Value = "" Then

Cells(1, i).EntireColumn.Hidden = True



End If 'fin test cellule
Next i 'cellule suivante


End Sub

A++

 

[nauj]

Re : Masquer colonnes de façon automatique selon critères

Bonjour roro69, Forum,
Votre proposition fonctionne.
En revanche, elle s'exécute par l'action d'un bouton alors qu'un action évènementielle de type "click sur l'onglet" me paraitrait plus pertinent.
Par ailleurs, je constate que la mise à jour ne s'effectue pas automatiquement. Si on décide de rajouter un site par exemple, le code proposé ne réactualise pas les colonnes à masquer et à afficher
Si vous avez des idées d'amélioration, je suis bien évidemment preneur.
Merci en tout cas pour le temps consacré à mon sujet.
Cdt
Nauj

 

[roro69]

Re : Masquer colonnes de façon automatique selon critères

Un exemple,par click sur onglet

A++

 

[nauj]

Re : Masquer colonnes de façon automatique selon critères

roro69,
C'est parfait.
Merci pour votre réactivité et efficacité
Bon dimanche
Nauj