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.
Merci d'avance pour votre aide.
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.
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.