Discussion :

[jijie]

Bonjour à vous,

J'ai une feuille qui fait environ 5000 lignes, je recherche une ligne précise, et ds la colonne B la ligne est tjrs différente !

exemple:
une ligne OD100-1
une autre est D100-1 mais se trouve après

si je cherche D100-1 il me donne la OD100-1 pourquoi? Je comprend bien que la terminaison est la même !

Voici le 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
 
Dim Cp As String
Dim ci As Variant
 
 
Cp = ListBox1.Value
 
Set ci = Sheets("feuil1").Columns("B:B").find(What:=Cp)
 
 
If ci Is Nothing Then
 
 GoTo finfin
 
 
Else
 
 
TextBox18 = ci.Offset(0, 0)
 
End if

Merci de votre réponse!

[mercatog]

Code :

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

Sheets("feuil1").Columns("B:B").find(Cp, LookAt:=xlWhole)

Edit
Declare Ci en Range, le Offset(0,0) n'est pas nécessaire

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Dim Cp As String
Dim Ci As Range
 
Cp = ListBox1.Value
Set Ci = Sheets("feuil1").Columns("B:B").Find(What:=Cp, LookAt:=xlWhole)
If Not Ci Is Nothing Then
    TextBox18 = Ci.Value
    Set Ci = Nothing
Else
    GoTo finfin 'JE N'AIME PAS
End If

[jijie]

Declare Ci en Range, le Offset(0,0) n'est pas nécessaire

Pour moi le Offset(0,0) est nécessaire car ensuite ds mon code on trouve

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
Dim Cp As String
Dim ci As Variant
 
 
Cp = ListBox1.Value
 
Set ci = Sheets("feuil1").Columns("B:B").find(What:=Cp)
 
 
If ci Is Nothing Then
 
 GoTo finfin
 
 
Else
 
 
TextBox18 = ci.Offset(0, 0)
 TextBox2 = ci.Offset(0, 1)
ComboBox3 = ci.Offset(0, 3)
ComboBox2 = ci.Offset(0, 4)
End if

Il est vrai que n'avais pas stipulé cette suite !
Désolé

[mercatog]

Et où est le problème d'écrire ceci?

Code :

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

1
2
3
4
TextBox18 = ci.value
TextBox2 = ci.Offset(0, 1).value
ComboBox3 = ci.Offset(0, 3).value
'....

[jijie]

Merci Mercatog,

Non il n'y a pas de problème!

Voici mon code modifié

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
Dim Cp As String
Dim Ci As Range
 
Cp = ListBox1.Value
Set Ci = Sheets("feuil1").Columns("B:B").find(What:=Cp, LookAt:=xlWhole)
If Not Ci Is Nothing Then
 
 
TextBox18 = Ci.Offset(0, 0)
TextBox2 = Ci.Offset(0, 1)
ComboBox3 = Ci.Offset(0, 3)
ComboBox2 = Ci.Offset(0, 4)
 
 
    Set Ci = Nothing
Else
    GoTo finfin 'JE N'AIME PAS
End If

Et ça fonctionne très bien!
Pour info pourquoi tu n'aime pas les goto XXXX?

merci encore!

[mercatog]

Mets ton code en entier, et je te dirai pourquoi je n'aime pas beaucoup les Goto Etiq