Discussion :

[titeZ]

Bonjour,
Quelqu'un pourrait me dire ce qu'il ne va pas dans mon bout de 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
Dim lignefinc As Long
Dim lignefinm As Long
Dim k As Integer
Dim l As Integer
Dim m As Integer
lignefinC = Workbooks("carole.xls").Worksheets(2).Cells(65536, 1).End(xlUp).Row
 
lignefinm = Workbooks("mouve.xls").Worksheets(1).Cells(65536, 1).End(xlUp).Row
 
For k = 1 To lignefinc
For l = 1 To lignefinm
If Workbooks("carole.xls").Worksheets(2).Cells(k, 22).Value = Workbooks("mouve.xls").Worksheets(1).Cells(l, 8).Value Then
If Workbooks("mouve.xls").Worksheets(1).Cells(l, 4) > Workbooks("carole.xls").Worksheets(1).Cells(k, 8) Then
Workbooks("mouve.xls").Worksheets(1).Rows(l).Copy Destination:=Workbooks("mouve.xls").Worksheets(1).Cells(l, 1)
End If
End If
Next
Next

j'explique:
dans mon premier ( 2de feuille) fichier carole j'utilise les cellules de la colones 22 du texte et de la colones 8 des dates
dans mon second fichier ( 1e et unique feuille) fichier mouve j'utilise la colone 8 du texte et la colone 4 des dates,

Je souhaite que si la colone 22 du fichier 1 et la colonne 8 du fichier 2 soit égale, qu'ensuite la colone 8 du fichier 1 et la colone 4 du fichier 2 soit égale il me colle la ligne du fichier 2 dans la feuille 1 du fichier ?

le message qu'on m'indique c'est l'afiche n'appartient pas a la selection ...
Quelqu'un pourrait m'aider merci

[ouskel'n'or]

Dans cette ligne,

If Workbooks("mouve.xls").Worksheets(1).Cells(l, 4) > Workbooks("carole.xls").Worksheets(1).Cells(k, 8) Then

tu es sûr de

Workbooks("carole.xls").Worksheets(1).Cells(k, 8)

?
A+

[titeZ]

réponse non, en effet j'avais fait une erreur

[ouskel'n'or]

Tu as vu que tu colles au même endroit que tu copies ?

Workbooks("mouve.xls").Worksheets(1).Rows(l).Copy _
destination:=Workbooks("mouve.xls").Worksheets(1).Cells(l, 1)

[titeZ]

oui oui je sais j'ai modifié ça ...
j"mavais " trompé

[ouskel'n'or]

En adaptant le collage, tu pourrais aussi tester ça

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
Sub titez()
Dim FL1 As Worksheet ' mouve
Dim FL2 As Worksheet ' Carole
    Set FL1 = Workbooks("mouve.xls").Worksheets(1)
    Set FL2 = Workbooks("carole.xls").Worksheets(2)
 
    For Each Cell2 In FL2Range(Cells(1, 22), _
             Cells(FL2.Cells(65536, 1).End(xlUp).Row, 22))
        For Each Cell1 In FL1.Range(Cells(1, 8), _
                 Cells(FL1.Cells(65536, 1).End(xlUp).Row, 8))
            If Cell2.Value = Cell1.Value Then
                If Cell1.Offset(0, -4) > Cell2.Value Then
                    FL1.Rows(Cell1.Row).Copy destination:="???"  'Tu adaptes
                End If
            End If
        Next
    Next
End Sub

métépaforcé

[titeZ]

Code :

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

1
2
3
 
            If Cell2.Value = Cell1.Value Then
                If Cell1.Offset(0, -4) > Cell2.Offset(0, -14) Then

métépaforcé

plutôt non?

le truc c'est que je reste avec mon probleme de date...