Problème de Date dans ComboBox et TexBox

[Franck DEVISSCHER]

bonjours a tous, un appelle au secours lorsque mon CombBoxAnnée affiche 2018 et que dans le TextBoxAnnée2 et afficher 2019 comme le prévoie mon code, et que je veux changer la valeur 2019 dans mon CombBoxAnnée en 2019 et afficher 2020 dans le TextBoxAnnée2 celui-ci reste sur le 2019. mais les autres année marchent bien, et je voudrais que celui-ci marche aussi. j’espère être assez claire merci pour votre aide

Private Sub UserForm_Initialize()

    For Mavar = 2017 To 2027
        Année.AddItem Mavar 'affichage de l'année de 2017 a 2027 dans le ComboBox
    Next
        Année.Text = Year(Date) 'affichage de l'année en cours en 1er dans le ComboBox

End Sub
Private Sub Année_Click()

    TextBoxAnnée2.Value = ComboBoxAnnée.Value 'Quant ont click sur le ComboBob sela change la valeur du TextBox

End Sub
Private Sub Année2_Change()

    TextBoxAnnée2.Value = ComboBoxAnnée.Value + 1 'ont affiche 1 année de plus dans le TextBox

End Sub

 

[Staple1600]

Bonsoir le fil, le forum

@Franck DEVISSCHER
Joindre un fichier Excel incluant déjà l'userform et le code VBA actuel faciliterait la résolution de ta question, non?
(En tout cas, ce judicieux conseil figure dans la charte du forum... mais l'as-tu lue ? )

 

[Staple1600]

Re

En attendant ton fichier (histoire peut-être d'y voir plus clair)
Vois ce que le code VBA ci-dessous t'inspire

Private Sub UserForm_Initialize()
ans = Array(2017, 2018, 2019, 2020, 2021, 2022, 2023, 2024, 2025, 2026, 2027)
ComboBox1.List = ans
ComboBox1 = Year(Date)
End Sub
Private Sub ComboBox1_Click()
TextBox1 = ComboBox1.Value + 1
End Sub

NB: Pour tester, il faut remplacer le code existant par celui-ci
(et donc ne pas copier deux fois les mêmes procédures dans le code de l'userform)[/code]

 

[Franck DEVISSCHER]

bonjour Staple1600 non pas lu, désoler voici le fichier excel ci-joint. encore merci pour votre patience

 

[Staple1600]

Re

Tu as testé les codes dans mon précédents messages?

NB: Normalement maintenant la charte est lue, non ?

 

[Franck DEVISSCHER]

Je suis entrain de le lire, par contre j'ai testé ton code mais aucune valeur dans le testBoxAnnée2 désolé ça ne marche pas

merci pour ton aide

 

[Staple1600]

Re

Mais si ca marche
Faut juste faire l'adaptation nécéssaire
Dans mon exemple, j'a testé sur mon fichier (faute d'avoir le tien)
Tu remarques que le nom de mes contrôles différent des tiens
ComboBox1 et TextBox1

Il suffit donc d'adapter en remplaçant avec tes noms à toi

 

[Franck DEVISSCHER]

Ok merci mais j'ai trouvé la solution a mon problème il fallait juste mettre ce code

Private Sub Année_Click()
TextBox.Value = ComboBox.Value + 1
End Sub

tout simplement

merci

 

[Staple1600]

Re

C'est ce qu'on pouvait lire dans mon message de 20h00 (le message 3) ...

Donc ma macro du message 3 écrite avec le nom de tes contrôles

Private Sub UserForm_Initialize()
ans = Array(2017, 2018, 2019, 2020, 2021, 2022, 2023, 2024, 2025, 2026, 2027)
Année.List = ans: Année = Year(Date)
End Sub
Private Sub Année_Click()
TextBoxAnnée2 = Année.Value + 1
End Sub

 

[Franck DEVISSCHER]

Oui c'est correcte merci encore pour ton aide
cordialement et bonne fin de soirée

 

[ChTi160]

Bonjour Franck
Bonjour le Fil , Jean marie
Bonjour le Forum
Juste pour pouvoir vous saluer Lol
On pourrait aussi mettre :

   For Mavar = Year(Date) - 1 To Year(Date) + 9 'on définit la période en fonction de l’année en Cours
        ComboBoxAnnée.AddItem Mavar 'affichage des l'années de 2017 a 2027 dans le ComboBox
    Next

Bonne journée
Amicalement
Jean marie