Problème de loop [Résolu]

[vincedm]

Bonjour,

Je suis en train d'écrire un morceau de code qui recherche dans une feuille des rangées contenant des valeurs spécifiques dans plusieurs colonnes. Il s'agit d'un simple script qui servira un mini-programme suivant la progression d'un joueur de StarCraft2.

Mon problème est le suivant: dès que le script détecte une occurence de ce que je cherche, il boucle infiniment dessus et fait exploser ma variable tenant le compte (CountMU). Je ne comprends pas... je suis un peu nouveau à VBA et je sens que j'oublie quelque chose...

Voici le code, merci d'avance pour le coup de pouce!!

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Function CountMU(race1 As String, race2 As String, finish As String) As Integer
 
    Dim R As Range
    CountMU = 0
 
    Sheets("history").Activate
    With Sheets("history").Range("B:B")
        Set R = .Find(race1)
        If Not R Is Nothing Then
            Do
                R.Select
                If R.Offset(0, 3).Value = race2 Then
                    If R.Offset(0, -1).Value = finish Then
                        CountMU = CountMU + 1
                    End If
                End If
                Set R = .FindNext()
            Loop While Not R Is Nothing
        End If
    End With
    Set R = Nothing
End Function

[gFZT82]

Bonjour,

Tiré de l’aide RANGE.FIND :
Lorsque la recherche atteint la fin de la plage de recherche spécifiée, elle revient au début de cette plage. Pour arrêter une recherche lorsqu'elle revient au point de départ, il faut enregistrer l'adresse de la première cellule trouvée, puis comparer l'adresse de chaque cellule ultérieurement trouvée avec l'adresse enregistrée.

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Function CountMU(race1 As String, race2 As String, finish As String) As Integer
Dim R As Range
    CountMU = 0
    Sheets("history").Activate
    With Sheets("history").Range("B:B")
        Set R = .Find(race1)
        If Not R Is Nothing Then
            firstAddress = R.Address
            Do
                R.Select
                If R.Offset(0, 3).Value = race2 Then
                    If R.Offset(0, -1).Value = finish Then
                        CountMU = CountMU + 1
                    End If
                End If
                Set R = .FindNext()
            Loop While Not R Is Nothing And R.Address <> firstAddress
        End If
    End With
    Set R = Nothing
End Function

Cordialement.

[vincedm]

merci!!