Bonjour,
Je suis nouvelle sur le forum et débutante en VBA. Je travaille sur un projet qui me pose des soucis en ce moment et j'aurai besoin d'aide.
En fait, j'ai deux feuilles excel dans le même classeur. Les différentes actions que je veux mener sont les suivantes.
- Comparer chaque cellule de la colonneA de la feuille1 à celles de la feuille2
- Si la valeur d'une cellule de la colonneA de la feuille 1 correspond à l'une des cellules de la colonneA de la seconde feuille alors reprendre l'opération précédente mais cette fois avec les colonnes B des deux feuilles
- Si correspondance pour les colonnesB alors copier la ligne concernée (de C à AA) dans la feuille2 et la coller en la transposant dans la feuille1(à partir de la ligne où il y a correspondance)
- reprendre la procédure jusqu'à la fin de la feuille 1

J'ai éssayer d'écrire un code mais il ne marche pas. Je l'ai tourner dans tous les sens mais en vain, aidez moi svp.
Voici le code que j'ai écrit:
Code : Sélectionner tout - Visualiser dans une fenêtre à part
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
Sub Proj()
Dim i As Long, j As Long
Dim k As Long, l As Long
Dim pag As Range
Set F1 = ("Feuil1")
Set F2 = ("Feuil2")
With ActiveSheet
Sheets("Feuil1").Select
For i = 2 To F1.Cells(.Rows.Count, 1).End(xlUp).Row
Sheets("Feuil2").Select
For j = 2 To F2.Cells(.Rows.Count, 1).End(xlUp).Row
If F1.Cells(i, 1).Value = F2.Cells(j, 1).Value Then
        For k = i To F1.Cells(.Rows.Count, 2).End(xlUp).Row
        For l = 2 To F2.Cells(.Rows.Count, 2).End(xlUp).Row
            If F2.Cells(k, 2).Value = F1.Cells(l, 2).Value Then
            Set pag = Feuil2.Range("C2:H2" & Feuil2.Range("A65535").End(xlUp).Row)
            pag.Cells(k, 2).Rows.Copy
            F1.Cells(i, 4).PasteSpecial Paste:=xlPasteAll, Transpose:=True
            End If
        Next
        Next
End If
Next
Next
End Sub