Discussion :

[neosapri]

Bonjour à tous,

J'ai besoin de votre aide car je dois développer un outil nécessitant beaucoup de VBA, mais je suis ultra-débutant (ne maîtrisant que le langage MAtlab).

Ma première requête sera assez simple.

Je souhaite pouvoir introduire une ligne en utilisant la fonction "Insert" habituelle (sans passer par VBA donc), et que la nouvelle ligne créée contienne les formules déjà existantes dans le tableau.

Pour des raisons d'ordre pratique, je ne peux pas le réaliser en "manuel" (copier une ligne,puis utiliser "Insert copied cells").

Je me doute que l'utile ce serait une macro qui s'active automatiquement lors de l'insertion d'une ligne, mais c'est au-dessus de mes compétences.

Merci d'avance pour votre aide.

[neosapri]

Tentative personnelle :

Voici la macro que je viens d'enregistrer et qui effectue la copie des formules à partir de la ligne se trouvant au dessus de la ligne insérée (obligatoirement dans ce sens car la formule n'est plus correcte si je copie par le dessous).

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
ActiveCell.Offset(-1, 0).Range("A1").Select
    Selection.AutoFill Destination:=ActiveCell.Range("A1:A2"), Type:= _
        xlFillDefault
    ActiveCell.Range("A1:A2").Select
    ActiveCell.Offset(0, 3).Range("A1").Select
    Selection.AutoFill Destination:=ActiveCell.Range("A1:A2"), Type:= _
        xlFillDefault
    ActiveCell.Range("A1:A2").Select
    ActiveCell.Offset(0, 2).Range("A1").Select
    Selection.AutoFill Destination:=ActiveCell.Range("A1:A2"), Type:= _
        xlFillDefault
    ActiveCell.Range("A1:A2").Select
    ActiveCell.Offset(0, 2).Range("A1").Select
    Selection.AutoFill Destination:=ActiveCell.Range("A1:A2"), Type:= _
        xlFillDefault
    ActiveCell.Range("A1:A2").Select
    ActiveWindow.ScrollColumn = 2
    ActiveWindow.ScrollColumn = 3
    ActiveWindow.ScrollColumn = 4
    ActiveWindow.ScrollColumn = 5
    ActiveCell.Offset(0, 4).Range("A1:C1").Select
    Selection.AutoFill Destination:=ActiveCell.Range("A1:C2"), Type:= _
        xlFillDefault
    ActiveCell.Range("A1:C2").Select
    ActiveWindow.ScrollColumn = 6
    ActiveWindow.ScrollColumn = 7
    ActiveWindow.ScrollColumn = 8
    ActiveWindow.ScrollColumn = 9
    ActiveCell.Offset(0, 4).Range("A1:C1").Select
    Selection.AutoFill Destination:=ActiveCell.Range("A1:C2"), Type:= _
        xlFillDefault
    ActiveCell.Range("A1:C2").Select
    ActiveCell.Offset(0, 4).Range("A1:C1").Select
    Selection.AutoFill Destination:=ActiveCell.Range("A1:C2"), Type:= _
        xlFillDefault
    ActiveCell.Range("A1:C2").Select
    ActiveWindow.ScrollColumn = 10

Peut-être cela servira-t-il à une base de travail pour les bienfaiteurs qui me viendront en aide. Peut-être ne reste-t-il qu'à ajouter la commande pour l'exécution automatique de la macro lors d'une insertion de ligne?

Merci d'avance pour votre aide