La solution suivante est également souvent utilisée: Vous avez la tâche de comparer deux colonnes l’une avec l’autre. Le meilleur résultat devrait être écrit dans une nouvelle colonne.

Sub Comparer les sous-colonnes ()

Dim i As Long

Dim i2 As Long

 Sheets("Feuil5").Activate

 i = Range("A1").CurrentRegion.Rows.Count

 For i2 = 3 To i

    If Cells(i2, 1) > Cells(i2, 2) Then

        Cells(i2, 3).Value = Cells(i2, 1).Value

    Else

        Cells(i2, 3).Value = Cells(i2, 2).Value

    End If

 Next i2

End Sub

 Dans la première étape, vous déterminez le nombre de lignes occupées dans la zone actuelle. Vous pouvez déterminer le nombre de lignes à l’aide de la propriété CurrentRegion, de la propriété Rows et de la méthode Count.

Le nombre de lignes utilisées ainsi déterminé constitue la condition pour quitter la boucle For Next. Pour que la comparaison des colonnes individuelles commence dans la ligne correcte, définissez la variable i2 sur la valeur 3. Cette valeur est la valeur de départ à laquelle la comparaison de colonnes doit commencer. Dans la boucle, vous comparez le contenu des deux colonnes entre eux. Pour ce faire, utilisez la propriété Cells, où la variable i2 représente la ligne actuelle et le deuxième argument représente la colonne A ou B, respectivement. En fonction du résultat du test, la valeur correspondante est insérée dans la colonne C.