Discussion :

[m.peres.97]

Bonjour à tous,

J'ai fais une maccro me permettant de traiter plusieurs colonnes d'une base de donnée :

Elle se lance à la modification d'une plage de donnée

1) Copie de la colonne entiere dans une autre feuille
2) Supression des doublons
3) Tri par ordre alphabétique

Cependant j'ai un message d'erreur qui s'affiche desfois (celui que j'ai mis en titre)

Il s'affiche tout le temps lorsque la maccro s'execute suite à la modification de la plage de donnée spécifié

Et lorsque que je la lance manuellement le message s'affiche de temps en temps mais la plupars du temps la maccro fonctionne

Pourriez vous m'aider ?

Merci par avance

Cordialement

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
50
51
52
53
54
55
56
57
58
59
60
61
62
Sub liste()
 
Dim L As Long
Dim K As Long
 
If MsgBox("", vbYesNo) = vbYes Then
 
'############################################    Pilote   #############################################'
L = Sheets("DATA MSP").Range("C" & Rows.Count).End(xlUp).Row
 
Sheets("DATA MSP").Range("C2:C" & L).Copy Destination:=Sheets("Listes").Range("B2:B" & L)
 
'############################################    Métiers   #############################################'
 
L = Sheets("DATA MSP").Range("K" & Rows.Count).End(xlUp).Row
 
Sheets("DATA MSP").Range("K2:K" & L).Copy Destination:=Sheets("Listes").Range("C2:C" & L)
 
'############################################    Part   #############################################'
 
L = Sheets("DATA MSP").Range("L" & Rows.Count).End(xlUp).Row
 
Sheets("DATA MSP").Range("L2:L" & L).Copy Destination:=Sheets("Listes").Range("D2:D" & L)
 
'############################################    Référence   #############################################'
 
L = Sheets("DATA MSP").Range("A" & Rows.Count).End(xlUp).Row
 
Sheets("DATA MSP").Range("A2:A" & L).Copy Destination:=Sheets("Listes").Range("E2:E" & L)
 
'############################################    Taches   #############################################'
 
L = Sheets("DATA MSP").Range("B" & Rows.Count).End(xlUp).Row
 
Sheets("DATA MSP").Range("B2:B" & L).Copy Destination:=Sheets("Listes").Range("G2:G" & L)
 
'#########################################################################################################'
 
K = Sheets("DATA MSP").Range("B" & Rows.Count).End(xlUp).Row
Sheets("Listes").Range("B2:B" & K).RemoveDuplicates Columns:=1, Header:=xlNo
MsgBox K
Sheets("Listes").Range("B2:B" & K).Sort Key1:=Range("B" & K), Order1:=xlAscending
 
K = Sheets("DATA MSP").Range("C" & Rows.Count).End(xlUp).Row
Sheets("Listes").Range("C2:C" & K).RemoveDuplicates Columns:=1, Header:=xlNo
Sheets("Listes").Range("C2:C" & K).Sort Key1:=Range("C" & K), Order1:=xlAscending
 
K = Sheets("DATA MSP").Range("D" & Rows.Count).End(xlUp).Row
Sheets("Listes").Range("D2:D" & K).RemoveDuplicates Columns:=1, Header:=xlNo
Sheets("Listes").Range("D2:D" & K).Sort Key1:=Range("D" & K), Order1:=xlAscending
 
K = Sheets("DATA MSP").Range("E" & Rows.Count).End(xlUp).Row
Sheets("Listes").Range("E2:E" & K).RemoveDuplicates Columns:=1, Header:=xlNo
Sheets("Listes").Range("E2:E" & K).Sort Key1:=Range("E" & K), Order1:=xlAscending
 
K = Sheets("DATA MSP").Range("G" & Rows.Count).End(xlUp).Row
Sheets("Listes").Range("G2:G" & K).RemoveDuplicates Columns:=1, Header:=xlNo
Sheets("Listes").Range("G2:G" & K).Sort Key1:=Range("G" & K), Order1:=xlAscending
 
End If
 
End Sub

[a_diard]

Je pense qu'il faut que tu travaille en pas a pas F8

pour voir les données au moment ou tu trie

tu trouvera pourquoi ta référence de tri n'est pas valide

dans les tris je modifierais comme ceci

Sheets("Listes").Range("B2:B" & K).Sort Key1:=Sheets("Listes").Range("B" & K), Order1:=xlAscending

[m.peres.97]

D'accord

Mais ce que je ne comprends pas c'est pourquoi la maccro ne plante pas quand je la lance manuellement

[a_diard]

dans les tris je modifierais comme ceci

Sheets("Listes").Range("B2:B" & K).Sort Key1:=Sheets("Listes").Range("B" & K), Order1:=xlAscending

[m.peres.97]

J'avais oublié de le mettre, pourtant je l'avais mis dans une ancienne version x)

Du coup merci beaucoup ça marche très bien !