Code VBA qui fonctionne mal

Version imprimable

Bonjour à Tous,

Je suis confronté à un probleme sur le code ci-dessous. En effet, le code fonctionne mais il s'avere que mes conditions ne sont pas totalement respectées.
Je résume mon code : Le code va chercher un fichier sur le site de la BCE ensuite il effectue 3 check sur sur la variable range(c&i) si une des 3 premieres conditions est respectées, la variable range(f&i) est checkée à son tour de meme que la variable range(m&i). J'ai l'impression que mes conditions ne sont pas respectées exceptées le premier check L1A, L1B et L1C. J espere avoir été clair, merci de votre aide. J espere ne pas voir ouvert un topic deka existant sorry si c est le cas...
Cdt,

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
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
Public Sub telecharger()
 
Dim strURL As String, i As Long, x As Long
 
strURL = "http://www.ecb.europa.eu/paym/coll/assets/html/dla/EA/ea_all_150703.txt"
 
Workbooks.Open Filename:=strURL
 
Columns("A:W").Select
    Columns("A:W").EntireColumn.AutoFit
 
     Sheets.Add After:=Sheets(Sheets.Count)
    Sheets.Add After:=Sheets(Sheets.Count)
    Sheets.Add After:=Sheets(Sheets.Count)
    Sheets("Sheet1").Select
    Sheets("Sheet1").Name = "L1A"
    Sheets("Sheet2").Select
    Sheets("Sheet2").Name = "L1B"
    Sheets("Sheet3").Select
    Sheets("Sheet3").Name = "L1C"
 
Sheets("ea_all_150703").Select
 
 
For i = 2 To 40000
 
If Range("c" & i) = "L1C" Then
    If Range("F" & i) = "EUR" Or Range("F" & i) = "ATS" Or Range("F" & i) = "BEF" Or Range("F" & i) = "CYP" Or Range("F" & i) = "DEM" Or Range("F" & i) = "ESP" Or Range("F" & i) = "EEK" Or Range("F" & i) = "FIM" Or Range("F" & i) = "FRF" Or Range("F" & i) = "GRD" Or Range("F" & i) = "IEP" Or Range("F" & i) = "ITL" Or Range("F" & i) = "LUF" Or Range("F" & i) = "NLG" Or Range("F" & i) = "PTE" Or Range("F" & i) = "SIT" Or Range("F" & i) = "SKK" Or Range("F" & i) = "LVL" And Range("M" & i) = "IRAT" Or Range("M" & i) = "IRDE" Or Range("M" & i) = "IRFI" Or Range("M" & i) = "IRFR" Or Range("M" & i) = "IRNL" Or Range("M" & i) = "IRDK" Or Range("M" & i) = "IRSE" Then
        Sheets("ea_all_150703").Select
        Range("A" & i).Copy
        Sheets("L1C").Select
        ActiveSheet.Paste
        ActiveCell.Offset(1, 0).Select
        Sheets("ea_all_150703").Select
     End If
End If
If Range("c" & i) = "L1B" Then
     If Range("F" & i) = "EUR" Or Range("F" & i) = "ATS" Or Range("F" & i) = "BEF" Or Range("F" & i) = "CYP" Or Range("F" & i) = "DEM" Or Range("F" & i) = "EPS" Or Range("F" & i) = "EEK" Or Range("F" & i) = "FIM" Or Range("F" & i) = "FRF" Or Range("F" & i) = "GRD" Or Range("F" & i) = "IEP" Or Range("F" & i) = "ITL" Or Range("F" & i) = "LUF" Or Range("F" & i) = "NLG" Or Range("F" & i) = "PTE" Or Range("F" & i) = "SIT" Or Range("F" & i) = "SKK" Or Range("F" & i) = "LVL" And Range("M" & i) = "IRAT" Or Range("M" & i) = "IRDE" Or Range("M" & i) = "IRFI" Or Range("M" & i) = "IRFR" Or Range("M" & i) = "IRNL" Or Range("M" & i) = "IRDK" Or Range("M" & i) = "IRSE" Then
        Sheets("ea_all_150703").Select
        Range("A" & i).Copy
        Sheets("L1B").Select
        ActiveSheet.Paste
        ActiveCell.Offset(1, 0).Select
        Sheets("ea_all_150703").Select
    End If
End If
If Range("c" & i) = "L1A" Then
    If Range("F" & i) = "EUR" Or Range("F" & i) = "ATS" Or Range("F" & i) = "BEF" Or Range("F" & i) = "CYP" Or Range("F" & i) = "DEM" Or Range("F" & i) = "ESP" Or Range("F" & i) = "EEK" Or Range("F" & i) = "FIM" Or Range("F" & i) = "FRF" Or Range("F" & i) = "GRD" Or Range("F" & i) = "IEP" Or Range("F" & i) = "ITL" Or Range("F" & i) = "LUF" Or Range("F" & i) = "NLG" Or Range("F" & i) = "PTE" Or Range("F" & i) = "SIT" Or Range("F" & i) = "SKK" Or Range("F" & i) = "LVL" And Range("M" & i) = "IRAT" Or Range("M" & i) = "IRDE" Or Range("M" & i) = "IRFI" Or Range("M" & i) = "IRFR" Or Range("M" & i) = "IRNL" Or Range("M" & i) = "IRDK" Or Range("M" & i) = "IRSE" Then
        Sheets("ea_all_150703").Select
        Range("A" & i).Copy
        Sheets("L1A").Select
        ActiveSheet.Paste
        ActiveCell.Offset(1, 0).Select
        Sheets("ea_all_150703").Select
     End If
End If
 
If IsEmpty(ActiveCell.Value) Then
    Exit For
End If
 
Next i
End Sub

Bonjour,

Je n'ai pas regardé tout le code mais ce serait pas mieux en concaténant les groupes de lettres et en cherchant si ça existe dans la chaîne avec "InStr" ? :
Code:

1 2 3 4 5 6 7 8 9 10 Dim Texte As String Texte = "EUR_ATS_BEF_CYP_DEM_ESP_EEK_FIM_FRF_GRD_IEP_ITL_LUF_NLG_PTE_SIT_SKK_LVL_IRAT_IRDE_IRFI_IRFR_IRNL_IRDK_IRSE" If InStr(Texte, Range("F" & I).Value) <> 0 Then MsgBox "C'est dans la boite !" End If
Hervé.

Bonjour,

Les parenthèses :

If (condition 1 OU condition2 ...) AND (condition 3 OU condition4 ...)

Code:

1
2
3
4
5
6
7
8
9
 
If (Range("F" & i) = "EUR" Or Range("F" & i) = "ATS" Or Range("F" & i) = "BEF" Or Range("F" & i) = "CYP" _
Or Range("F" & i) = "DEM" Or Range("F" & i) = "ESP" Or Range("F" & i) = "EEK" Or Range("F" & i) = "FIM" _
Or Range("F" & i) = "FRF" Or Range("F" & i) = "GRD" Or Range("F" & i) = "IEP" Or Range("F" & i) = "ITL" _
Or Range("F" & i) = "LUF" Or Range("F" & i) = "NLG" Or Range("F" & i) = "PTE" Or Range("F" & i) = "SIT" _
Or Range("F" & i) = "SKK" Or Range("F" & i) = "LVL") _
And _
(Range("M" & i) = "IRAT" Or Range("M" & i) = "IRDE" Or Range("M" & i) = "IRFI" Or Range("M" & i) = "IRFR" _
Or Range("M" & i) = "IRNL" Or Range("M" & i) = "IRDK" Or Range("M" & i) = "IRSE") Then

A+

06/07/2015, 23h27
Eddy95500

Bonsoir à Vous,

Merci pour vos réponses précises, le code semble bien fonctionner. Je vais faire un Vlookup pour voir si ca n a pas planté quelque part.

Merci encore

Cdt,
07/07/2015, 11h34
Eddy95500
Bonjour à tous,

Je reviens vers vous car j'ai un autre soucis sur le code :

J'aimerais savoir s'il etait possible de rendre le lien URL de mon code dynamique? En effet, le nom du fichier change toutes les semaines, et je dois changer le nom toutes les semaines pour que la macro puisse marcher
Code:

1 2 3 4 5 6 7 Public Sub telecharger() Dim strURL As String, i As Long, x As Long strURL = "http://www.ecb.europa.eu/paym/coll/assets/html/dla/EA/ea_all_150703.txt" Workbooks.Open Filename:=strURL
Mon deuxieme problème est que dans mon code il y a une boucle for que je fais tourner arbitrairement jusqu'à N fois, sauf que j'aimerais essayer de faire tourner la boucle jusqu'à la derniere cellule non vide de la colonne A.
J'utilise x = Application.WorksheetFunction.CountA(sheet1.Range("$A:$A")) afin de connaitre le nombre de fois exacte que la boucle doit tourner, sauf que la macro ne marche pas il me donne un message d'erreur : Objet requis...

Merci,

Cdt,

Bonjour,

Boucle sur les lignes (dernière ligne non vide) :
Code:

1 2 3 4 5 6 7 8 9 10 11 Public Sub boucle_sur_lignes() Dim DerLig As Double, Count As Double DerLig = Worksheets("ea_all_150703").UsedRange.SpecialCells(xlCellTypeLastCell).Row For Count = 2 To DerLig 'CODE ICI Next Count End Sub
Si tu veux absolument prendre en compte uniquement la colonne A, alors utilise ça :
Code:

1 2 DerLig = Sheets("ea_all_150703").Cells(Rows.count, 1).End(xlUp).Row
Pour le nom dynamique, donne nous le nom pour la semaine dernière et cette semaine.

Bonne continuation.