Macro VBA pour Comparaison de tableaux excel

vbadebutant_3525 Messages postés 6 Date d'inscription   Statut Membre Dernière intervention   -  
ccm81 Messages postés 10909 Date d'inscription   Statut Membre Dernière intervention   -
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 10909 Date d'inscription   Statut Membre Dernière intervention   2 433
 
Bonjour

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

Cdlmnt
0

Discussions similaires

Transformer un chiffre en lettres dans excel sans macro
vincentphilippos -
tontong -

6 réponses