objectisation d'une recherche et loop

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:

---

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

Tu as le bouton de code qui te permet de rendre ton code plus lisible (et indente ton code ça sera encore plus lisible):

Code:

---

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

---

Tout ce que je constate, c'est que ta boucle ne correspond pas du tout à ce que tu dis: je vois une boucle qui recopie dans plus de 10 cases l'adresse de la première cellule trouvée.

As-tu essayé d'enregistrer une recherche ou tu fais une recherche, puis tu passes au résultat suivant en cliquant sur "suivant"? Tu mettras une partie du code obtenu à l'intérieur de ta boucle ça donnera de meilleurs résultats.

Citation:

---

Envoyé par decondelite

As-tu essayé d'enregistrer une recherche via l'enregistreur de macro où tu fais une recherche, puis tu passes au résultat suivant en cliquant sur "suivant"? Tu mettras une partie du code obtenu à l'intérieur de ta boucle ça donnera de meilleurs résultats.

---

petite précision en gras, au cas ou ce ne serait pas clair.

Salut Decondelite. ;)

Citation:

---

Envoyé par NulenVBA

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 ?

---

parce qu'alors j ne s'incrémente pas dans ta boucle et que ta boucle ne s'arrête que lorsque J >= 18 !!!

Bonjour,
Tu as aussi l'aide de vba qui peut t'aider.
Voici ce qu'elle donne pour find et findnext :

Code:

---

1 2 3 4 5 6 7 8 9 10

With Worksheets(1).Range("a1:a500") Set c = .Find(2, lookin:=xlValues) If Not c Is Nothing Then firstAddress = c.Address Do c.Value = 5 Set c = .FindNext(c) Loop While Not c Is Nothing And c.Address <> firstAddress End If End With

---

Citation:

---

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 ?

---

Comme l'a dit ucfoutu, si tu n''incrémente pas j entre do et loop, il va rester à sa valeur initiale (5 dans ton cas) et comme la boucle doit durer tant que j est différent de 18, tu créés une boucle infinie.

ok merci jvais continuer à chercher, sachant que je ne comprends pas pourquoi mon code semble figer j à 5 alors qu'en introduisant cells(x,j) je pensais faire incrémenter le truc mais bon comme mon pseudo lindique jai pas le cerveau fait pr le vba c bien dommage dailleurs

j'ai modifié le code, je suis désemparé devant mon niveau. Le bloc if n'est plus reconnu, on me dit 'end if' without block 'if'. ce qui est affreux c'est qu'un détail peut faire planter un programme, c'est dur à accepter...

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

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 If Not c Is Nothing Then a = c.Address Do Cells(4, j).Value = a End If j = j + 1 Loop While j < 18 End Sub

---

Oulah c'est beau ce que tu viens de nous pondre. 8O

Je te suggère de bien potasser les tutos pour apprendre les bases de VBA, car tu ne comprends visiblement pas ce que les termes "programmation par blocs" veut dire.

En gros et pour t'expliquer vu que tu ne comprends pas: on met un if... end if à l'intérieur d'un do...while, ou l'inverse, mais on n'entrecroise pas les 2 le code ne veut plus rien dire, et par conséquent je ne comprends pas du tout la logique de topn code.

Pour résumer, tu peux faire :

Code:

---

1 2 3 4 5

if ... do ... loop while end if

---

ou

Code:

---

1 2 3 4

do if ... end if loop while

---

mais pas :

Code:

---

1 2 3 4

do if ... loop while end if

---

VBA trouve du coup un if sans end if car il cherche entre le do et le loop.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

Sub UAR() Dim j As Integer   For j = 5 To 14 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 Cells(4, j) = a Next j   End Sub

---

avec ça ça marche sauf qu'il faudrait que j'ajoute un "on error resume ou go to", je vais essayer de voir pourquoi ça marche maintenant. merci pour le tuyau sur les blocs, je n'avais pas compris cela en effet. J'ai fait la premiere partie d'un programme qui comporte au moins le triple, j'ai pas fini 8O