Insérer lignes parallèles avec formules
Résolu/Fermé
VIKI1102
Messages postés
25
Date d'inscription
jeudi 2 avril 2020
Statut
Membre
Dernière intervention
16 mars 2022
-
20 nov. 2020 à 10:56
VIKI1102 Messages postés 25 Date d'inscription jeudi 2 avril 2020 Statut Membre Dernière intervention 16 mars 2022 - 8 déc. 2020 à 15:16
VIKI1102 Messages postés 25 Date d'inscription jeudi 2 avril 2020 Statut Membre Dernière intervention 16 mars 2022 - 8 déc. 2020 à 15:16
A voir également:
- Insérer lignes parallèles avec formules
- Insérer signature word - Guide
- Insérer liste déroulante excel - Guide
- Formules excel de base - Guide
- Insérer une vidéo dans powerpoint - Guide
- Formules - Télécharger - Études & Formations
3 réponses
cs_Le Pivert
Messages postés
7903
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
11 mars 2024
728
20 nov. 2020 à 16:03
20 nov. 2020 à 16:03
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à
VIKI1102
Messages postés
25
Date d'inscription
jeudi 2 avril 2020
Statut
Membre
Dernière intervention
16 mars 2022
25 nov. 2020 à 10:21
25 nov. 2020 à 10:21
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
cs_Le Pivert
Messages postés
7903
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
11 mars 2024
728
25 nov. 2020 à 10:25
25 nov. 2020 à 10:25
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à
VIKI1102
Messages postés
25
Date d'inscription
jeudi 2 avril 2020
Statut
Membre
Dernière intervention
16 mars 2022
27 nov. 2020 à 11:18
27 nov. 2020 à 11:18
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
cs_Le Pivert
Messages postés
7903
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
11 mars 2024
728
27 nov. 2020 à 11:53
27 nov. 2020 à 11:53
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
VIKI1102
Messages postés
25
Date d'inscription
jeudi 2 avril 2020
Statut
Membre
Dernière intervention
16 mars 2022
>
cs_Le Pivert
Messages postés
7903
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
11 mars 2024
8 déc. 2020 à 15:16
8 déc. 2020 à 15:16
Merci à vous!