masquer une colonne automatiquement

[nico3869]

Rebonjour

Comment peut on faire pour masquer des colonnes automatiquement en fonction d'une valeur.

Je m'explique :

Colonne en question : de AA à AF
Ligne où la valeur est à chercher : 10
Si la valeurs texte est "01" OU "02" OU "03", masquer la colonne

Merci pour votre aide

 

[JNP]

Re : masquer une colonne automatiquement

Bonjour Nico3869 🙂,
Pour masquer des colonnes automatiquement, il n'y a guère que VBA 🙄...
Par contre, il nous faudrait un peu plus de détails, tu parles de chiffres (01, 02 et 03) au format texte 😕
Un petit exemple serait le bienvenu 😛
D'autre part, si ce sont des valeurs que tu insères, comment va tu démasquer pour modifier la valeur 😱
A te lire 😎

 

[nico3869]

Re : masquer une colonne automatiquement

Fichier joint pour + de compréhension
Désolé pour le message pas très clair ....

 

[JNP]

Re : masquer une colonne automatiquement

Re 🙂,
Pas grave, mais c'est vrai qu'avec le fichier, c'est plus clair 😛...
Plutôt que de chercher les 01, etc. en fin de mois, il est plus simple de récupérer le nombre de jour d'après la date en B9 et de masquer en fonction 🙄

Dim DerJour As Byte, I As Byte
DerJour = Day(Application.WorksheetFunction.EoMonth(Range("B9"), 0))
For I = DerJour + 1 To 31
Columns(I + 1).EntireColumn.Hidden = True
Next I

A la limite, tu peux décrire toute les feuilles en une seule macro et hop là 😉 !
Bon courage 😎

 

[nico3869]

Re : masquer une colonne automatiquement

merci pour ton aide
ça c'est formidable !

 

[nico3869]

Re : masquer une colonne automatiquement

la commande marche très bien
En revanche, lors d'un copier coller d'un mois de 30 jours à un mois de 31 jours, la colonne 31 reste masquée.
Possibilité de l'afficher "manuellement"
est il possible de rajouter une "commande supplémentaire" ??

MERCI

 

[JNP]

Re : masquer une colonne automatiquement

Re 🙂,
Pour moi, le plus logique serait de commencer par créer tes 12 feuilles avec leur mois complet, puis de balayer le classeur pour masquer les colonnes en trop

Sub test()
Dim DerJour As Byte, I As Byte, Feuille As Worksheet
For Each Feuille In ThisWorkbook.Worksheets
    With Feuille
        DerJour = Day(Application.WorksheetFunction.EoMonth(.Range("B9"), 0))
        For I = DerJour + 1 To 31
            .Columns(I + 1).EntireColumn.Hidden = True
        Next I
    End With
Next Feuille
End Sub

Bon courage 😎

 

[nico3869]

Re : masquer une colonne automatiquement

merci
bonne journée