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
Code:
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
@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 ? )
En attendant ton fichier (histoire peut-être d'y voir plus clair)
Vois ce que le code VBA ci-dessous t'inspire
VB:
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]
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
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
VB:
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
Bonjour Franck
Bonjour le Fil , Jean marie
Bonjour le Forum
Juste pour pouvoir vous saluer Lol
On pourrait aussi mettre :
VB:
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