Bonjour,

Je vient chercher de l'aide car je souhaite faire un find next et une boucle mais cela ne fonctionne pas : pouvez vous me dire ce qui va pas dans mon code s'il vous plait ?
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
 
 
Private Sub CommandButton3_Click()
 
Dim wb As Workbook
Dim ws As Worksheet
 
Dim r As Range 'déclare la variable r (Recherche)
Dim tr As String 'déclare la variable tr (Texte Recherché)
Dim li As Integer 'déclare la variable li (Ligne)
Dim listebox, premiereoccurence As Integer
Dim applitrouvee As Range
Dim tableau(50) As Integer
 
Set wb = Workbooks.Open("U:\ICDC\DPI\OPE\Oac\2.Applicatif\Référentiel applis.xls")
Set ws = wb.Worksheets(1)
 
Sheets("Réf applis").Select
Range("A1").Select
 
tr = TextBox1.Value 'définit la variable tr
 
Set applitrouvee = Cells.Find(What:=tr, After:=ActiveCell, LookIn:=xlValues, LookAt:= _
xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False)
 
premiereoccurence = applitrouvee.Row
 
If applitrouvee Is Nothing Then
MsgBox "Aucune application trouvée!", , "Résultat"
Else
Do
applitrouvee = Cells.FindNext(applitrouvee)
 
Loop While applitrouvee.Row <> premiereoccurence
 
li = ActiveCell.Row
 
Range("A" & li).Select
 
For listebox = 1 To 4
UserForm2.ListBox1.AddItem Range("A" & li)
Next listebox