Macro VBA pour comparer les colonnes

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.

S’abonner
Notifier de
0 Commentaires
Inline Feedbacks
Voir tous les commentaires

Initiation à Excel

Fonctions Excel

Excel VBA

Macros VBA Utiles

Plus d'outils

Sur Facebook

Sur YouTube

0
Nous aimerions avoir votre avis, veuillez laisser un commentaire.x
()
x