Comparer deux tableaux en VBA
Résolu/Fermé
Cagnas
Cagnas
- Messages postés
- 2
- Date d'inscription
- mercredi 3 décembre 2014
- Statut
- Membre
- Dernière intervention
- 4 décembre 2014
Cagnas
- Messages postés
- 2
- Date d'inscription
- mercredi 3 décembre 2014
- Statut
- Membre
- Dernière intervention
- 4 décembre 2014
A voir également:
- Comparer deux tableaux en VBA
- Comparer deux tableaux en VBA ✓ - Forum - Excel
- Vba comparer deux tableaux ✓ - Forum - VB / VBA
- Comparer deux tableaux en c ✓ - Forum - C
- Excel comparer deux tableaux ✓ - Forum - Excel
- Comparer deux tableaux excel recherchev ✓ - Forum - Excel
2 réponses
redaiwa
Modifié par jordane45 le 4/12/2014 à 03:42
- Messages postés
- 346
- Date d'inscription
- mardi 7 octobre 2008
- Statut
- Membre
- Dernière intervention
- 2 juin 2015
Modifié par jordane45 le 4/12/2014 à 03:42
Salam Cagnas.
Essaye cette macro, elle devrait faire l'affaire :
Bonne journée :-)
"Repousse le mal par le bien; et voilà que celui avec qui tu avais une animosité devient tel un ami chaleureux" (Coran)
"Celui qui ne sait pas partager est infirme de ses émotions". (Marc Levy)
Essaye cette macro, elle devrait faire l'affaire :
Private Sub BoutonImporter_Click() Dim LigneF1, LigneF2, FinLigneF1, FinLigneF2 As Integer Dim Trouve As Boolean LigneF1 = 2 While Sheets("Feuil1").Cells(LigneF1, 2) <> "" LigneF2 = 2 FinLigne = Sheets("Feuil2").Range("A1").End(xlDown).Row Trouve = False While LigneF2 <= FinLigne And Trouve = False If Sheets("Feuil1").Cells(LigneF1, 3) = Sheets("Feuil2").Cells(LigneF2, 2) Then Trouve = True LigneF2 = FinLigne + 1 Else LigneF2 = LigneF2 + 1 End If Wend If Not Trouve Then Sheets("Feuil2").Cells(LigneF2, 1) = Sheets("Feuil1").Cells(LigneF1, 2) Sheets("Feuil2").Cells(LigneF2, 2) = Sheets("Feuil1").Cells(LigneF1, 3) Sheets("Feuil2").Cells(LigneF2, 3) = Sheets("Feuil1").Cells(LigneF1, 4) End If LigneF1 = LigneF1 + 1 Wend End Sub
Bonne journée :-)
"Repousse le mal par le bien; et voilà que celui avec qui tu avais une animosité devient tel un ami chaleureux" (Coran)
"Celui qui ne sait pas partager est infirme de ses émotions". (Marc Levy)
Cagnas
4 déc. 2014 à 02:26
- Messages postés
- 2
- Date d'inscription
- mercredi 3 décembre 2014
- Statut
- Membre
- Dernière intervention
- 4 décembre 2014
4 déc. 2014 à 02:26
C'est parfait merci beaucoup !