[excel] relation combobox et textbox Résolu/Fermé

Question

eljojo_e · Answer

Bonjour,

Double click sur ta combobox, et tu modifie la procédure vba (en haut a droite) qui doit être "change" par "afterupdate".

ensuite tu met le code VBA qui va bien.

Si tu sais pas faire du VBA on peux t'aider.

Cordialement,

ced3c · Answer

Merci pour ta reponse eljojo

je ne connais pas beaucoup le vba et je ne sais pas trop comment faire pour construire ce code

eljojo_e · Answer

Alors :

tu dois avoir sur le vba :
private sub combobox_afterupdate()

donc tu met ca dedans :


private sub combobox_afterupdate()

Dim a As Integer

For a = 1 To 9999

If nom_de_combobox = Range("a" & a).Value Then

nom_de_textbox.Value = Range("c" & a).Value

GoTo fin:

End If

Next

fin:
end sub


Ensuite c'est à modifié en fonction de tes colonnes. mais cela devrai marché

ced3c · Answer

Private Sub ComboSemaine_AfterUpdate()
Dim a As Integer
For a = 1 To 9999
If ComboSemaine = Range("a" & a).Value Then
TextBox2.Value = Range("c" & a).Value
GoTo fin:
End If
Next
fin:
End Sub

J'ai bien noté ceci mais cela n'alimente pas ma textbox.
Cependant excel n'y trouve pas d'erreur

il doit me manquer une petite chose encore

ced3c · Answer

Mon classeur si besoin

https://www.cjoint.com/?3Ipk77pCLMJ

eljojo_e · Answer

Bonjour,

Il ne prennait pas les nombre du coup celui la devrai marcher

Private Sub ComboSemaine_AfterUpdate()
Dim a As Integer
For a = 1 To 9999
If Val(ComboSemaine.Value) = Range("b" & a).Value Then
TextBox1.Value = Range("d" & a).Value
GoTo fin:
End If
Next
fin:
End Sub

ced3c · Answer

Grand merci eljojo_e

J'ai juste remplacer
Private Sub ComboSemaine_AfterUpdate() 
par
Private Sub ComboSemaine_Change() 

et cela marche très bien :)
(je ne sais pas trop pourquoi d'ailleurs^^)

Merci pour le coup de main