comparaison de range

Bonjour,
Je cherche un moyen de comparer deux range (qui représenteront des lignes de longueurs variables, par forcément même longueur). Ces deux ranges seront dans deux fichiers différents (juste pour info)

car la comparaison if range1 = range2 ne fonctionne pas.


J'ai vu qu'il existait la méthode rowdifference mais celle-ci compare le range à une seule cellule.

Moi je voudrais que la comparaison soit faite colonne par colonne, c'est à dire
colonne 1 du range1 avec colonne 1 du range 2
colonne 2 du range1 avec colonne 2 du range 2
colonne 3 du range1 avec colonne 3 du range 2 ...
et ceci jusqu'au max (derniere colonne range1, dernière colonne range2)
indiquant donc l'éventuelle différence de longueur entre les deux range.

J'ai déjà mis au point un algo qui faisait la comparaison cellule par cellule mais je voulais voir si il y avait plus rapide. Avec une méthode par exemple.

Bonjour

Pourrais tu précisez ce que tu entends par range, l'objet range pouvant etre une cellule, une ligne, une colonne, un ensemble de cellule.
Tu as le nez sur ton projet, la question est donc evidente pour toi, perso je comprends pas ce que tu veux obtenir, et je pense que je serai pas le seul.

D'apres ce que j'en comprends, tu veux comparer
Classeur1, colonne1, nombre de cellule rempli = classeur2, colonne1, nombre de cellule rempli
auquel cas il suffit de comparer le n° de ligne de la derniere occurrence de chaque colonne, de chaque classeur

je pense que tu cherche quelque chose de plus complexe.

Ces ranges (range1 et range 2) représentent chacun une ligne de deux documents que je souhaite comparer.
Ces lignes n'ont pas forcément le même nombre de colonnes. Je souhaite donc que la comparaison soit faite jusqu'au numéro de colonne de la ligne la plus longue.

J'espère que c'est plus claire.

Pense tu pouvoir t'en sortir avec l'une des deux lignes ci-dessous

Code:

---

1 2	Range(Cells(1, 1), Cells(1, Cells(1, 1).End(xlToRight).Column)).Select Cells(Cells(1, Cells(1, 1).End(xlToRight).Column)).Select

---

Faut il comparer le nombre de cellule composant la ligne ou bien le contenu de chaque cellule une a une ?
en cas de cellule vide dans la ligne, on peut aussi trouver la derniere cellule de la ligne avec le code suivant

Code:

---

Cells(Cells(1, Cells(1, 255).End(xlToleft).Column)).Select

---

Je veux comparer le contenu de chaque cellule une a une si la ligne est différente pour trouver ou sont les différences.
Mais si les deux lignes sont identique, je voudrais m'éviter de parcourir une à une les cellules.

En gros un algo

Code:

---

1 2 3 4 5 6 7 8

if range1 <> range 2 then for x = 1 to range1.cells(1,columns.count).end(xltoleft).column if range1.cells(1,x) <> range2.cells(1,x) ... Endif next x Endif

---

Et dans cet algo, je me demande comment coder la première ligne

Un truc dans le genre, a coller dans la feuille du premier classeur ouvert

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19

Private Sub comparer() Dim cls As Workbook Dim l As Integer, c As Integer   Set cls = Application.Workbooks.Open("c:\ton_deuxieme_classeur.xlsm", , True) 'ouvre le classeur pour comparaison ThisWorkbook.Activate Windows.CompareSideBySideWith cls.Name   For l = 1 To Cells(65000, 2).End(xlUp).Row 'pour toute les lignes depuis la ligne 1 For c = 1 To Cells(l, 255).End(xlToLeft).Column ' pour toutes les colonnes de cette lignes If Cells(l, c) <> cls.Sheets(1).Cells(l, c) Then 'compare une a une le contenu de chaque cellule MsgBox "cette cellule est differente" 'arrete la macro et pointe la cellule inegale ActiveWorkbook.ActiveSheet.Cells(l, c).Select Exit Sub End If Next c Next l csl.Close False 'ferme sans enregistrer le deuxiemme classeur End Sub

---

Merci j'ai fait un truc dans le genre.
Mais maintenant j'ai un nouveau soucis,:weird:
En comparant une cellule ou il y a une formule avec une cellule ou il y a une valeur j'ai une erreur 13 : incompatibilité de type

L'erreur se produit donc ici:

Code:

---

If RangeLineOldDDTR.Cells(1, n) <> RangeLineDTTR.Cells(1, n)

---

qui correspond chez toi à

Code:

---

If Cells(l, c) <> cls.Sheets(1).Cells(l, c) Then

---

Suis-je obliger de vérifier si la cellule contient une formule avant de comparer la cellule?

Merci de ton aide.

Bonjour,

la cellule contenant la formule n'a pas un résultat en erreur (#DIV/0!, #N/A! etc...) ?

Oui le résultat est #N/A. Je ne maîtrise pas cette formule (dans le sens ou je n'en suis pas responsable), donc j'aimerais éviter de la modifier.

Bon pour le moment j'ai trouvé une solution pour contourner le problème. Je clos car le problème initial est résolu.