VBA---Valeur maximum d'un test IF.

[JJ1]

Bonjour,

Je voudrais votre avis concernant le résultat d'un test If dans un code tout simple (2 boucles).
(ne pas intégrer mon test au code, il est sur la feuille)

For j = 100 To 5 Step -1

For i = 1 To 1000

'mon test nb.si en AG sur la Feuille (ne pas l' intégrer au code VBA)

If Range("AG" & j).Value > 3 Then GoTo 1
Next i
1
Next j

Donc si AG (de la ligne j) est supérieur à 3, la boucle j remonte d'une ligne (Step-1) sans forcément être allé au 1000 tests de la boucle i et donc le test aurait pu trouver 5 ou 6..
Comment restituer la valeur maximum trouvée au bout des 1000 tests? Ici, il suffit de trouver 4 pour terminer la boucle sans forcément avoir fait les 1000 tests.

Merci de vos idées de modification du code.

Bonne journée à tous

 

[JJ1]

Re : VBA---Valeur maximum d'un test IF.

Re,

J'ai trouvé une autre solution en supprimant le If, sans être sûr que le code aura trouvé un nombre > à 3.

A+

 

[youky(BJ)]

Re : VBA---Valeur maximum d'un test IF.

Salut bien,
Heu!!!
Pas sur d'avoir compris car ceci suffirait

MsgBox Application.Max([AG5:AG100])

Bruno

 

[Pierrot93]

Re : VBA---Valeur maximum d'un test IF.

Bonjour,

pas tout compris de l'utilité de la boucle "for i ", tu ne te sers pas de la variable "i" et à priori donc tu fais 1000 fois le même test....

bonne journée
@+

Edition : bonjour Bruno🙂

 

[Paf]

Re : VBA---Valeur maximum d'un test IF.

Bonjour à tous

si on veut absolument conserver une boucle:

MonMax=0
For j = 1 To 1000
    If Range("AG" & j).Value > 3 And   Range("AG" & j).Value > MonMax Then MonMax = Range("AG" & j).Value
Next j

MsgBox MonMax

Bonne suite

 

[JJ1]

Re : VBA---Valeur maximum d'un test IF.

Bonjour à tous,

Merci pour vos réponses, j'étais resté sur ma première idée de supprimer le If et pour l'instant ça fonctionne bien.
merci

Bonne journée