Code VBA

Bonsoir chers tous, j'ai un souci au niveau de mon code, au faite j'ai un ComboBox que j'aimerai alimenté à l'ouverture de la feuille. Deuxièmement j'aimerai à chaque élément choisis du combobox qu'une certaines plages de cellules se masque. Merci de m'aider.

voici mon code:

Private Sub ComboBox1_Change()

ComboBox1.AddItem "Catégorie"

ComboBox1.AddItem "AMA"

ComboBox1.AddItem "CIM/IFK"

ComboBox1.AddItem "Personnel National"

ComboBox1.AddItem "Personnel Régional"

If ComboBox1.Value = "Catégorie" Then

Range("A40:I40").Select

Selection.EntireRow.Hidden = True

Range("A42:I42").Select

Selection.EntireRow.Hidden = True

Range("A43:I43").Select

Selection.EntireRow.Hidden = True

Range("A45:I45").Select

Selection.EntireRow.Hidden = True

Range("A46:I46").Select

Selection.EntireRow.Hidden = True

Range("A41:I41").Select

Selection.EntireRow.Hidden = True

Range("A44:I44").Select

Selection.EntireRow.Hidden = True

ComboBox1.Clear

End If

End Sub

Bonsoir

Voici deux codes à mettre dans l'USF

Dim ok As Boolean
Private Sub ComboBox1_Change()
If ok = True Then Exit Sub
ok = True
If ComboBox1.Value = "Catégorie" Then
    For i = 40 To 46
    Range("A" & i & ":I" & i).EntireRow.Hidden = True
    Next
End If
ok = False
End Sub

Private Sub UserForm_Initialize()
With ComboBox1
    .AddItem "Catégorie"
    .AddItem "AMA"
    .AddItem "CIM/IFK"
    .AddItem "Personnel National"
    .AddItem "Personnel Régional"
End With
End Sub

Attention à bien veiller à ce que l'instruction Dim ok as boolean soit bien en tete des codes repris dans l'USF

Si ok et terminé, merci de cliquer sur le v vert à coté du bouton EDITER pour clôturer le fil lors de votre réponse

Cordialement