J'ai voulu importer une combobox mais

Bonjour le forum

Comme dit dans le titre mais ça ne fonctionne pas... à moins que ça soit plus complexe.

Pourriez-vous SVP regarder le code

Option Explicit
Dim EnCours As Boolean

Private Sub ComboBox_Années_Change()
  Application.EnableEvents = False
  With Sheets("POSOLOGIE_COUMADINE")
    .Range("H1") = Me.ComboBox_Années.Text
  End With
  Application.EnableEvents = True
  If EnCours = True Then Exit Sub
  Unload Usf_Annees

End Sub

Private Sub UserForm_Initialize()
EnCours = True
With Me
  With .ComboBox_Années
           .List = Array(2021, 2022, 2023, 2024, 2025, 2026, 2027, 2028, 2029, 2030)
  End With
End With
EnCours = False
End Sub

Merci pour vos éventuels retours

Cordialement

Chez moi Dim ou Public marche. Vérifie le nom de tes objets : combo et Userform.

Bonjour Optimix

Exact mais si je fais F5 ça le fait bien mais lorsque je clique sur le bouton il est inactif

Merci à toi

Il doit y avoir autre chose

Re Optimix

C'est bon j'avais oublié quelque chose

Un GRAND merci à toi

Bonnes fêtes de Pâques

Bonne Pâques à toi aussi.

Re encore une petite bricole ou pas!!!

J'ai 2 feuilles

1 TAUX_INR

2 POSOLOGIE_COUMADINE

Lorsque je ferme mes jours féries dans feuille POSOLOGIE_COUMADINE ça ferme aussi mes colonnes (les mêmes) dans feuille TAUX_INR mais ce n'est pas gênant car elles sont vierges

S'il y a trop de "casse" on ne touche à rien car trop de répercutions.

Toutes mes excuses

Sub AfficherMasquerJoursFeries()
ActiveSheet.Unprotect
With ActiveSheet
If .Columns("H:I").Hidden = True Then
.Columns("H:I").Hidden = False
Else: .Columns("H:I").Hidden = True

End If
End With
End Sub

Re trouvé

J'ai mis en commentaires une ligne dans autre macro

Oh! ce matin ça va mal!!!

Encore merci et toutes mes excuses

Cordialement