Importation de données avec conditions

**nono le golfeur** · 21/08/2007, 18h28

Bonjour,

Pour simplifier une procédures assez lourde j'ai créé une macro qui bloque à un mmt je ne sais pas pkoi....

Je tiens d'abord à dire que je suis un fan de l'aide VBA ms en ce moment je suis au luxembourg et mon pc a été réinstallé en Italien (me demander pas pkoi...) dc je capte ke dalle (et on ne se moque pas merci !!!)

Donc pour faire simple : pour chaque ligne, si ds la collone E il y a : "action " ou "Obligation " alors je prend les collones H, G et N (dans ce fichier et pour une ligne J) que je copie dans un autre fichier en A, B et C.

Voici mon 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
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
48
49
Sub copy_tech()
 
'J'ouvre le fichier qui m'interesse
Workbooks.Open Filename:="T:\Arnaud Test VBA\Test World Invest\AINV REPORTS\0071006.CSV", local:=True
 
Dim cond1 As String
Dim cond2 As String
 
cond1 = "ACTION    "
cond2 = "OBLIGATION    "
 
Windows("0071006.CSV").Activate
 
' Je demarre la recherche de ma condition
For J = 1 To 400
d = J + 14
 
If Sheets("0071006").Cells(5, J).Value = cond1 Or Sheets("0071006").Cells(5, J).Value = cond2 Then
 
'Ici ca fonctionne pour les 6 premiers J après ca bug et ca me met erreur 9 : "indice non incluso nell'intervallo" = "index non inclus dans l'intervalle"
 
' Je prend la valeur en H8 du fichier "PRICE CHECK - WI.xls" et la copie dans Worksheets("TECH").Cells(d, 1) --> d ct pour eviter de chercher la dernier ligne 
 
    Cells(J, 8).Select
    Selection.Copy
    Windows("PRICE CHECK - WI.xls").Activate
    ActiveSheet.Paste Destination:=Worksheets("TECH").Cells(d, 1)
 
'pareil ici...
    Windows("0071006.CSV").Activate
    Cells(J, 7).Select
    Selection.Copy
    Windows("PRICE CHECK - WI.xls").Activate
    ActiveSheet.Paste Destination:=Worksheets("TECH").Cells(d, 2)
 
'pareil ici...    
    Windows("0071006.CSV").Activate
    Cells(J, 14).Select
    Selection.Copy
    Windows("PRICE CHECK - WI.xls").Activate
    ActiveSheet.Paste Destination:=Worksheets("TECH").Cells(d, 3)
 
   End If
 
 J = J + 1
 
Next J
 
End Sub

Bon ca marche pour deux lignes et après plus rien ...

Merci d'avance !

PS : si qq a des pb avec excel en italien je commence à maitriser

**dam2p** · 21/08/2007, 19h27

Bonjour,

j'ai fait tourner ton code et tenté de le déboguer. Pour simplifier, je n'ai utilisé qu'un seul fichier et j'ai remplacé les windows(NN).activate par des sheets. activate:

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
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
48
49
 
Sub copy_tech()
 
'J'ouvre le fichier qui m'interesse
' Workbooks.Open Filename:="T:\Arnaud Test VBA\Test World Invest\AINV REPORTS\0071006.CSV", local:=True
 
Dim cond1 As String
Dim cond2 As String
 
cond1 = "action"
cond2 = "Obligation"
 
Sheets("0071006").Activate
 
' Je demarre la recherche de ma condition
For J = 1 To 400
d = J + 14
 
If Sheets("0071006").Cells(J, 5).Value = cond1 Or Sheets("0071006").Cells(J, 5).Value = cond2 Then
 
'Ici ca fonctionne pour les 6 premiers J après ca bug et ca me met erreur 9 : "indice non incluso nell'intervallo" = "index non inclus dans l'intervalle"
 
' Je prend la valeur en H8 du fichier "PRICE CHECK - WI.xls" et la copie dans Worksheets("TECH").Cells(d, 1) --> d ct pour eviter de chercher la dernier ligne
 
    Sheets("0071006").Activate
    Cells(J, 8).Select
    Selection.Copy
    Sheets("TECH").Activate
    ActiveSheet.Paste Destination:=Worksheets("TECH").Cells(d, 1)
 
'pareil ici...
    Sheets("0071006").Activate
    Cells(J, 7).Select
    Selection.Copy
    Sheets("TECH").Activate
    ActiveSheet.Paste Destination:=Worksheets("TECH").Cells(d, 2)
 
'pareil ici...
    Sheets("0071006").Activate
    Cells(J, 14).Select
    Selection.Copy
    Sheets("TECH").Activate
    ActiveSheet.Paste Destination:=Worksheets("TECH").Cells(d, 3)
 
   End If
 
Next J
 
End Sub

=> mon analyse :
1. dans les paramètres de CELL, tu as confondu les lignes et les colonnes dans la condition => donc tu n'as dû boucler que sur les colonnes
2. dès lors que tu as for i = 1 to 400 ... next i, ce n'est pas la peine de faire i = i+1 car sinon tu vas de 2 en 2 ...

amélioration envisageable :
ainsi, ton code doit être interdit aux épileptiques ... essaye ç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
19
 
Sheets("TECH").Activate
 
If Sheets("0071006").Cells(J, 5).Value = cond1 Or Sheets("0071006").Cells(J, 5).Value = cond2 Then
 
'Ici ca fonctionne pour les 6 premiers J après ca bug et ca me met erreur 9 : "indice non incluso nell'intervallo" = "index non inclus dans l'intervalle"
 
' Je prend la valeur en H8 du fichier "PRICE CHECK - WI.xls" et la copie dans Worksheets("TECH").Cells(d, 1) --> d ct pour eviter de chercher la dernier ligne
    Worksheets("TECH").Cells(d, 1) = Sheets("0071006").Cells(J, 8)
 
'pareil ici...
    Worksheets("TECH").Cells(d, 2) = Sheets("0071006").Cells(J, 7)
 
'pareil ici...
    Worksheets("TECH").Cells(d, 3) = Sheets("0071006").Cells(J, 14)
 
   End If
 
Next J

**ouskel'n'or** · 21/08/2007, 19h29

0071006.CSV est à la fois un nom de fichier et 0071006 un nom de feuilles ?
Pour ton code, il très lourd et en outre présente un certain nombre d'erreurs. Déjà, tu peux remplacer

Windows("0071006.CSV").Activate
Cells(J, 7).Select
Selection.Copy
Windows("PRICE CHECK - WI.xls").Activate
ActiveSheet.Paste Destination:=Worksheets("TECH").Cells(d, 2)

Par

Code :

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

1
2
    Workbooks("0071006.CSV").Cells(J, 7).Copy _
      destination:=Workbooks("PRICE CHECK - WI.xls").Worksheets("TECH").Cells(d, 2)

ou encore, en instanciant tes feuilles

Code :

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

1
2
3
4
5
Dim FL1 as Worksheet
Dim FL2 as Worksheet
Set FL1 = Workbooks("0071006.CSV").Worksheets("Nom de la feuille")
Set FL2 = Workbooks("PRICE CHECK - WI.xls").Worksheets("TECH")
    FL1.Cells(J, 7).Copy destination:=FL2.Cells(d, 2)

Idem pour tout ton code.

Une autre remarque, en fin de boucle, tu actives Windows("PRICE CHECK - WI.xls").
or en début de boucle, quand tu mets
" Cells(J, 8).Select"
dans quel fichier es-tu censé te trouver ? Si ce n'est pas dans "PRICE CHECK - WI.xls" alors tu auras une erreur au deuxième tour de boucle.
Commence par corriger tout ça

**nono le golfeur** · 21/08/2007, 21h26

Oui le fichier c'est 0071006.csv et la feuille c'est 0071006 !
Ca ne peut, malheureusement, pas être changé, trop de chose dépendent de ça !

Ha bha merde j'étais loin du compte !!!

Bon pour être honnête cette s*****perie d'Excel en Italien m'a vraiment soulé...

Comme toujours merci pour ton aide ! Je vais essayer toutes ces modifs sur mon codes et on verra..

@++

Arnaud

**ouskel'n'or** · 21/08/2007, 22h44

Envoyé par nono le golfeur

Oui le fichier c'est 0071006.csv et la feuille c'est 0071006 !
Ca ne peut, malheureusement, pas être changé, trop de chose dépendent de ça !

Ok, pas d'importance, c'était pour être sûr

**dam2p** · 21/08/2007, 22h58

as tu également de prendre en compte la crrection que j'ai mise dans ma première réponse:
avec ces corrections, chez moi, ça tourne jusqu'à la ligne 400...

A+
Dam2P

**ouskel'n'or** · 22/08/2007, 00h03

Désolé, dam2p, je n'avais pas vu ta réponse. Elle est meilleure que la mienne. Tu devrais l'adopter, nonos le golfeur

Juste une chose : Si tu instancies tes feuilles ça simplifiera encore le code.
A toi de jouer, nono.

Importation de données avec conditions

Macros et VBA Excel

Vue hybride

Discussions similaires

Partager

Partager