copier toutes les 50 lignes

[br44]

Bonjour le forum

Dans la procèdure qui suit ,je voudrais savoir s'il est possibles que la hauteur des lignes soient conservées à chaque execution ?

Ma procèdure :

With Sheets("Récap1")
For I = 1 To .Range("A1:G29").Columns.Count
.Columns(I).ColumnWidth = Sheets("Détail").Columns(I).ColumnWidth
Next
y = 1
For I = 2 To .Range("A1:G29").Rows.Count
.Rows(I).RowHeight = Sheets("Détail").Rows(y).RowHeight
Next
End With

vous remerciant par avence je dis donc à plus sur ce fil
br44

 

[lacorse33]

Re : copier toutes les 50 lignes

Bonjour br44 et le forum,

Voici une solution :

With Sheets("Récap1")
For I = 1 To .Range("A1:G29").Columns.Count
.Columns(I).ColumnWidth = Sheets("Détail").Columns(I).ColumnWidth
Next
'y = 1
For I = 2 To .Range("A1:G29").Rows.Count
.Rows(I).RowHeight = Sheets("Détail").Rows(I).RowHeight
Next
End With


La variable y ne sert à rien.
De plus, elle n'était pas incrémentée pour passer à la ligne suivante.


@+
Béa

 

[br44]

Re : copier toutes les 50 lignes

Re: Bonjour Lacorse33,le forum

je te remercie pour la rèponse je la teste et te tient au courant à beintôt
BR44

 

[br44]

Re : copier toutes les 50 lignes

re:Rebonjour à tous

Bon je viens de tester t'as procèdures et j'ai un petit soussi de rèsultat.

La copie ne s'affiche plus et le copie suivantes se décal d'une 15 de lignes alors quelle fonctionne bien avec la mienne.

A la fin de ton message tu dis que la variable "y" n'est pas incrèmentée es-ce possible de le faire et si oui comment ?

Je mets la procèdure du dèbut cela t'aideras peut-êtres .

If Range("G3").Value = "C02" Then
Sheets("Détail").Range("A1:G29").Copy Destination:=Sheets("Récap1") _
.Range("A65536").End(xlUp)
Sheets("Facture").Range("1:50").Copy Destination:=Sheets("Récap1") _
.Range("A65536").End(xlUp).Offset(1, 0)
End If
If Range("G3").Value = "C05" Then
Sheets("Détail").Range("A1:G29").Copy Destination:=Sheets("Récap1") _
.Range("A65536").End(xlUp)(15)
Sheets("Facture").Range("1:50").Copy Destination:=Sheets("Récap1") _
.Range("A65536").End(xlUp).Offset(1, 0)
End If
With Sheets("Récap1")
For I = 1 To .Range("A1:G29").Columns.Count
.Columns(I).ColumnWidth = Sheets("Détail").Columns(I).ColumnWidth
y = 1
Next
For I = 2 To .Range("A1:G29").Rows.Count
.Rows(I).RowHeight = Sheets("Détail").Rows(y).RowHeight
Next
End With

En te remerciant par avances du coups de main je te dis à plus.
Br44

 

[lacorse33]

Re : copier toutes les 50 lignes

Re bonjour,

Pourrais-tu me transmettre une partie de ton fichier ?

Merci
@+
Béa

 

[br44]

Re : copier toutes les 50 lignes

re:Bonsoir Lacorse33 ,le forum

En rèponse à ton dernier message tu trouveras ci-joint mon fichier complet avec le classeur de liaison.

Pour infos : la feuille("Détail") se remplie par un userfrom qui se dèclanche par la touche"F5" à partir de Visual Basic situé dans le classeur "F.XLS".

la partie consernée est situé au niveau de "CommandButton2_click 'Bouton enregistrer".

voilà ,si tu as des questions n'hèsite pas,à bientôt et merci d'avence.
BR44
Mon fichier :