Bonjour,

Mon code me permet de selectionner une cellule dans un tableau et de la comparer a une colonne dans un autre tableau et des qu'il la trouve il doit recopier la cellule de droite du 2eme tableau dans le 1er.

Le probleme c'est que le copy marche mais pas le coller.

Voila mon code:

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
Sub CreationTabGraf()
 
Dim i As Integer, j As Integer, nommag As Variant
Let i = 4
Let j = 3
Application.CutCopyMode = False
 
For i = 4 To shtGrafAnnee.Range("E" & Rows.Count).End(xlUp).Row Step 1
    Set nommag = shtGrafAnnee.Cells(i, 5)
    Do
        Let j = j + 1
        If j = 10 And shtGrafSem.Cells(j, 1) <> nommag Then
        Exit Do
        End If
    Loop Until shtGrafSem.Cells(j, 1) = nommag
    shtGrafSem.Cells(j, 2).Copy
    shtGrafAnnee.Cells(i, 8).Paste
    Let j = 3
Next i
Application.CutCopyMode = True
End Sub

Merci de votre aide.