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 10851 Date d'inscription lundi 18 octobre 2010 Statut Membre Dernière intervention 16 avril 2024 - 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:

Macro VBA pour Comparaison de tableaux excel
Liste déroulante excel - Guide
Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
Tableau croisé dynamique excel - Guide
Formule excel - Guide
Macro word - Guide

1 réponse

Réponse 1 / 1

ccm81 Messages postés 10851 Date d'inscription lundi 18 octobre 2010 Statut Membre Dernière intervention 16 avril 2024 2 404
8 juil. 2021 à 14:21

Bonjour

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

Cdlmnt

Newsletters