[VBA-E] userform TextBox

Bonjour,
j'ai créé un userform avec une Combobox et un textbox
Je souhaiterai afficher dans la textbox une valeur correspondant au choix effectuer dans la comboBox.
Par exemple, si je choisi 1980 dans la comboBox, j'affiche 26 dans la textbox.
C'est la formule recherchev de Excel.
Voilà mon code

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

Private Sub ComboBox2_Change() Worksheets("Feuil2").Select [E10] = UserForm1.ComboBox2 Worksheets("Feuil2").Range("E10").Select Selection.NumberFormat = "0" End Sub Private Sub TextBox3_Change() If UserForm1.ComboBox1.Value <> "" Then UserForm1.TextBox1.Value = Worksheets("Feuil2").Range("E12").Value End If End Sub

---

Dans la Combox en RowSource, j'ai Feuil2!B1B15 (Année de 1977 à 1991). avec en face en colonne C les correspondance en année.
Dans la cellule E12, j'ai mis la formule =RECHERCHEV(E10;B2:C15;2)

1er souci : la valeur de ma case E10 n'est pas un nombre ? (POURQUOI)
2ème souci : rien ne s'affiche dans ma textbox

Si vous avez un exemple de code ou que vous pouviez me corriger mon code. Merci d'avance.

Un truc en passant : Indente ton code, il sera plus lisible

Citation:

---

Private Sub TextBox3_Change()
If UserForm1.ComboBox1.Value <> "" Then
UserForm1.TextBox1.Value = Worksheets("Feuil2").Range("E12").Value
End If
End Sub

---

Je réponds à ça.
Si tu sélectionnes une valeur dans ton combo, c'est le combo qui est actif, pas le TextBox.
Donc, déjà, mettre ton code dans TextBox3_Change(), ça peut pas marcher
Mets ça dans Private sub ComboBox1_Click()

Ensuite, pour récupérer la valeur sélectionnée dans ton combo, c'est

Code:

---

LaValeur = ComboBox1.List(ComboBox1.listindex)

---

Ce qui devrait donner à peu près

Code:

---

1 2 3 4 5

Private sub ComboBox1_Click() If UserForm1.ComboBox1.List(ComboBox1.listindex) <> "" Then UserForm1.TextBox1.Value = Worksheets("Feuil2").Range("E12").Value End If End Sub

---

Comme je vais manger, je n'ai pas le temps de vérifier mais tu feras bien ça pour nous... :wink:

A+

Ok pour ton commentaire OUSKLNOR voilà donc ce que j'ai mis

Code:

---

1 2 3 4 5 6 7

Private Sub ComboBox2_Change() Worksheets("Feuil2").Range("E10").Value = UserForm1.ComboBox2 If UserForm1.ComboBox2.List(ComboBox2.ListIndex) <> "" Then TextBox3.Value = Worksheets("Feuil2").Range("E12").Value End If End Sub

---

Voilà la réponse quand je le test.

"Impossible de définir la propriété Value. le type ne correspond pas."

Je ne comprend pas.

Ma question mieux posée : je veux choisir l'année de naissance de la personne (à partir d'une combobox) et je souhaite récupérer son âge dans la textbox3.
Merci de tonaide OUSKLNOR

Heuuu, je vais peut-être dire une bêtise, mais tu ne pourrais pas tout simplement calculer l'age en faisant une soustraction à partir de la date courante?

Peut être mais le problème est comment afficher la valeur dans la texbox

Code:

---

1 2 3 4 5

Private Sub ComboBox2_Change() If UserForm1.ComboBox2.Value <> "" Then UserForm1.TextBox1.Value = Year(Date) -UserForm1.ComboBox2.Value End If End Sub

---

Un truc dans ce genre...

ok cela fonctionne.
Pourquoi quand je met les date 1980 à 1990 dans ma ComboBox dans RowSource; dès que je veux les utiliser dans une cellule

Code:

---

1 2	[C3] = UserForm1.ComboBox1

---

Alors la valeur qui est dans la cellule C3 n'est pas reconnue comme un nombre !!!

Essaye:

Code:

---

[C3] = UserForm1.ComboBox1.Value

---

Vu que je ne suis pas certain que la propriété par défaut d'une Combo soit Value.

Merci de ton aide maintenant tout fonctionne comme je le souhaite.
Voici le code que j'ai mis

Code:

---

1 2 3 4 5 6 7 8

Private Sub ComboBox2_Change() Worksheets("Feuil2").Select [E10] = UserForm1.ComboBox2.Value If UserForm1.ComboBox2.Value <> "" Then UserForm1.TextBox3.Value = Worksheets("Feuil2").Range("E11").Value End If End Sub

---

Dans la cellule "E11", j'ai la formule : = recherchev(E10; B1:C15; 2) et dans les colonnes B1 à B15 mes années (1977 à 1991) et en C1 àC15 l'équivalent en age (de 29 à 15ans)

Merci c'est vraiment cool !!! :D :wink: