Bonjour a tous,

J'ai deux classeurs qui ont la même structure, l'un a des donnees et l'autre est vide.
Je souhaite tranferer certaines lignes ( celles ou il y a ecrit "Ja" dans la colonne "S") du premier classeur vers la feuille Tabelle1 du deuxieme(Mappe1).

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
Sub JaTransfert()
 
Dim Tabelle1 As Worksheet
Dim C As Range
Dim ligne As Integer
 
Set Tabelle1 = Workbooks("Mappe1").Worksheets("Tabelle1")
ligne = 22
 
For Each C In Range("S22:S" & Cells(Rows.Count, 19).End(xlUp).Row)
    If Trim(UCase(C.Value)) = Ja Then
    C.EntireRow.Copy Destination:=Tabelle1.Cells(ligne, 1)
        ligne = ligne + 1
    End If
Next
 
End Sub
Pour le moment, le code se compile, mais rien ne se passe.