voilà mon probleme, je fais ce code qui doit m'afficher l'adresse de la cellule ou est trouvée linfo que je veux chercher. Or, à chaque répétition jusqu'à 18, c'est la première adresse trouvée qui est répétée, le j incrémente l'inscription dans la case, mais pas la recherche.


Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
Sub UAR()
Dim j As Integer
j = 5
BL = Cells(5, j).Value
With Workbooks("ApplicationsA123&UAR_All.xls").Worksheets("sheet1").Range("a1:aa40000")
Set c = .Find(BL, LookIn:=xlValues)
End With
a = c.Address
Do
Cells(4, j) = a
j = j + 1
Loop While j < 18
End Sub
j'ai également un autre souci: quand je mets le loop avant j=j+1 la macro semble bugger et je dois faire un ctrl pause pour arreter la macro. Pourquoi ?

Merci de vos réponses

NulenVBA