comparaisons colonnes

O

obyone

XLDnaute Occasionnel
bonjour,

je souhaites comparer 2 colonnes à l'aide du "bouton 2", si sur la ligne les 2 colonnes sont identique alors msg "aucune mise à jour" si différent msg "mise à jour à effectuer" et copie de la 1ère case de la colonne sur la "feuil2".
et ceux ci pour un tableau de plus de 300 entrées.

voici ma macro mais elle ne fonctionne pas comme je veux.

Code: 
Sub Bouton2_Clic()
Dim col_A As Range
Dim col_B As Range
 
With Worksheets("Feuil1")
    Set col_A = .Range("A2")
    Set col_B = .Range("B2")
    For i = 2 To .Cells(1, 2).End(xlDown).Row 'derniere cellule renseignée de la colonne, nécessite que toutes les cellules soient remplies
    For j = 2 To .Cells(2, 2).End(xlDown).Row
 
    If .Cells(i, 1) = .Cells(j, 1) Then
 
      MsgBox "aucune mise à jour"
    Else
    
    Sheets("feuil1").Cells(i, 1) = Sheets("feuil2").Cells(j, 1)
    MsgBox "mise à jour à effectuer"
 
    End If
  Next
Next
End With
 
End Sub

merci de voter aide
oby1
 

Pièces jointes

  • comparaison.xlsm
    22.5 KB · Affichages: 33
  • comparaison.xlsm
    22.5 KB · Affichages: 26
Trier par date Trier par votes
vgendron

vgendron

XLDnaute Barbatruc
Re : comparaisons colonnes

Hello

corrige avec ce code
PS: dans le cas ou Noms et anciens noms ne correspondent pas.. dans ta macro, tu vas chercher une info en feuille 2.. laquelle est vide
dans le code ci dessous, je recopie l'ancien nom vers Noms..

Code: 
Sub Bouton2_Clic()
Dim col_A As Range
Dim col_B As Range
 
With Worksheets("Feuil1").Range("Tableau3") 'Tableau3 étant le nom de la table Feuil1
Maj = False
    For i = 1 To .Rows.Count
        If .Item(i, 1) <> .Item(i, 2) Then
            Maj = True
            .Item(i, 1) = .Item(i, 2)
        End If
    Next i
    
    If Maj Then MsgBox ("Une mise à jour a été faite")
End With
End Sub
 
Vote positif 0 Vote négatif
O

obyone

XLDnaute Occasionnel
Re : comparaisons colonnes

bonjour merci de ta réponse mais ce n'est pas ce que je souhaitais,
si la colonne A est différente de la colonne B alors on copie la colonne A dans le "tableau1" sur la "feuil2"
merci
 

Pièces jointes

  • comparaison.xlsm
    21.3 KB · Affichages: 35
  • comparaison.xlsm
    21.3 KB · Affichages: 35
Vote positif 0 Vote négatif
gosselien

gosselien

XLDnaute Barbatruc
Re : comparaisons colonnes

Bonjour,

à vue de nez....(avec le code de vgendron que je salue)

Code: 
Sub Bouton2_Clic()
Dim col_A As Range
Dim col_B As Range
Dim ws2 As Worksheet
Set ws2 = Sheets("feuil2")
With Worksheets("Feuil1").Range("Tableau3") 'Tableau3 étant le nom de la table Feuil1
Maj = False
    For i = 1 To .Rows.Count
        If .Item(i, 1) <> .Item(i, 2) Then
          .Item(i, 2).Copy ws2.[A65550].End(xlUp)(2)
        End If
    Next i
    'If Maj Then MsgBox ("Une mise à jour a été faite")
End With
End Sub
 
Vote positif 0 Vote négatif
vgendron

vgendron

XLDnaute Barbatruc
Re : comparaisons colonnes

Avec ceci alors...
Code: 
Sub Bouton2_Clic()

With Worksheets("Feuil1").Range("Tableau3") 'Tableau3 étant le nom de la table Feuil1
Maj = False
    For i = 1 To .Rows.Count
        If .Item(i, 1) <> .Item(i, 2) Then
            Maj = True
            nb = Range("Tableau1").Rows.Count + 1
            'on ajoute une ligne au tableau de la feuille 2 "Tableau1"
            Sheets("Feuil2").ListObjects("Tableau1").Resize Range("A1:C" & nb + 1)
            Range("Tableau1").Item(Range("Tableau1").Rows.Count, 1) = .Item(i, 2)
            Range("Tableau1").Item(Range("Tableau1").Rows.Count, 2) = .Item(i, 3)
            Range("Tableau1").Item(Range("Tableau1").Rows.Count, 3) = "Maj Done"
        End If
    Next i
   
    If Maj Then MsgBox ("Une mise à jour a été faite")
End With
End Sub
 
Vote positif 0 Vote négatif
vgendron

vgendron

XLDnaute Barbatruc
Re : comparaisons colonnes

Avec juste une petite modif pour avoir la ligne vide en BAS du tableau

Code: 
Sub Bouton2_Clic()

With Worksheets("Feuil1").Range("Tableau3") 'Tableau3 étant le nom de la table Feuil1
Maj = False
    For i = 1 To .Rows.Count
        If .Item(i, 1) <> .Item(i, 2) Then
            Maj = True
            nb = Range("Tableau1").Rows.Count + 1
            
            Range("Tableau1").Item(Range("Tableau1").Rows.Count, 1) = .Item(i, 2)
            Range("Tableau1").Item(Range("Tableau1").Rows.Count, 2) = .Item(i, 3)
            Range("Tableau1").Item(Range("Tableau1").Rows.Count, 3) = "Maj Done"
'on ajoute une ligne au tableau de la feuille 2 "Tableau1"
            Sheets("Feuil2").ListObjects("Tableau1").Resize Range("A1:C" & nb + 1)
        End If
    Next i
   
    If Maj Then MsgBox ("Une mise à jour a été faite")
End With
End Sub
 
Vote positif 0 Vote négatif
J

jp14

XLDnaute Barbatruc
Re : comparaisons colonnes

Bonjour

Un code qui utilise des tableaux pour améliorer le temps de réponse.
Le nombre de données est indiférent.


Code: 
Option Explicit

Sub Bouton2_Clic()
Dim ColA As Range, ColB As Range, Colc As Range
Dim MontabA As Variant, MontabB As Variant, MontabC As Variant, Diff As Boolean
Dim Dl1 As Long, i As Long, j As Long, Msg As String
With Worksheets("Feuil1")
    Dl1 = .Range("a:b").SpecialCells(xlCellTypeLastCell).Row
    Set ColA = .Range("A2:A" & Dl1)
    Set ColB = .Range("B2:B" & Dl1)
    Set Colc = Sheets("feuil2").Range("A2:B" & Dl1)
    MontabA = ColA.Value
    MontabB = ColB.Value
    MontabC = Colc.Value
    Diff = False
    Dl1 = 0
    For i = LBound(MontabA) To UBound(MontabA)
            If MontabA(i, 1) <> MontabB(i, 1) Then

            Diff = True
            MontabC(i, 1) = MontabA(i, 1)
            MontabC(i, 2) = MontabB(i, 1)
            If Dl1 = 0 Then Dl1 = i + 1
        End If
    Next i
 End With
Colc.Value = MontabC
If Diff = False Then
    Msg = "Pas de mise à jour"
Else
    Msg = "Mise à jour à faire dans la feuille 2 a la ligne : " & Dl1
End If

Call MsgBox(Msg, vbInformation, Application.Name)

End Sub


A tester

JP
 
Dernière édition:
Vote positif 0 Vote négatif
vgendron

vgendron

XLDnaute Barbatruc
Re : comparaisons colonnes

et pourquoi tu ne pourrais pas mettre le else??
il suffit de respecter la syntaxe if then else: va voir dans l'aide VBA pour plus de détail

Code: 
 If Maj Then 
    MsgBox ("Une mise à jour a été faite")
else MsgBox ("Aucune Mise à jour")
end if

Hello Gosselien,. je n'avais pas vu tes posts
et hello Jp
 
Vote positif 0 Vote négatif
O

obyone

XLDnaute Occasionnel
Re : comparaisons colonnes

bonjour, donc la macro suivante fonctionne

Code: 
Sub Bouton2_Clic()

With Worksheets("Feuil1").Range("Tableau3")
Maj = False
    For i = 1 To .Rows.Count
        If .Item(i, 1) <> .Item(i, 3) Then
            Maj = True
            nb = Range("MAJ").Rows.Count + 1
           
            Range("MAJ").Item(Range("MAJ").Rows.Count, 2) = .Item(i, 1)
            Range("MAJ").Item(Range("MAJ").Rows.Count, 4) = .Item(i, 3)
            Range("MAJ").Item(Range("MAJ").Rows.Count, 3) = .Item(i, 2)
            Range("MAJ").Item(Range("MAJ").Rows.Count, 5) = .Item(i, 4)
            

            Sheets("MAJ").ListObjects("MAJ").Resize Range("A1:E" & nb + 1)
        
        End If
    Next i
    
    For i = 1 To .Rows.Count
         If .Item(i, 2) <> .Item(i, 4) Then
            Maj = True
            nb = Range("MAJ").Rows.Count + 1
           
            Range("MAJ").Item(Range("MAJ").Rows.Count, 2) = .Item(i, 1)
            Range("MAJ").Item(Range("MAJ").Rows.Count, 4) = .Item(i, 3)
            Range("MAJ").Item(Range("MAJ").Rows.Count, 3) = .Item(i, 2)
            Range("MAJ").Item(Range("MAJ").Rows.Count, 5) = .Item(i, 4)
            

            Sheets("MAJ").ListObjects("MAJ").Resize Range("A1:E" & nb + 1)
        
        End If
    Next i
   
    If Maj Then
    MsgBox ("Mise à jour à faire")
    Else: MsgBox ("Aucune Mise à jour")
    End If
End With
End Sub

le probleme est que si le nom et la date change il me le copie 2 fois. de plus il va aussi me le copier s'il est déjà dans le tableau "MAJ", j'aimerais donc vérifier s'il la ligne n'est pas déjà dans le tableau avant de le copier.

mais je ne sais pas vers quelle formule m'orienter?

cordialement.
Oby1
 

Pièces jointes

  • comparaison.xlsm
    24.2 KB · Affichages: 24
  • comparaison.xlsm
    24.2 KB · Affichages: 32
Vote positif 0 Vote négatif

Discussions similaires

A
  • Question
Microsoft 365 Code VBA Envoi contenu tableau Excel par Email
Réponses
1
Affichages
119
Phil69970
Phil69970
D
  • Question
XL 2010 Valoriser cellule par clic
Réponses
4
Affichages
227
fanch55
fanch55
C
  • Résolu(e)
XL 2010 Delete
Réponses
5
Affichages
235
job75
job75
B
  • Question
XL 2013 Comment trier les nom des feuilles et fusionner leur tableaux dans une une autre feuille ?
Réponses
10
Affichages
213
Compte Supprimé 979
C
L
  • Résolu(e)
Microsoft 365 Suppression de cellules vide
Réponses
3
Affichages
184
Le Rouky
L
C
  • Résolu(e)
XL 2021 Remplir données devis en vba avec descriptions/quantités/PUs alignés
2
Réponses
18
Affichages
470
Phil69970
Phil69970
B
  • Question
Microsoft 365 [RESOLU] Supprimer Ligne rapidement et avec plusieurs conditions
Réponses
5
Affichages
115
BENAM69
B
D
  • Question
Autres if deux conditions
Réponses
4
Affichages
180
dadaze
D
Y
  • Question
Microsoft 365 Insérer des lignes selon variable
Réponses
1
Affichages
232
gbinforme
G
Z
  • Question
XL 2021 VBA Prélèvement d'une donnée si une valeur recherchée est identique
Réponses
3
Affichages
192
ZiM
Z

Membres actuellement en ligne

9 membres et 122 invités.

Partager cette page

Tutos vidéos

Power Query : Ajouter des requêtes (Excel et Power BI)
Créez votre première fonction LAMBDA dans Excel en 3 étapes!
LAMBDA, l’arme secrète de Microsoft pour Excel !
Office Insider - Découvrez les nouveautés Excel avant tout le monde

Statistiques des forums

Discussions
312 216
Messages
2 086 351
Membres
103 195
dernier inscrit
martel.jg