Sujet Précédent Sujet Suivant

Macro VBA pour Comparaison de tableaux excel

Fermé
vbadebutant_3525 Messages postés 6 Date d'inscription jeudi 17 juin 2021 Statut Membre Dernière intervention 8 juillet 2021 - 8 juil. 2021 à 11:40
ccm81 Messages postés 10520 Date d'inscription lundi 18 octobre 2010 Statut Membre Dernière intervention 24 janvier 2023 - 8 juil. 2021 à 14:21
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?
A voir également:

1 réponse

Réponse 1 / 1
ccm81 Messages postés 10520 Date d'inscription lundi 18 octobre 2010 Statut Membre Dernière intervention 24 janvier 2023 2 334
8 juil. 2021 à 14:21
Bonjour

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

Cdlmnt
0