Discussion :

[KevDrn]

Bonjours à tous,

Je m'adresse à vous car je rencontre un problème, qui se trouve que j'aimerais masquer certaines colonnes selon le choix éffectué dans mon combobox.

J'ai donc crée deux feuilles une qui contient le combobox avec le choix de la formation et le tableau des modules( chaque module appartient a une colonne) et l'autre feuille qui contient une petite base de donnée, avec deux table Formation puis Module.
La table module contient Nom des modules, Id des modules ( qui correspond à la lettre de la colonne du module feuille 1), et la clée étrangère Id formation pour identifier a quel formation corresponde les modules.

Donc dans un premier temps j'ai réussi a récuperer du combobox la formation et les modules qui lui corresponde. Mais je n'arrive pas à faire disparaitre les colonnes. J'utilise le code suivant :

For ind = 0 To taille - 1

If IdForm = tabIdFormMod(ind) Then

colModHidden= tabIdModule(ind)
Range("colModHidden;colModHidden").EntireColumn.Hidden = True

End If

Next ind

L'erreur se situe sur :

Range("colModHidden;colModHidden").EntireColumn.Hidden = True

Etant nouveau en VBA, j'aimerais savoir savoir quelle erreur j'ai fait si cela viens de ma "non maitrise" du langage ou pas, ou si vous me conseillez de une autre facon de faire disparaitre ces colonnes ?

[casefayere]

Bonjour
Je n'ai pas compris ta démarche mais pour masquer une colonne, tu peux faire :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Columns(colModHidden).Hidden = True

si, bien sur "colModHidden" correspond à un numéro de colonne ou à sa lettre "A,B,C, etc.)

[KevDrn]

Je te remerci de ta réponse rapide et clair qui a résolu mon problème il a fallu que je modifie deux, trois petites choses dans mon algo, mais maintenant il fonctionne. Mais j'avoue ne pas comprendre pourquoi la première solution (ci-dessous ) fonctionne tandis que la deuxième ne fonctionne pas. Alors que pour la deuxième quand tu ne met pas les variables mais directement les lettres elle fonctionne.

Columns(colModHidden).Hidden = True

Range("colModHidden;colModHidden").EntireColumn.Hidden = True

[casefayere]

parce que ce sont des variables string donc inutile de mettre les parenthèses

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Range("colModHidden;colModHidden").EntireColumn.Hidden = True

devrait devenir

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Range(colModHidden & ":" & colModHidden).EntireColumn.Hidden = True