Comparaison de feuilles

Bonjour,

Je débuter dans la programmation VBA, alors je vais essayer d’être clair dans mes explications.

Voila je cherche une macro pour comparer deux feuilles est faire ressortir les différence en coloriant la case.

Plus clairement j'aimerais comparer la cellule A2 de la feuille Origine avec la même de la feuille Entreprise et ainsi de suite sur tout le tableau. (sachant que le vrai tableau va jusqu’à la cellule AA306)

et si la macro trouve une différence entre la meme cellule des deux feuille, la cellule de l'entreprise doit si colorer.

Je mets le principe du tableau en piece jointe (en bien plus petit) et en marquant les cellules où il y a des différences.

Je sais retravailler une macro pour adapter à ce que j'ai besoin mais je ne comprent pas bien le principe des boucles pour les créer moi meme.

Merci a tous ceux qui pourrons m'aider a trouver la solution.

Bonjour
Je ne crois pas que ce forum soit un simple distributeur de code.

Je n'ouvre par ailleurs jamais un classeur tiers et n'ai donc pas ouvert le tien.

Tu dis avoir cette difficulté ? :

Citation:

---

... je ne comprent pas bien le principe des boucles pour les créer moi meme ...

---

Et je te réponds donc de cette manière :
Les deux boucles imbriquées de l'exemple suivant permettent de parcourir et comparer toutes les cellules de la plage A1:F20 des feuilles Feuil1 et Feuil2

Code:

---

1 2 3 4 5 6

For ligne = 1 To 20 For colonne = 1 To 6 MsgBox Worksheets("Feuil1").Cells(ligne, colonne).Value & " est donc à comparer avec " & Worksheets("Feuil2").Cells(ligne, colonne).Value & vbCrLf & _ "Si différence constatée : tu colories en utilisant la_cellule.interior.color. A toi de jouer" Next Next

---

Bonjour,

Une piste pour comparer les cellules à la même position dans deux feuilles différentes :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30

Sub Comparer()   Dim FeOr As Worksheet Dim FeEnt As Worksheet Dim Plage As Range Dim Cel As Range   Set FeOr = Worksheets("Origine") Set FeEnt = Worksheets("Entreprise")   With FeOr   Set Plage = .Range(.Cells(2, 1), .Cells( _ .Cells.Find("*", .Cells(1, 1), -4123, , 1, 2).Row, _ .Cells.Find("*", .Cells(1, 1), -4123, , 2, 2).Column))   End With   For Each Cel In Plage   If Cel.Value = FeEnt.Cells(Cel.Row, Cel.Column).Value Then   FeEnt.Cells(Cel.Row, Cel.Column).Interior.ColorIndex = 3   End If   Next Cel   End Sub

---

Salut Florent6744

Recherche sur la toile, il existe des solutions gratos particulièrement efficaces où quitte à payer quelques euros, ça sera toujours moins cher que les heures que tu vas passer dessus.

Bonjour chez toi :pingoin2:

Sinon une solution plus bidouille si tu veux comparer que de la donnée, c'est d'exporter les données dans deux onglets notepad++ et utiliser l'addon de comparaison

Bonjour chez toi :pingoin2:

Merci de votre aide.

Unparia, je sais bien que le site n'ai pas prevu pour faire bosser les autres mais tout le monde débute un jour.

Theze, ton code marche nickel a la différence que je cherchais a colorer uniquement les cellules non identique. J'ai trouvé comment changer ta macro. Je ne comprend pas encore tout, surtout la ligne

Code:

---

.Cells.Find("*", .Cells(1, 1), -4123, , 2, 2).Column))

---

Je ne comprend pas la construction mais je vais me débrouiller.

Merci encore pour votre aide.

Bonjour,

Question à 2 lignes de code: pourquoi passer par du VBA alors que, sauf erreur de comprégension, Excel peut le faire nativement en passant par un format conditionel?

Pour une raison simple apprendre le langage VBA et pouvoir le faire sur plusieurs tableaux différents sans remettre de forme conditionnel.

Bonjour,

Pour répondre à ta question, comme on ne sait pas où se trouve la fin de la plage sur la feuille, on doit chercher la cellule qui se trouve la plus basse sur les lignes

Code:

---

.Cells.Find("*", .Cells(1, 1), -4123, , 1, 2).Row

---

et la plus à droite sur les colonnes

Code:

---

.Cells.Find("*", .Cells(1, 1), -4123, , 2, 2).Column

---

Exemple, tu inscris une valeur en A10 et une valeur en F3, la plage sera alors de A2 ".Cells(2, 1)" à F10 car la cellule non vide la plus basse est en ligne 10 et la cellule non vide la plus à droite est en colonne F même si la cellule F10 est vide !