Insérer lignes parallèles avec formules
Résolu
VIKI1102
Messages postés
24
Date d'inscription
Statut
Membre
Dernière intervention
-
VIKI1102 Messages postés 24 Date d'inscription Statut Membre Dernière intervention -
VIKI1102 Messages postés 24 Date d'inscription Statut Membre Dernière intervention -
A voir également:
- Insérer lignes parallèles avec formules
- Insérer video powerpoint - Guide
- Insérer signature word - Guide
- Insérer liste déroulante excel - Guide
- Formules - Télécharger - Études & Formations
- Insérer sommaire word - Guide
3 réponses
Bonjour,
comme ceci:
Voilà
comme ceci:
Option Explicit Sub InsérerLigne() Dim Ligne As Long, i As Integer Ligne = ActiveCell.Row Application.ScreenUpdating = False Dim Ws As Worksheet For Each Ws In ThisWorkbook.Worksheets If Ws.Name <> "Archives" Then Rows(Ligne & ":" & Ligne).Copy Sheets(Ws.Name).Rows(Ligne & ":" & Ligne).Insert Shift:=xlDown End If Next Ws Worksheets("Feuil4").Select ' adapter le nom de la feuille For i = Ligne To 305 Worksheets("Feuil4").Rows(i & ":" & i).Copy Worksheets("Feuil4").Rows(i & ":" & i).Insert Shift:=xlDown Next i Application.ScreenUpdating = True End Sub
Voilà
Bonjour !
je vous remercie pour votre retour !
la macro insère bien les lignes mais ne tire pas les formules de la lignes du dessus, auriez vous une solution svp?
De plus, j'ai mal exprimé mon souhait, je m'explique: j'aurais besoin d'insérer une ligne en plus dans la feuille 4 mais proportionnelle de 305 à celle que je viens d'insérer car j'ai deux tableaux l'un au dessus de l'autre et je voulais insérer une ligne dans chaque tableau au même endroit. Par exemple 1ère insertion à ligne 5 --> deuxième insertion à la ligne 305+5
Merci par avance ! bonne journée
je vous remercie pour votre retour !
la macro insère bien les lignes mais ne tire pas les formules de la lignes du dessus, auriez vous une solution svp?
De plus, j'ai mal exprimé mon souhait, je m'explique: j'aurais besoin d'insérer une ligne en plus dans la feuille 4 mais proportionnelle de 305 à celle que je viens d'insérer car j'ai deux tableaux l'un au dessus de l'autre et je voulais insérer une ligne dans chaque tableau au même endroit. Par exemple 1ère insertion à ligne 5 --> deuxième insertion à la ligne 305+5
Merci par avance ! bonne journée
voir ceci pour copier les formules
https://docs.microsoft.com/fr-FR/office/vba/api/Excel.Range.Copy
Par exemple 1ère insertion à ligne 5 --> deuxième insertion à la ligne 305+5
il faut faire 2 fois la boucle, une qui démarre à la ligne 5 et l'autre à la ligne 305
Voilà
https://docs.microsoft.com/fr-FR/office/vba/api/Excel.Range.Copy
Par exemple 1ère insertion à ligne 5 --> deuxième insertion à la ligne 305+5
il faut faire 2 fois la boucle, une qui démarre à la ligne 5 et l'autre à la ligne 305
Voilà
Merci beaucoup
mais je souhaite garder "Ligne = ActiveCell.Row" dans ma feuille 4 pour insérer au même endroit que dans les autres feuilles ET en plus insérer dans cette même feuille une nouvelle ligne 305 lignes après celle -ci
je suis désolée je tente de me former un peu au VBA mais je suis débutante, j'espère que vous comprenez ce que j'essais de faire XD
mais je souhaite garder "Ligne = ActiveCell.Row" dans ma feuille 4 pour insérer au même endroit que dans les autres feuilles ET en plus insérer dans cette même feuille une nouvelle ligne 305 lignes après celle -ci
je suis désolée je tente de me former un peu au VBA mais je suis débutante, j'espère que vous comprenez ce que j'essais de faire XD
essayer ceci:
@+ Le Pivert
Option Explicit Sub InsérerLigne() Dim Ligne As Long, i As Integer Ligne = ActiveCell.Row Application.ScreenUpdating = False Dim Ws As Worksheet For Each Ws In ThisWorkbook.Worksheets If Ws.Name <> "Archives" Then Sheets(Ws.Name).Rows(Ligne & ":" & Ligne).Insert Shift:=xlDown Worksheets("Archives").Range("A4:I4").Copy _ Destination:=Worksheets(Ws.Name).Range("A4") 'adapter la plage à copier "A4:I4" End If Next Ws Worksheets("Archives").Range("A4:I4").Copy _ Destination:=Worksheets("Feuil4").Range("A310") 'adapter la plage à copier "A4:I4" Application.ScreenUpdating = True End Sub
@+ Le Pivert