Discussion :

[Theo67000]

Bonjour à tous,

Je cherche à faire une macro associée à un bouton pour ajouter une ligne dans deux tableaux différents et étendre les formules.

J'ai donc utilisé l'enregistreur de macro. je veux que cette insertion se fasse toujours à la fin d'une plage de cellule j'ai donc inséré une ligne (que je masquerai par la suite) pour insérer une ligne au dessus de cette dernière. j'ai nommé les cellules pour y faire appel dans la macro et ne pas subir les décalages de lignes dues aux insertions précédentes.

Le problème que j'ai est le suivant:
j'arrive à insérer la ligne toujours au même endroit, mais le problème c'est pour étendre les formules. Je veux que les formules s'étendent toujours de la ligne à partir de laquelle je fait l'insertion jusqu'à la ligne supérieure (celle que je viens d'insérer)
En gros dans ma destination d'extension il faut que j'arrive à dire "la case supérieure à la case de la ligne d'insertion" mais je ne sais pas comment faire ça ...

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 Range("ligneinserta1").Select
    Selection.EntireRow.Insert
    Range("ligneinserta1:ligneinserta2").Select
    Selection.AutoFill Destination:=Range("E11:G12"), Type:=xlFillDefault
    Range("ligneinserta1:ligneinserta2").Select
    Range("E11").Select
    Sheets("Feuil2").Select
    Range("ligneinserta10").Select
    Selection.EntireRow.Insert
    Range("ligneinserta10:ligneinserta20").Select
    Selection.AutoFill Destination:=Range("E8:G9"), Type:=xlFillDefault
    Range("ligneinserta10:ligneinserta20").Select
    Range("E8").Select
    Sheets("Feuil1").Select

J'ai mis en bleu la partie qu'il faut que j'arrive à modifier...

Si quelqu'un peut m'aider ça serait top !

Merci d'avance,

Théo

[a_diard]

Bonjour
Par exemple pour le début de ta macro ...(4 premières lignes)

Je crois que les select peuvent (voir doivent) être supprimés.

Code :

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

1
2
Range("ligneinserta1").EntireRow.Insert
    Range("ligneinserta1:ligneinserta2").AutoFill Destination:=Range("E" & Range("ligneinserta1").Row - 1 & ":G" & Range("ligneinserta1").Row), Type:=xlFillDefault

Bonne journée

[Theo67000]

Bonjour a_diard et merci pour ta réponse

L'idée de cette macro était d'ajouter une ligne sur deux feuille du tableur en simultané.

J'ai donc essayé d'adapté ton code (simplement dupliquer la manip avec d'autres références)

j'ai testé le code suivant :

Code :

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

1
2
3
4
Range("ligneinserta1").EntireRow.Insert
    Range("ligneinserta1:ligneinserta2").AutoFill Destination:=Range("E" & Range("ligneinserta1").Row - 1 & ":G" & Range("ligneinserta1").Row), Type:=xlFillDefault
    Range("ligneinserta10").EntireRow.Insert
    Range("ligneinserta10:ligneinserta20").AutoFill Destination:=Range("E" & Range("ligneinserta10").Row - 1 & ":G" & Range("ligneinserta10").Row), Type:=xlFillDefault

Mais je ne comprends pas pourquoi ça ne fonctionne pas alors que ça marche sur la première page

Peux-tu m'aider stp?

Merci !!

[a_diard]

Bonsoir :

Code :

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

1
2
3
4
Range("ligneinserta1").EntireRow.Insert
    Range("ligneinserta1:ligneinserta2").AutoFill Destination:=Sheets("Feuil1").Range("E" & Range("ligneinserta1").Row - 1 & ":G" & Range("ligneinserta1").Row), Type:=xlFillDefault
    Range("ligneinserta10").EntireRow.Insert
    Range("ligneinserta10:ligneinserta20").AutoFill Destination:=Sheets("Feuil2").Range("E" & Range("ligneinserta10").Row - 1 & ":G" & Range("ligneinserta10").Row), Type:=xlFillDefault

En alors en sélectionnant les feuilles.

[Theo67000]

Merci beaucoup !

ça marche super maintenant !

Bonne journée !