Insérer un ligne sur 2 onglets

Bonjour,

Dans un premier onglet, nous avons des données jour par jour (1 ligne = 1 jour).

Dans un deuxième onglet, nous traitons ces données (regroupement, etc...).

Il nous arrive d'avoir à insérer un ligne dans le premier onglet (alors, 1 jour = 2 lignes).

Le seul moyen pour l'heure est de copier-coller les formules de l'onglet 2 depuis la première ligne pour récupérer la ligne qui a été insérée dans l'onglet 1. (formule =onglet1!J10 etc...).

Y-a-t-il un moyen élégant, quand on insère une ligne dans l'onglet 1, de l'insérer aussi dans l'onglet 2 ?

Merci.

salut

voila un code simple qui va tu rajouté une ligne en feuil 2 en fonction de la case ou tu es en feuil1

c'est a dire tu te met en ligne 3 tu fait inserer une ligne tu ecrit ce que tu veux en restant sur le ligne tu lance la macro et il va t'inserrer une ligne au meme endroit sur ta feuil deux

tu a plus a completer la macro pour copier coller ta ligne

en fin si tu sais le faire , je connais pas ton niveau sinon demande et je te feri le copier coller de la ligne

Sub Macro1()

'
    ActiveCell.Offset(-1, 0).Range("A1").Select
    vv = ActiveCell.Row

    Sheets("feuil2").Select
    Range("a1").Select
    ActiveCell.Offset(rowOffset:=vv).Activate
        Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
End Sub

Merci, je progresse doucement...

Je voudrais que la macro m'insère aussi la ligne sur la feuille 1.

Problème : sur la feuille 2, elle insère une cellule et pas une ligne.

Merci encore.

désoler j'avais pas vu

voila

ca rajoute une ligne en feuil 1 et en feuil 2 a la meme ligne

Sub Macro1()

    '

       Selection.EntireRow.Insert , CopyOrigin:=xlFormatFromLeftOrAbove
       ActiveCell.Offset(-1, 0).Range("A1").Select
        vv = ActiveCell.Row

        Sheets("feuil2").Select
        Range("a1").Select
        ActiveCell.Offset(rowOffset:=vv).Activate
        ActiveCell.Rows.Select
    Selection.EntireRow.Insert , CopyOrigin:=xlFormatFromLeftOrAbove
    End Sub

Parfait, je vais essayer et voir cela cet après-midi.

Y-a-t-il un moyen pour passer du mode exécution pas à pas depuis visual basic au mode enregistrement de macro dans excel ? Ceci pour me permettre de compléter la macro.

Merci encore.

je ne croit pas,

mais fait un enregistrement et apres un copier coller c'est pas trop long a faire

a+

Bonjour,

OK, çà marche bien, mais je bute sur le problème suivant (mes capacités de rédaction dans visual basic sont très limitées) :

Dans feuil1, il me faudrait copier les formules de A à G sur la ligne que je viens d'insérer.

De même, dans feuil2, il me faudrait copier de A à AW sur la ligne qui vient d'être insérée.

Je saurais faire en référence absolue, mais je ne sais pas faire en référence relative.

Merci beaucoup !

voila

c'est fait

toujours ATTENTION!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

la pour le coups il faudra obligatoirement etre en colonne A quand tu va execupter la macro

a+

 Sub Macro1()

        '

           Selection.EntireRow.Insert , CopyOrigin:=xlFormatFromLeftOrAbove
           ActiveCell.Offset(-1, 0).Range("A1").Select
            vv = ActiveCell.Row

            Sheets("feuil2").Select
            Range("a1").Select
            ActiveCell.Offset(rowOffset:=vv).Activate
            ActiveCell.Rows.Select
        Selection.EntireRow.Insert , CopyOrigin:=xlFormatFromLeftOrAbove

        ActiveCell.Offset(-1, 0).Range("A1:AW1").Select
    Selection.AutoFill Destination:=ActiveCell.Range("A1:AW2"), Type:= _
        xlFillDefault
    ActiveCell.Range("A1:AW2").Select
    ActiveCell.Offset(-1, 0).Range("A1").Select

    Sheets("Feuil1").Select

     ActiveCell.Range("A1:G1").Select
    Selection.AutoFill Destination:=ActiveCell.Range("A1:G2"), Type:= _
        xlFillDefault
    ActiveCell.Range("A1:G2").Select

        End Sub

Excellentissime !!!

Il ne me reste plus qu'à étendre sur 3 autres feuilles.

Merci beaucoup.