Discussion :

[NulenVBA]

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

[decondelite]

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 :

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

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.

[Godzestla]

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.

[ucfoutu]

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 !!!

[oOVaveOo]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

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.

[NulenVBA]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[decondelite]

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

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.

[oOVaveOo]

Pour résumer, tu peux faire :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
if ...
  do
     ...
  loop while
end if

ou

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
do
  if ...
  end if
loop while

mais pas :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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.