VBA: comparaison valeurs cellules différentes colonnes/différentes feuilles + paste

  • Initiateur de la discussion Initiateur de la discussion SaraBilmem
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

SaraBilmem

XLDnaute Nouveau
Bonjour,

Je suis nouvelle sur le forum et novice en VBA, malgré mes recherches sur le net, je n'ai pas réussi à trouver réponse à ma question (en tout cas, pas su interpoler d'autres réponses ou d'autres problèmes similaires).

Voici mon problème:
- J'ai une Feuille1 contenant des données d'individu par ligne: "A1:E1" , "A2:E2" etc information su des individus (un individu par ligne) et ceci jusqu'à une nombre variable de ligne (ceci dépend des données que j'importe auparavant)
- J'ai une Feuille2 contenant également des données d'individus de la même manière que dans la Feuille1.

-> Je cherche à trouver les individus apparaissant dans le Feuille2 mais pas dans la Feuille1, puis coller "cet individu" dans la première ligne vide du Range de la Feuille 1.

Voici un "simili" code que j'ai tenté d'écrire qui évidemment ne fonctionne pas (pour l’instant je ne comparait que les valeurs de la colonne A, ne sachant pas comment faire pour A à E). Je joins également un fichier xls.

Je vous remercie d'avance pour votre aide!🙂

Code:
Sub Test()
   
  Dim j As Integer
  Dim i As Integer
  Dim EndR As Integer
  
  EndR = Range("A65536").End(xlUp).Row + 1
 
    For j = 3 To Range("A65536").End(xlUp).Row
        j = j + 1
            For i = 3 To Range("A65536").End(xlUp).Row
                i = i + 1
            
                    If ThisWorkbook.Sheets("Feuille2").Range("A" & j).Value <> ThisWorkbook.Sheets("Feuille2").Range("A" & i).Value Then
                        ThisWorkbook.Sheets("Feuille1").Range("A" & EndR & ":G" & EndR) =_
ThisWorkbook.Sheets("Feuille2").Range("A" & j & ":G" & j)
                    End If
            Next i
     Next j

End Sub
 

Pièces jointes

- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
3
Affichages
194
  • Question Question
Microsoft 365 Export données
Réponses
4
Affichages
649
Réponses
7
Affichages
164
Réponses
4
Affichages
461
Réponses
10
Affichages
799
Réponses
3
Affichages
582
Retour