il me copie pas les bonnes colonnes
voila mon code:
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
|
Sub macropatrice()
Dim FL1 As Worksheet
Dim FL2 As Worksheet
Dim Plage1 As Range
Dim Plage2 As Range
Dim c
Dim i As Integer
i = 1
'Ouvrir le planning: j'ai pas l'adresse non plus'
'Ouvril le fichier csv: je peux pas mettre l'adresse je l'ai pas
'Gèle l'écran pour accélérer le traitement
Application.ScreenUpdating = False
Set FL1 = Workbooks("1Planning_de_synthese_des_versions_v6.xls").Worksheets("Détails")
Set FL2 = Workbooks("yTTxpPR00_02.csv").Worksheets("yTTxpPR00_02")
Set Plage1 = FL1.Range(Cells(9, 4), Cells(FL1.Cells(65535, 4).End(xlUp).Row, 9))
Derniereligne = FL2.Cells(65535, 5).End(xlUp).Row
Adresse = Range(Cells(2, 5), Cells(Derniereligne, 5)).Address
Set Plage2 = FL2.Range(Adresse)
'parcours les cellules de la colonne 4 feuille Planning
For Each Cell In Plage1
'recherche de l'équivalence dans feuille yTTxpPR00_02
With Plage2
Set c = .Find(Cell.Value, LookIn:=xlValues)
'Donnée trouvée, on passe, donnée non trouvée on copie les cellules correspondante des colonnes G,H,I de yTTxpPR00_02.csv à Planning
'je sais pas dire'
If Not c Is Nothing Then
ActiveCell.Offset(n, 3) = ActiveCell.Offset(n, 3)
Else
End If
Set c = Nothing
End With
Next
Application.ScreenUpdating = False
Set FL1 = Nothing
Set FL2 = Nothing
End Sub |
Mais il me copie pas les bonnes colonnes... :( je ne veux que les colonnes D,F,G et I des 2 fichiers...
snif
