Passage à la cellule suivante

Bonjour,

Pour m'entrainer je souhaitais écrire une fonction .Min

Sub macro()

Dim var1, var2

var1 = Cells(1, 1).Value
var2 = Cells(2, 1).Value
Debug.Print "var1 :" & var1
Debug.Print "var2 :" & var2

For i = 1 To 5

If var1 > var2 Then
var1 = var1 + 1
var2 = var2 + 1
Else
var2 = var2 + 1

End If

Next

Debug.Print "valeur minimale :" & var1

End Sub

Mais je ne sais pas comment faire un passage à la cellule suivante (il ne s'agit que d'un tableau d'une colonne). Pour l'instant je l'ai mis sous cette forme

var1 = var1 + 1
var2 = var2 + 1

c'était plus dans un esprit algorithmique.

Merci d'avance :)

Bonjour,

A priori les données sont en ligne (?) mais pour être sûr et mener des essais ....

A+

Ce sera mieux :)

Merci :)

Je ne devais pas être bien réveillé, c'est bien précisé colonne...

Pour répondre strictement au souci de passer à la cellule suivante, une proposition :

For i = 1 To 6
    var1 = Cells(i, 1).Value
    var2 = Cells(i + 1, 1).Value
    If var1 > var2 Then
.../...

Next

Par contre, pas compris l'algo présenté pour trouver la valeur mini...