Discussion :

[Imperium]

Bonjour tout le monde.

Tout d'abord, merci de m'accueillir sur ce forum, sur lequel j'espère trouver l'aide attendue.

Ma question est simple, la voici :

J'ai fait une macro sur Excel (je ne connais rien au VB, je l'ai fait directement en l'enregistrant). Rien de bien compliqué, je réalise plusieurs opérations (je copie une ligne que j'intègre dans mon tableau, puis je fais la somme des 2 lignes du dessus, que j'intègre dans la nouvelle ligne, puis j'efface les deux lignes qui ne me servent plus à rien).

Bref, le truc, c'est que j'aimerai que les opérations que réalisent ma macro s'appliquent sur la ligne que je selectionne, et non sur la ligne que j'ai sélectionné pour faire ma macro, vous voyez ?

Quand j'ai fabriqué ma macro, j'étais par exemple partie de la ligne 8. Du coup, a chaque fois que j'exécute ma macro, l'opération se fait uniquement à partir de la ligne 8 alors que j'aimerai qu'elle se fasse sur la ligne que j'ai sélectionné juste avant de réaliser ma macro, vous voyez ?

Que dois-je modifier ? Voici le texte de ma macro.

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
Touche de raccourci du clavier: Ctrl+p
'
Rows("7:7").Select
Selection.Copy
Rows("8:8").Select
Selection.Insert Shift:=xlDown
Range("F8").Select
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = "=SUM(R[-2]C:R[-1]C)"
Range("F8").Select
Selection.AutoFill Destination:=Range("F8:H8"), Type:=xlFillDefault
Range("F8:H8").Select
ActiveWindow.ScrollColumn = 2
ActiveWindow.ScrollColumn = 3
ActiveWindow.ScrollColumn = 4
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("L8").Select
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = "=SUM(R[-2]C:R[-1]C)"
Range("L8").Select
Selection.AutoFill Destination:=Range("L8:N8"), Type:=xlFillDefault
Range("L8:N8").Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("M8").Select
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = ""
Rows("6:7").Select
Range("D6").Activate
Selection.Delete Shift:=xlUp
ActiveWindow.ScrollColumn = 3
ActiveWindow.ScrollColumn = 2
ActiveWindow.ScrollColumn = 1
End Sub

Merci d'avance pour votre aide.

[Invité]

Bonjour,

Essayez :

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
Sub Essai()
lgn = ActiveCell.Row
Rows(lgn).Select
Selection.Copy
Rows(lgn + 1).Select
Selection.Insert Shift:=xlDown
Range("F" & lgn + 2).Select
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = "=SUM(R[-2]C:R[-1]C)"
Range("F" & lgn + 2).Select
Selection.AutoFill Destination:=Range("F" & lgn + 2 & ":H" & lgn + 2), Type:=xlFillDefault
Range("F" & lgn + 2 & ":H" & lgn + 2).Select
ActiveWindow.ScrollColumn = 2
ActiveWindow.ScrollColumn = 3
ActiveWindow.ScrollColumn = 4
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("L" & lgn + 2).Select
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = "=SUM(R[-2]C:R[-1]C)"
Range("L" & lgn + 2).Select
Selection.AutoFill Destination:=Range("L" & lgn + 2 & ":N" & lgn + 2), Type:=xlFillDefault
Range("L" & lgn + 2 & ":N" & lgn + 2).Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("M" & lgn + 2).Select
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = ""
Rows(lgn & ":" & lgn + 1).Select
Range("D" & lgn).Activate
Selection.Delete Shift:=xlUp
ActiveWindow.ScrollColumn = 3
ActiveWindow.ScrollColumn = 2
ActiveWindow.ScrollColumn = 1
End Sub

Je me suis contenté de remplacer les n° de lignes par une variable, sachant qu'il resterait d'autres simplifications à faire. Mais comme cela devrait fonctionner et compte tenu du fait que vous en êtes dans les débuts, je pense qu'il est préférable de rester simple et de ne pas bouleverser votre code.