Commande de recherche

Bonjour forum
dans le fichier j'ai un boutton de recherche
je saisie dans text1 le N° et le choix de l'année dans combo1
1-la recherche est bon si l'année ecrit aaaa comme 2011
2-la recherche incorect si l'année ecrit aaaa-aaaa comme 2010-2011
je souhait votre aide Mr
merçi

Bonjour

Dans ton code tu mets pour récupérer le choix fait par l'utilisateur :

Code:

---

ComboBox1.Value * 1

---

Hors quand tu as deux année c'est du texte et non du numérique, donc il y a une incompatibilité car tu multiplies du texte par 1 :koi:

Il faut tout passer en texte en faisant une conversion avec une instruction de type CStr.

Philippe

Citation:

---

Envoyé par Philippe JOCHMANS

Bonjour

Il faut tout passer en texte en faisant une conversion avec une instruction de type CStr.

Philippe

---

mais comment Mr Philippe je suis debutant

Bonjour,
et si tu pratiquais comme ça, en ajoutant ces procédures dans ton code

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44

Private Sub TextBox1_Change() Dim derlg As Long, i As Long derlg = Range("c65535").End(xlUp).Row Application.ScreenUpdating = False 'ajout des années manquantes derlg = Range("c65535").End(xlUp).Row For i = 2 To derlg If Cells(i, 1).Value = "" Then Cells(i, 1).Value = Cells(i - 1, 1).Value End If Next i ComboBox1.Clear For i = 2 To derlg If Range("C" & i) = Val(TextBox1) Then ComboBox1.AddItem Range("a" & i) End If Next i Application.ScreenUpdating = True   End Sub Private Sub ComboBox1_Change() Dim i As Long, derlg As Long, ch As Range derlg = Range("c65535").End(xlUp).Row TextBox5.Value = "" TextBox2.Value = "" TextBox3.Value = "" TextBox4.Value = ""   Set ch = Range("A2:A" & derlg).Find(ComboBox1) If Not ch Is Nothing Then TextBox5.Value = ch.Offset(0, 1).Value TextBox2.Value = ch.Offset(0, 3).Value TextBox3.Value = ch.Offset(0, 4).Value TextBox4.Value = ch.Offset(0, 5).Value Else MsgBox "une erreur est probable": Exit Sub End If ' effacer les années ajoutées For i = Range("A65535").End(xlUp).Row To 2 Step -1 If Cells(i, 1).Value = Cells(i - 1, 1).Value Then Cells(i, 1).Value = "" End If Next i End Sub

---

regardes le résultat sans tenir compte de ton bouton, tu choisis d'abord le num et l'année, tout doit venir automatiquement ensuite

Re

Remplaces cette ligne :

Code:

---

If Cells(j, 3).Value = TextBox1.Value * 1 And Cells(j, 1).Value = ComboBox1.Value * 1 Then

---

Par celle-ci.

Code:

---

If Cells(j, 3).Value = TextBox1.Value * 1 And Cells(j, 1).Value = CStr(ComboBox1.Value) Then

---

Philippe

Merçi casefayere ;Philippe
un petit regle la faire CStr
resolu