VBA Erreur 380 : propriété Text/ListIndex

[avaya]

Bonjour à tous,

J'ai un problème qui n'est pas très important mais dont j'aimerais bien connaître la solution pour mieux comprendre les userforms.


J'ai créé un userform qui laisse à l'utilisateur le choix de supprimer des données (Prior = année précédente, et/ou Actual = année en cours) selon le mois et l'année.



L'utilisateur choisit d'abord l'année du Prior (ou Actual).
Automatiquement, l'année de l'Actual (ou Prior) est changée et cela débloque les 2 blocs de Form.
Si une case est cochée, le bouton Ok s'active.

J'aimerais que si jamais l'utilisateur remet "Année" dans l'une des 2 combobox, l'autre combobox met également "Année" automatiquement (et ça bloque les Form, mais ça j'arrive à le faire). C'est donc juste un petit détail ; )

Par exemple, j'ai écrit pour la combobox1 (Prior):

Private Sub ComboBox1_Change()
If Not ComboBox1.Value = "Année" Then
    ComboBox2.Text = ComboBox1.Value + 1
    Frame1.Enabled = True
    Frame2.Enabled = True
    Else
    If Not ComboBox2.Value = "Année" Then
    'ComboBox2.Text = "Année"                                'Ca ne fonctionne pas
    ComboBox2.ListIndex = 0                                'Ca ne fonctionne pas non plus...
    End If
    Frame1.Enabled = False
    Frame2.Enabled = False
End If
End Sub

Mes deux tentatives sont vaines. J'ai l'erreur 380 qui s'affiche:
"Impossible de définir la propriété ListIndex (ou Text). Valeur de propriété non valide."
Je ne comprends pas vraiment pourquoi alors que quelques lignes plus haut ça fonctionne...

Bref, si vous pouviez m'expliquer ça serait super sympa.
Je mets le fichier en pièce jointe.


avaya

 

[avaya]

Re : VBA Erreur 380 : propriété Text/ListIndex

Re,

Je viens juste de capter que je peux enlever l'item "Année" dès qu'une année est sélectionnée pour éviter le problème!

Néanmois, j'aimerais quand même comprendre pourquoi ça ne fonctionne pas.

Merci d'avance,


avaya