Macro VBA pour Comparaison de tableaux excel

Signaler
Messages postés
6
Date d'inscription
jeudi 17 juin 2021
Statut
Membre
Dernière intervention
8 juillet 2021
-
Messages postés
9983
Date d'inscription
lundi 18 octobre 2010
Statut
Membre
Dernière intervention
24 juillet 2021
-
Bonjour,

j'ai trouvé une formule pour effectuer la comparaison de cellules, mais elle ne s'applique qu'à la première ligne de mon tableau (qui peut faire jusqu'à 2000 lignes, nombre variable) :

Sub Macro2()
'
' Macro2 Macro
'
Dim DerLigne As Long
With ActiveSheet
DerLigne = .Cells(Rows.Count, 1).End(xlUp).Row

.Range("Y5:Y" & DerLigne).FormulaR1C1 = "=IF(RC[-23]=RC[-11],""ok"",""Faux"")"
.Range("Z5:Z" & DerLigne).FormulaR1C1 = "=IF(RC[-23]=RC[-11],""ok"",""Faux"")"
.Range("AA5:AA" & DerLigne).FormulaR1C1 = "=IF(RC[-23]=RC[-11],""ok"",""Faux"")"
.Range("AB5:AB" & DerLigne).FormulaR1C1 = "=IF(RC[-17]=RC[-4],""ok"",""Faux"")"
.Range("AC5:AC" & DerLigne).FormulaR1C1 = "=IF(RC[-23]=RC[-11],""ok"",""Faux"")"

End With

End Sub

où est l'erreur?

1 réponse

Messages postés
9983
Date d'inscription
lundi 18 octobre 2010
Statut
Membre
Dernière intervention
24 juillet 2021
2 161
Bonjour

Combien de lignes renseignées en colonne 1 ?
DerLigne = .Cells(Rows.Count, 1).End(xlUp).Row

Cdlmnt