Discussion :

[Potzo]

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.

[zyhack]

Bonjour
dans ton cas Ja est considéré comme une variable

remplace

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

    If Trim(UCase(C.Value)) = Ja Then

par

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

    If Trim(UCase(C.Value)) = "JA" Then

[Potzo]

Ca n'a malheureusement rien change.

[zyhack]

re

as-tu bien mis "JA" en majuscule ?

tu n'as que ce mot dans la cellule?

il faudrait que tu vérifis que quand la routine s'execute ce soit la bonne feuille qui ai le focus (celle ou tu effectus la recherche)

a part ces trois possibilité je ne vois pas ce qu'il peut y avoir.

[Potzo]

EDIT : Ca marche. Il fallait effectivement ecrire en majuscule

[Potzo]

En fait, il ne faut pas que je recopie toute la ligne, mais uniquement certaines colonnes, j'ai donc ecrit ceci :

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
Sub JaTransfert()
 
Dim Tabelle1 As Worksheet
Dim C As Range
Dim ligne As Integer
 
Set Tabelle1 = Workbooks("Mappe3").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.Cells(ligne, 2).Copy Destination:=Tabelle1.Cells(ligne, 1)
    C.Cells(ligne, 8).Copy Destination:=Tabelle1.Cells(ligne, 2)
    C.Cells(ligne, 10).Copy Destination:=Tabelle1.Cells(ligne, 3)
        ligne = ligne + 1
    End If
Next
 
End Sub

Et comme tout a l'heure, ca compile mais n'affiche rien.