Discussion :

[PHPdudimanche]

Bonjour,
J'ai deux feuilles dans un excel et je veux réaliser l'opération suivante.

si
j'ajoute une ligne
dans la première feuille
alors
j'ajoute
la même ligne
dans la seconde feuille
et je conserve la formule (sans les valeurs) de la ligne précédente de cette deuxième feuille

Donc, comment faire pour :
détecter l'insertion, refaire une insertion sur la seconde feuille avec copie des formules.

Merci de me donner des pistes si vous pouvez...

[ouskel'n'or]

Tu insers la ligne 5 dans feuil1 et copies la dernière ligne de feuil2 sur la ligne suivante

Code :

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

1
2
3
4
5
6
7
8
9
    NoLigne = 5
    Worksheets("Feuil1").Rows(NoLigne & ":" & NoLigne).Insert Shift:=xlDown
 
    Worksheets("Feuil2").Activate
    DernièreLigne = Range("A1").SpecialCells(xlCellTypeLastCell).Row
    Application.CutCopyMode = False
    Rows(DernièreLigne & ":" & DernièreLigne).Copy
    Range("A" & (DernièreLigne + 1)).Select
    ActiveSheet.Paste

A+

[PHPdudimanche]

Merci

Comment utiliser cela ?
Il faut créer une fonction et la mettre dans une cellule avec le paramètre du N° de ligne =InsertionLigne(N° de ligne) ?

Je vois 3 questions en suspend :
- comment rendre la fonction automatique
- comment ne pas avoir à définir de paramètre
- comment pouvoir insérer la ligne au même endroit dans les deux feuilles et non pas en dernière position dans la seconde feuille

Je continue les tests.
Tu as raison, en ramant, on avance quand-même, mais c'est lent.

[SfJ5Rpw8]

sinon sans programmation tu utilise les "groupes de feuilles" pour cela tu selectionne les feuilles à modifier ( avec souris en maintenant le bouton shift actionné...) puis tu effectue ta modification ... sans oublier en fin de modif de "dissocier les feuilles" par un clic du bouton droit de la souris sur onglets...

[PHPdudimanche]

Merci à tous, je me suis débrouillé avec vos précieuses indications.