utilisation de la méthode find
Bonjour,
J'ai cherché des tutos ou autres codes sources mais je saisis pas trop comment utiliser correctement la méthode find; surtout ses arguments en fait.
- J'ai une feuille Clients, dans laquelle il y a uniquement une liste de clients.
- Pour trouver un client jusqu'à maintenant j'utilisais le code suivant
Code:
1
2
3
4
5
6
7
|
Type Client
CID as integer
Nom as string
Pre as string
'Je continue pas c'est pas là l'imporant
End Type |
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
|
dim PlageClients as Range
dim i, CID_Rech as Integer
dim Test as Client
Set PlageClients = sheets("Clients").Range("A1").CurrentRegion
for i = 1 to PlageClients.Rows.Count
if PlageClients.Cells(i, 1) = CID_Rech Then Exit For
next i
With PlageClients
Test.CID = .Cells(i, 1).Value
Test.Nom = .Cells(i, 2).Value
'Etc. j'abrège
End With |
Voilà je voudrait savoir si avec une méthode Find le code serait plus léger ou si elle ne correspond à la limite pas à mon utilisation :?
Merci :)
