Bonjour,
Quelqu'un pourrait me dire ce qu'il ne va pas dans mon bout de code?
j'explique:
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
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
![]()
Partager