Bonjour,
j'ai un fichier Excel qui est relié a deux autres fichiers.
Le fichier maitre comporte des tableaux qui permet des calculs de prix.
Les valeurs utilisées pour les calculs sont dans un autre fichier (Ajustement).
Avec le temps le fichier Ajustement a des colonnes qui s'ajoute.

Pour aller chercher les données, j'ai un Userform qui comportes une Combobox où nous retrouvons les noms de colonnes.
Après un certain temps, il y a des colonnes qui ne me sont plus nécessaires. Pour garder une trace d'évolution je veut garder les colonnes non nécessaire.

Dans le fichier Ajustement je masque des colonnes pour faire un tableau plus restreint.
La combobox dans l'Userform du fichier maître inscrit toujours tous les colonnes.

Je vous demande s'il est possible que les colonne masqué ne se retrouve plus dans la combobox.
Je vous mets le code pour remplir mes combobox pour vous aidez.
Si vous avez une façon de simplifier le tous je suis prêt a prendre.

Voici l'userform
Nom : userform.png Affichages : 77 Taille : 113,2 Ko

Et les code pour remplir les combobox

"Private Sub UserForm_Initialize()

Dim i%

For i = 2 To Workbooks("Ajustement de prix.xlsm").Sheets.Count
Me.cbx_Porte.AddItem Workbooks("Ajustement de prix.xlsm").Sheets(i).Name
Next i


Me.Cbx_Ajustement.List = Application.Transpose(Workbooks("Ajustement de prix.xlsm").Sheets(1).Range("B3:J3"))

For i = 2 To Workbooks("Ajustement de prix.xlsm").Sheets.Count
Me.Cbx_Date.List = Application.Transpose(Workbooks("Ajustement de prix.xlsm").Sheets(i).Range("B3:J3"))
Next i

End Sub"