Discussion :

[zine pef]

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

[Invité]

Bonjour

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

Code :

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

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

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

Philippe

[zine pef]

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

[casefayere]

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

Code :

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

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

[Invité]

Re

Remplaces cette ligne :

Code :

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

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

Par celle-ci.

Code :

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

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

Philippe

[zine pef]

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