Erreur de comparaison

Bonsoir,

Je rencontre un soucis avec une macro.

J'ai mis en place (à l'aide de ce forum) une macro qui a pour but de comparer des colonnes entre elles (deux colonnes comparées à partir de la colonne I).

Le soucis est que lorsque je lance ma macro, la comparaison commence par comparer la colonne H et I, puis K et L etc etc alors qu'elle devrait commencer par comparer I et J, puis K et L etc etc.

Voici ma macro ainsi que mon fichier sur lequel la macro peut être testée :

Sub Add_And_Compare()

    Dim iLastCol As Integer
    Dim Lastline As Long
    iLastCol = Cells(1, Columns.Count).End(xlToLeft).Column + 1
    Lastline = Cells(Rows.Count, 1).End(xlUp).Row - 1
    For colx = iLastCol To 10 Step -2
        Columns(colx).Insert Shift:=xlToRight
        Cells(3, colx).Resize(Lastline).FormulaR1C1 = "=if(rc[-2]<>rc[-1],""yes"",""no"")"
    Next

End Sub

Merci de votre aide

Bonjour,

Le problème, c'est que tu as une colonne (AI) qui décale ton décalage de 2

Bonjour à tous

Essaie ainsi :

Sub Add_And_Compare()

    Dim iLastCol As Integer
    Dim Lastline As Long
    iLastCol = Cells(1, Columns.Count).End(xlToLeft).Column + 1
    Lastline = Cells(Rows.Count, 1).End(xlUp).Row - 1
    For colx = iLastCol + 1 To 10 Step -2
        Columns(colx).Insert Shift:=xlToRight
        Cells(3, colx).Resize(Lastline).FormulaR1C1 = "=if(rc[-2]<>rc[-1],""yes"",""no"")"
    Next
End Sub

Bye !

Merci pour vos deux réponses, elles fonctionnent toutes les deux.

Bonne année à vous.