Combobox et problème d'affichage

Bonsoir

Lorsque je lance ce code :

Private Sub CommandButtonEnreg_Click()
'***********************************'
'Afficher_Catégorie et Sous Catégorie
'***********************************'
    If ComboBoxCatCredit.Value = ComboBoxCatCredit.Text Then
        ligne = ActiveCell.Row
        Cells(ligne, 10).Value = ComboBoxCatCredit.Text
        Cells(ligne, 11).Value = ComboBoxSousCatCredit.Text
    End If

    If ComboBoxCatDebit.Value = ComboBoxCatDebit.Text Then
        ligne = ActiveCell.Row
        Cells(ligne, 10).Value = ComboBoxCatDebit.Text
        Cells(ligne, 11).Value = ComboBoxSousCatDebit.Text
    End If

    Unload Me
End Sub

Quand je choisis une donnée dans les ComboBoxCatDebit et ComboBoxSousCatDebit, leur contenu s'affichent dans les cellules désignées

Par contre, quand je choisis une donnée dans les ComboBoxCatCredit et ComboBoxSousCatCredit les cellules n'affichent rien.

Si j'inverse les blocs if, l'inverse se produit !

Je ne comprends pas.

Le pas à pas montre que les différentes combo ont bien pris en compte les données.

Une piste ?

Merci d'avance à ceux qui veulent bien se pencher sur le problème.

DW

Bonjour

Tu devrais joindre ton fichier.

Bye !

Merci pour ton intérêt

Ci-joint le fichier

Bonjour

Un essai à tester. Te convient-il ?

Bye !

Version améliorée.

Bye !

Merci gmb pour le temps accordé à mon problème

Quand j'efface les valeurs que tu as indiqué, et que je teste ton fichier joint, le problème est toujours là. De plus, je ne peux plus référencer la rowsource de mes combo : permission refusée.

J'ai cherché et j'ai trouvé une solution. J'ai indiqué à chaque combo l'endroit où doit se placer leur contenu.

Exemple

Private Sub ComboBoxCatCredit_Change()
    ligne = ActiveCell.Row
        Cells(ligne, 10) = ComboBoxCatCredit.Text
End Sub

Ça fonctionne.

Merci encore