Amélioration d'un fichier excel en vba

**solero07** · 26/02/2012, 17h59

Bonjour,
Je suis en train d'essayer de créer un fichier excel qui grace à des macro permet :
à certaines personnes de saisir des infos
à d'autres de mettre à jour ces infos dans la feuille principale.
Lorsque je modifie l'ordre des lignes j'arrive à remettre toutes les feuilles dans l'ordre (par rapport au fichier "ecran scheduler"), par contre si je rajoute ou je supprime des lignes cela ne se met pas à jour dans les autres feuilles.
Quelqu'un peut il m'aider pour que l'ajout/suppression de ligne dans la feuille "ecran scheduler" soit mis à jour lorsque j'exporte? (ouverture>>>admin et admin).
Merci par avance

Invité · 26/02/2012, 18h53

Bonjour

Il est plus souhaitable de mettre des explications et le code qui fait l'action qu'un fichier joint qui ne sera pas lu par tous.

Philippe

**solero07** · 26/02/2012, 21h23

Bonsoir,
Voici le code de l'export. Bonne soirée

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
Columns("C:C").Select
    Selection.Insert Shift:=xlToRight
    Columns("D:D").Select
    Selection.Insert Shift:=xlToRight
    Range("C5").Select
    ActiveCell.FormulaR1C1 = "=RC[-2]&RC[-1]"
    Range("C5").Select
    Selection.Copy
    Range(Selection, Selection.End(xlDown)).Select
    ActiveSheet.Paste
    Range("D5").Select
    Application.CutCopyMode = False
    ActiveCell.FormulaR1C1 = "1"
    Range("D6").Select
    ActiveCell.FormulaR1C1 = "=R[-1]C+1"
    Range("D6").Select
    Selection.Copy
    Range(Selection, Selection.End(xlDown)).Select
    ActiveSheet.Paste
    Sheets("Faisabilité ABB").Select
    Columns("C:C").Select
    Application.CutCopyMode = False
    Selection.Insert Shift:=xlToRight
    Range("C5").Select
    ActiveCell.FormulaR1C1 = _
        "=VLOOKUP(RC[-2]&RC[-1],'Ecran scheduler'!C:C[1],2,FALSE)"
    Selection.Copy
    Range(Selection, Selection.End(xlDown)).Select
    ActiveSheet.Paste
    Sheets("Faisabilité WERNER").Select
    Columns("C:C").Select
    Application.CutCopyMode = False
    Selection.Insert Shift:=xlToRight
    Range("C5").Select
    ActiveCell.FormulaR1C1 = _
        "=VLOOKUP(RC[-2]&RC[-1],'Ecran scheduler'!C:C[1],2,FALSE)"
    Selection.Copy
    Range(Selection, Selection.End(xlDown)).Select
    ActiveSheet.Paste
    Sheets("Faisabilité SA1").Select
    Columns("C:C").Select
    Application.CutCopyMode = False
    Selection.Insert Shift:=xlToRight
    Range("C5").Select
    ActiveCell.FormulaR1C1 = _
        "=VLOOKUP(RC[-2]&RC[-1],'Ecran scheduler'!C:C[1],2,FALSE)"
    Selection.Copy
    Range(Selection, Selection.End(xlDown)).Select
    ActiveSheet.Paste
 
' Tri des tableaux en fonction vlookup de l'écran scheduler
 
    Sheets("Faisabilité ABB").Select
    Range("A4:K4").Select
    Range(Selection, Selection.End(xlDown)).Select
    Range(Selection, Selection.End(xlDown)).Select
    Application.CutCopyMode = False
    Selection.Sort Key1:=Range("C5"), Order1:=xlAscending, Header:=xlYes, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
        DataOption1:=xlSortNormal
    Sheets("Faisabilité WERNER").Select
    Range("A4:K4").Select
    Range(Selection, Selection.End(xlDown)).Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.Sort Key1:=Range("C5"), Order1:=xlAscending, Header:=xlYes, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
        DataOption1:=xlSortNormal
    Sheets("Faisabilité SA1").Select
    Range("A4").Select
    Range(Selection, Selection.End(xlToRight)).Select
    Range(Selection, Selection.End(xlToRight)).Select
    Range(Selection, Selection.End(xlToRight)).Select
    Range(Selection, Selection.End(xlToRight)).Select
    Range(Selection, Selection.End(xlToLeft)).Select
    Range("A4:K4").Select
    Range(Selection, Selection.End(xlDown)).Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.Sort Key1:=Range("C5"), Order1:=xlAscending, Header:=xlYes, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
        DataOption1:=xlSortNormal
    Columns("C:C").Select
    Selection.Delete Shift:=xlToLeft
    Range("A4").Select
    Sheets("Faisabilité WERNER").Select
    Columns("C:C").Select
    Selection.Delete Shift:=xlToLeft
    Range("A4").Select
    Sheets("Faisabilité ABB").Select
    Columns("C:C").Select
    Selection.Delete Shift:=xlToLeft
    Range("A4").Select
    Sheets("Ecran scheduler").Select
    Columns("C:D").Select
    Selection.Delete Shift:=xlToLeft
    Range("A4").Select
 
    Cells.Select
    Selection.Copy
    Sheets("Faisabilité ML1").Select
    Cells.Select
    ActiveSheet.Paste
    Range("D1").Select
    Application.CutCopyMode = False
    Selection.Copy
    Range("A1:B2").Select
    ActiveSheet.Paste
    Sheets("Ecran scheduler").Select
End Sub

**Pierre Fauconnier** · 26/02/2012, 21h34

Salut.

Il faut éviter d'utiliser des Select à tout va. Le code écrit (produit par l'enregistreur?) de cette manière est impossible à gérer et à modifier.

La bonne technique pour arriver au résultat est de suivre les étapes suivantes :

exposer le problème de façon claire, précise mais concise, si possible de façon schématique ;
découper le problème en petits morceaux pour écrire des petites procédures qui permettront de résoudre le problème en s'attaquant à chaque caillou plutôt qu'à une montagne ;
regarder les codes qui sont proposés sur le forum, dans les tutos, pour voir comment se passer des SELECT ;
Expliquer clairement sur le forum ce qui pose problème.

Sans cela, impossible de t'aider.

Bon courage.

**casefayere** · 27/02/2012, 08h10

Bonjour,
En effet, c'est l'hiver il faut tailler, un exemple de raccourcissement pour le début car ensuite il faut comprendre :

Code :

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

1
2
3
4
5
6
7
Dim Dl As Long
Dl = Range("B" & Rows.Count).End(xlUp).Row 'pour dernière ligne si elle est en B, à toi de voir
Columns("C:D").Insert Shift:=xlToRight
    Range("C5:C" & Range("B" & Dl)).FormulaR1C1 = "=RC[-2]&RC[-1]"
    Range("D5") = 1
    Range("D6:D" & Dl).FormulaR1C1 = "=R[-1]C+1"
.....

à la place de :

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
Columns("C:C").Select
    Selection.Insert Shift:=xlToRight
    Columns("D:D").Select
    Selection.Insert Shift:=xlToRight
    Range("C5").Select
    ActiveCell.FormulaR1C1 = "=RC[-2]&RC[-1]"
    Range("C5").Select
    Selection.Copy
    Range(Selection, Selection.End(xlDown)).Select
    ActiveSheet.Paste
    Range("D5").Select
    Application.CutCopyMode = False
    ActiveCell.FormulaR1C1 = "1"
    Range("D6").Select
    ActiveCell.FormulaR1C1 = "=R[-1]C+1"
    Range("D6").Select
    Selection.Copy
    Range(Selection, Selection.End(xlDown)).Select
    ActiveSheet.Paste
......

Amélioration d'un fichier excel en vba

Macros et VBA Excel

Discussions similaires

Partager

Partager