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 : Sélectionner tout - Visualiser dans une fenêtre à part
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 TypeVoilà 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
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 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
Merci![]()
Partager