Discussion :

[mulanzia2003]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[ouskel'n'or]

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

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

LaValeur = ComboBox1.List(ComboBox1.listindex)

Ce qui devrait donner à peu près

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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...

A+

[mulanzia2003]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Megaxel]

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?

[mulanzia2003]

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

[Megaxel]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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...

[mulanzia2003]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
[C3] = UserForm1.ComboBox1

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

[AlainTech]

Essaye:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

[C3] = UserForm1.ComboBox1.Value

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

[mulanzia2003]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 !!!