Combobox et textbox

[altinea]

Bonjour,le forum,
je souhaiterai pouvoir lorsque je change la valeur de la combobox que les valeurs des mes textbox s'affichent.
Pour le moment seules les infos s'affichent mais ne changent pas avec la valeur de la combobox.
Si vous pouvez me donner une idée
Merci pour votre aide

 

[Staple1600]

Re : Combobox et textbox

Bonjour à tous

altinea
Opères ces changements dans les 3 procédures suivantes

Private Sub ComboBox1_Change()
Sheets("Statistiques").Range("A3") = ComboBox1.Value
Actualise
End Sub

Private Sub UserForm_Activate()
Actualise
End Sub

Private Sub Actualise()
With Sheets("Statistiques")
TextBox1 = .Range("A2")
TextBox2 = .Range("B2")
'Données Sites
TxtNbreJoursFormation = .Range("C4")
TxtNbreAgentSite = .Range("C5")
TxtNbreAgentsFormés = .Range("C6")
TxtNbreHeuresFormation = .Range("C8")
TxtNbreJoursFormation = .Range("C9")
TxtNbreJoutsAnnéeAgent = .Range("C10")
'Données Etablissement
TxtNbreAgentsFormésEtab = .Range("C57")
TxtNbreTotalAgentsEtab = .Range("C58")
TxtNbreHeuresFormationEtab = .Range("C59")
TxtNbreJoursFormationEtab = .Range("C60")
TxtNbreJoutsAnnéeAgentEtab = .Range("C61")
'Données Extérieur
TxtNbreAgentsFormésExt = .Range("C100")
TxtNbreHeuresFormationExt = .Range("C102")
TxtNbreJoursFormationExt = .Range("C103")
TxtNbreJoursFormationAgentExt = .Range("C104")
End With
End Sub

 

[altinea]

Re : Combobox et textbox

Merci Staple1600, ça à l'air de fonctionner, je vais l'adapter au fichier original,
en attendant je te remercie