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):
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
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):
Code:
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