Discussion :

[Salameche]

Bonjour,

J'ai l' "erreur d'exécution 9 : l'indice n'appartient pas à la sélection" lorsque je tente d'exécuter cette ligne dans ma procédure principale :

Code :

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

Range("A:R").RemoveDuplicates Columns:=Array(1, 2), Header:=xlYes

Pourtant cela fonctionne parfaitement lorsque je remplace cette ligne par Call Macro1 après avoir créé une autre procédure appelé Macro1, en y plaçant uniquement et exactement la même ligne de code qui ne fonctionne pas :

Code :

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

1
2
3
4
5
Sub Macro1()
 
Range("A:R").RemoveDuplicates Columns:=Array(1, 2), Header:=xlYes
 
End Sub

Qqn saurait-il pourquoi j'ai ce problème svp et comment le régler ?

Merci d'avance de votre aide !

[Menhir]

Si dans un cas ça marche et que dans l'autre ça ne marche pas, il faut regarder quel est la différence entre les deux cas.

En l’occurrence ici, le contenu des lignes qui précèdent celle-ci dans ta procédure principale.

Si la syntaxe n'est pas en cause (puisque la ligne fonctionne quand elle est seule), c'est l'environnement qui est à investiguer. Par exemple, le fichier ou la feuille actifs au moment où elle se déclenche.

[Salameche]

Hello, voici le code de ma procédure principale

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
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
Sub Future_PrepareReport()
 
 
'Garder uniquement la feuille Collateral
 
For Each Ws In ActiveWorkbook.Worksheets
 
    If Ws.Name <> "Collateral" Then
    Ws.Delete
    End If
 
Next
 
Dim sh_collat As Worksheet
Set sh_collat = ActiveSheet
 
Sheets.Add After:=Sheets(Sheets.count)
Sheets(Sheets.count).Name = "Données"
 
Dim sh_data As Worksheet
Set sh_data = Sheets("Données")
 
sh_collat.Activate
 
 
 
Dim lastline As Integer
lastline = sh_collat.Range("A" & Rows.count).End(xlUp).Row
 
Dim lastCol As Integer
lastCol = sh_collat.Cells(1, Cells.Columns.count).End(xlToLeft).Column
 
 
'Vérifier que les colonnes importantes existent
 
Dim tab_Head(12) As String
tab_Head(1) = "Cpty Code"
tab_Head(2) = "ISIN"
tab_Head(3) = "Lowest Rating"
tab_Head(4) = "Asset Class"
tab_Head(5) = "Asset Category"
tab_Head(6) = "Best Index"
tab_Head(7) = "Cash/Non Cash Indicator"
tab_Head(8) = "Bond Maturity Date"
tab_Head(9) = "Issue Amount"
tab_Head(10) = "Current Market Cap Currency"
tab_Head(11) = "Country of Domicile"
tab_Head(12) = "Country of Issue"
 
Dim Maj_Rng As Range
 
For i = 1 To 12
Set Maj_Rng = Range(Cells(1, 1), Cells(1, lastCol)).Cells.Find(tab_Head(i), lookat:=xlWhole)
    If Maj_Rng Is Nothing Then
        MsgBox ("IMPOSSIBLE D'EXECUTER LA MACRO !" & vbCr _
        & "Attention ! La colonne " & tab_Head(i) & " n'existe plus ! Il se peut que le Report a été modifié.")
        Exit Sub
    End If
Set Maj_Rng = Nothing
Next
 
 
'Garder uniquement les colonnes pertinentes
 
For j = 1 To lastCol
 
    Select Case sh_collat.Cells(1, j).Value
 
    Case "Cpty Code":
    Columns(j).Copy Destination:=sh_data.Columns("A:A")
 
    Case "ISIN":
    Columns(j).Copy Destination:=sh_data.Columns("B:B")
 
    Case "Lowest Rating":
    Columns(j).Copy Destination:=sh_data.Columns("C:C")
 
    Case "Asset Class":
    Columns(j).Copy Destination:=sh_data.Columns("D:D")
 
    Case "Asset Category":
    Columns(j).Copy Destination:=sh_data.Columns("E:E")
 
    Case "Best Index":
    Columns(j).Copy Destination:=sh_data.Columns("H:H")
 
    Case "Cash/Non Cash Indicator":
    Columns(j).Copy Destination:=sh_data.Columns("I:I")
 
    Case "Bond Maturity Date":
    Columns(j).Copy Destination:=sh_data.Columns("M:M")
 
    Case "Issue Amount":
    Columns(j).Copy Destination:=sh_data.Columns("O:O")
 
    Case "Current Market Cap Currency":
    Columns(j).Copy Destination:=sh_data.Columns("P:P")
 
    Case "Country of Domicile":
    Columns(j).Copy Destination:=sh_data.Columns("Q:Q")
 
    Case "Country of Issue":
    Columns(j).Copy Destination:=sh_data.Columns("R:R")
 
    End Select
 
Next
 
sh_collat.Delete
Set sh_collat = Nothing
sh_data.Activate
 
 
'Supprimer les doublons
'Call Macro1
Sheets("Données").Range("A:R").RemoveDuplicates Columns:=Array(1, 2), Header:=xlYes
 
 
'Enregistrer le fichier
 
'Call SaveReport
 
 
 
End Sub

Merci !

[Menhir]

Il y a une différence par rapport à ta demande initiale : Sheets("Données") devant le Range.

Juste avant ta ligne incriminée, vérifie si le classeur actif possède bien un onglet "Données".
Par exemple en ajoutant les lignes :

Code :

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

1
2
Debug.Print ActiveWorkbook.Name
Debug.Print Sheets("Données").Name

La seconde ligne parait un peu absurde mais c'est juste pour vérifier si ça ne va pas planter.

Regarde ce qui s'inscrit dans la fenêtre d'exécution.

[Salameche]

Il y a une différence par rapport à ta demande initiale : Sheets("Données") devant le Range.

Dsl, je venais juste de le rajouter dans mon code pour voir si ça changerait quelque chose mais ce n'était pas présent dans mon code initial.
Avec ou sans Sheets("Données") devant j'ai toujours la même erreur.

Est-ce que tu aurais une idée d'où ça pourrait provenir du coup ?

Merci

Edit : le classeur possède bien un onglet "Données"

[Godzestla]

Bonjour,
ça ne serait pas plutôt le range qui est mauvais :

Code :

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

Sheets("Données").Range("A:R").RemoveDuplicates Columns:=Array(1, 2), Header:=xlYes

Il faut écrire par exemple

Code :

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

Sheets("Données").Range("A1:R"& lastcol).RemoveDuplicates Columns:=Array(1, 2), Header:=xlYes

avec lastcol initialize au prélabale

J'ai testé vite fait. ça fait le job