Discussion :

[esse2016]

Bonsoir à toi lecteur,

J'ai un formulaire qui ajoute à chaque validation d'un bouton, de l'information en ligne 9 de la feuille1 et pousse les précédentes vers le bas.

Je souhaite à partir de ma feuille1 copier automatiquement la ligne 9 entière vers la feuille2(por archivage).
La ligne de la feuille 2 doit s'ajouter à la précédente elle aussi en ligne9 et pousse d'une ligne vers le bas ses aînées

Comment s'y prend-on svp ?

Merci pour votre aide

[patricktoulon]

bonjour
copie la ligne 9 du sheets(1) dans la première ligne dispos après la dernière utilisée dans le sheet(2)

Code :

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

1
2
3
Sub copieligne9()
Sheets(1).Rows(9).Copy Destination:=Sheets(2).Cells(Rows.Count, 1).End(xlUp).Offset(1, 0)
End Sub

re

je n'avais pas bien lu ton ennoncé
en fait tu veut mettre la copie au dessus de la deniere ligne utilisée dans le sheets (2)
si c'est ca alors

Code :

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

1
2
3
4
5
6
Sub copieligne9()
With Sheets(2)
Rows(Rows.Count).End(xlUp).Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
Sheets(1).Rows(9).Copy Destination:=.Cells(Rows.Count, 1).End(xlUp).Offset(-1, 0).EntireRow
End With
End Sub

[esse2016]

Merci pour ton intervention PatrickToulon, c'est ta 2ème solution attendue, mais une erreur est provoquée
Sur la ligne de code

Code :

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

Sheets(1).rows(9).....

Erreur d'exécution 1004
Erreur définie par l'application ou par l'objet

[joe.levrai]

Bonjour,

à la lecture de ta description, il semblerait qu'en fait les deux feuilles soient identiques, puisqu'à chaque action dans la feuille 1 il faut la répercuter dans la feuille 2, avec un notion de "feuille d'archive" ?

Si c'est bien le cas ... autant réaliser l'opération sur la feuille 1, et ensuite tu fais un copier-coller de la feuille complète (ou de sa plage utile) dans la feuille 2 ?

[esse2016]

'C'est ça à la subtilité prés de devoir descendre les lignes aînées vers le bas de la feuille2.

je souhaite unqiuement copier la ignee 9 vers la feuille 2

[joe.levrai]

je ne comprend pas en quoi les deux feuilles ne sont pas identiques

Je souhaite à partir de ma feuille1 copier automatiquement la ligne 9 entière vers la feuille2(por archivage).
La ligne de la feuille 2 doit s'ajouter à la précédente elle aussi en ligne9 et pousse d'une ligne vers le bas ses aînées

A chaque ajout, tu écris en ligne 9 de la feuille 1 en insérant les données (ce qui "pousse" les autres lignes en dessous)

Et ensuite tu fais pareil sur la feuille 2


d'où le fait que je ne comprend pas ta dernière remarque qui laisse à penser qu'elles sont "presque" identiques

[esse2016]

La feuille1 n'aura que 1050 lignes.

Quant à la feuille 2, elle accumule les données et n'a pas de limite (sauf par les 10000000 lignes de excel)

À chaque ajout en ligne 9 de la feuille1, la feuille2 se la récupère elle aussi.

Je ne sais pas si cela est plus clair ?!

[unparia]

Bonjour
La réponse qui t'a été donnée plus haut (par patricktoulon) est à corriger en partie ainsi :
Bonjour,
La destination doit être l'adresse d'UNE cellule.
Je te suggère :

Code :

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

1
2
3
4
5
6
7
.....
.... '(ce qu'il y a avant)
derl = .Range("A" & Rows.Count).End(xlUp).Row - 1
If derl = 0 Then derl = 1
Sheets(1).Rows(9).Copy Destination:=.Range("A" & derl)
.... ' (et ce qui suit)
.....

[esse2016]

ça marche partiellement
il manque la partie ou dans la feuille 2

les lignes précédentes doivent descendent d'une ligne
donc un truc dans le genre
sheets(2)
shift = xldwn

[esse2016]

j'ai tenté ceci

Code :

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

1
2
3
4
With Sheets(2)
Sheets(2).Rows(9).Insert Shift:=xlDown
Sheets(1).Rows(9).Copy Destination:=Sheets(2).Rows(9)
End With

ce truc me convient mieux