Comparaison de deux colonnes sous vbaRésolu/Fermé

Question

Bonjour,
Je souhaiterais comparer deux colonnes (contenant des références) dans deux feuilles excel différentes appartenant à un même classeur.
Tout d'abord je comparre les deux colonnes (colonne A feuille 1 avec colonne A feuille 2)avec plusieurs boucles while puis je souhaite voir apparaitre dans la colonne B feuille 2 les références qui étaient présente dans la colonne A feuille 1 mais qui n'étaient pas présente dans la colonne A feuille 2. Voila le code que j'ai tapé, mais il ne fonctionne pas (Dépassement de capacité). ce n'est surement pas grand chose, mais je tourne en rond :

Dim VALEURA As String, i As Integer, x As Integer, y As Integer, valeurB As String
i = 2
x = 2
y = 2
Do While i <> "200"
VALEURA = Sheets("feuille1").Range("A" & i).Value
valeurB = Sheets("feuille2").Range("A" & x).Value
Do While VALEURA <> valeurB
x = x + 1
If x = 200 Then
While Sheets("feuille2").Range("B" & y).Value <> ""
y = y + 1
Sheets("feuille2").Range("B" & y).Value = VALEURA
Wend
Else
i = i + 1
End If
Loop
i = i + 1
Loop
End Sub

Mike-31 · Answer

Salut,

Tu peux traiter ce problème par formule

=SI(NB.SI(Feuil1!$A$1:$A$37;Feuil2!A4)=0;Feuil1!A4;"")

Si tu tiens au VBA, je suis obligé de m'absenter je t'écrierai un bout de code en début d'après midi si personne n'est venu en aide

A+

Mike-31 · Answer

Re,

Pas de nouvelles !

comme promis un bout de code pour comparer la colonne A feuille1 de la colonneA feuille2 et copie en colonne B feuille2 des données présente colonne A de la feuille 1 absente feuille 2

Sub Absent_Feuille_Deux()

Dim Plag1 As Range, Plag2 As Range
Dim Tablo1, Tablo2, Plag3 As Range
Dim A As Long, B As Integer, C As Long, D As Integer
Set Plag1 = Sheets("Feuil1").Range("A1:A100") 'première plage de recherche
Set Plag2 = Sheets("Feuil2").Range("A1:A100") 'plage de comparaison
Set Plag3 = Sheets("Feuil2").Range("B1") 'début de plage de réception des différences
'comparaison des plages
If Plag1.Rows.Count <> Plag2.Rows.Count Then
MsgBox "Les plages à comparer ne sont pas identiques"
Exit Sub
End If
Range("B1:B100").ClearContents 'efface la plage de réception
Tablo1 = Plag1: Tablo2 = Plag2: D = 1
Application.ScreenUpdating = False
For A = 1 To UBound(Tablo1, 1)
For B = 1 To UBound(Tablo1, 2)
If Tablo1(A, B) <> Tablo2(A, B) Then
C = C + 1
Plag3(C, D) = Tablo1(A, B)
End If
Next
Next
End Sub

A+

Damien · Answer

Merci beaucoup de ta réponse, ça marche!!!!!
Et désolé de ne pas avoir répondu plus tot.

MERCI

Mike-31 · Answer

Salut,

Content que tu ais trouvé la solution sur comment ça marche, n'oublies pas de mettre ton statut en résolu en haut de ton post, ou clic sur le triangle jaune pour demander à un modérateur de la faire

Merci et A+

Mike-31 · Answer

Re,

Normalement ce code te donne sur la feuille2 colonne B ce qui se trouve sur la feuille1 colonne A et qui est absent sur la feuille2 colonne A quelque soit l'ordre

Sub Absent_Feuille_Deux()

Dim Plag1 As Range, Plag2 As Range
Dim Tablo1, Tablo2, Plag3 As Range
Dim A As Long, B As Integer, C As Long, D As Integer
Set Plag1 = Sheets("Feuil1").Range("A2:A100") 'première plage de recherche
Set Plag2 = Sheets("Feuil2").Range("A2:A100") 'plage de comparaison
Set Plag3 = Sheets("Feuil2").Range("B2") 'début de plage de réception des différences
'comparaison des plages
If Plag1.Rows.Count <> Plag2.Rows.Count Then
MsgBox "Les plages à comparer ne sont pas identiques"
Exit Sub
End If
Range("C1:C100").ClearContents 'efface la plage de réception
Tablo1 = Plag1: Tablo2 = Plag2: D = 1
Application.ScreenUpdating = False
For A = 1 To UBound(Tablo1, 1)
For B = 1 To UBound(Tablo1, 2)
If Tablo1(A, B) <> Tablo2(A, B) Then
C = C + 1
Plag3(C, D) = Tablo1(A, B)
End If
Next
Next
End Sub

A+

Mike-31 · Answer

Salut,

Récupéres un exemple avec le lien ci-dessous.

https://www.cjoint.com/?fbbvHTPCde

J'ai revu le code en supposant que les plage à contrôler et de réception commencent à la ligne 2

Sub essai()
Dim colonne1 As Range, colonne2 As Range, cellule As Range, trouve As Range, suite As Range

                'Compare la colonne A des feuilles 1 et 2
Set colonne1 = Sheets("Feuil1").Range(("A2"), Sheets("Feuil1").Range("A2").End(xlDown))
Set colonne2 = Sheets("Feuil2").Range(("A2"), Sheets("Feuil2").Range("A2").End(xlDown))

                                'Efface la plage de réception
Sheets("Feuil2").Range("B2:B65536").ClearContents

                'Retranscrit les données différente de la feuille1 sur la feuille2
For Each cellule In colonne1
   Set suite = Sheets("Feuil2").[B65536].End(xlUp).Offset(1, 0)
   Set trouve = colonne2.Find(cellule.Value, LookIn:=xlValues, lookat:=xlWhole)
   If trouve Is Nothing Then suite.Value = cellule.Value
Next
End Sub

Ci-dessous le même code mais avec des plages nommées, la colonne A feuille 1 nommée toto
colonne A feuille 2 nommée titi
et la plage de réception colonne B feuille 2 nommée tutu.
l'intérêt de nommer les plages raccourci les formules, et nous n'avons pas besoin d'identifier la feuille et la plage

Sub essai()
Dim colonne1 As Range, colonne2 As Range, cellule As Range, trouve As Range, suite As Range

                 'Compare la colonne A des feuilles 1 et 2 nommées
Set colonne1 = Range([toto], [toto].End(xlDown))
Set colonne2 = Range([titi], [titi].End(xlDown))

                'Efface la plage de réception
[tutu].ClearContents

                'Retranscrit les données différente de la feuille1 sur la feuille2
For Each cellule In colonne1
   Set suite = Sheets("Feuil2").[B65536].End(xlUp).Offset(1, 0)
   Set trouve = colonne2.Find(cellule.Value, LookIn:=xlValues, lookat:=xlWhole)
   If trouve Is Nothing Then suite.Value = cellule.Value
Next
End Sub

Damien · Answer

Salut, 

Dsl j'étais en congé depuis une semaine.

Je te remercie bcp pour ces améliorations, tout fonctionne correctement maintenant.

Merci bcp

Comparaison de deux colonnes sous vba

7 réponses

Newsletters