recopie feuilles modif macro

G

GI_GI

XLDnaute Occasionnel

• 26 Novembre 2007

• #2

Re : recopie feuilles modif macro

Bonjour,
Remplace la ligne
Sheets(Nombre).Range("A4:f" & Sheets(Nombre).Range("a65536").End(xlUp).Row).Copy
par
Sheets(Nombre).Range("A4:EE" & Sheets(Nombre).Range("a65536").End(xlUp).Row).Copy
"EE" étant la dernière colonne de tes feuilles.
Salutations.

 

Vote positif 0 Vote négatif

Jiheme

XLDnaute Accro

• 26 Novembre 2007

• #3

Re : recopie feuilles modif macro

Bonjour Gi_Gi, Le Forum

Merci voila un point de régler et qui plus est j'ai compris...

Pas d'idée pour le reste ?
A+

 

Vote positif 0 Vote négatif

G

GI_GI

XLDnaute Occasionnel

• 26 Novembre 2007

• #4

Re : recopie feuilles modif macro

Re bonjour
Ajoute ce code avant la copie.

Dim ligne As String
ligne = Sheets("Portefeuille 0907").Range("A65535").End(xlUp).Row
Rows("4:" & ligne).Select
Selection.Clear
Salutations.

 

Vote positif 0 Vote négatif

Jiheme

XLDnaute Accro

• 26 Novembre 2007

• #5

Re : recopie feuilles modif macro

Re bonjour

Merci Gi gi, j'ai modifié le nom de la variable Ligne en lign (because double déclaration) et c'est OK.

Reste à savoir pourquoi la première ligne de la dernière feuille se copie une fois au début de la copie et une fois avec le reste de la dernier feuille ???

A+

 

Vote positif 0 Vote négatif

G

GI_GI

XLDnaute Occasionnel

• 26 Novembre 2007

• #6

Re : recopie feuilles modif macro

Re bonjour
Pas compris la question , en testant ton bout de code je ne vois aucun problème.
A+

 

Vote positif 0 Vote négatif

Jiheme

XLDnaute Accro

• 26 Novembre 2007

• #7

Re : recopie feuilles modif macro

Re bonjour

Je te joins le fichier mis à jour avec les modif que tu m'as indiquées, mais le problème était déjà là avant, les ligne 4 et 34 sont identiques alors que cette ligne n'existe que sur la dernière feuille "Non attr" et pas sur la feuille "AB" alors que la copie se fait dans l'ordre des feuilles...

Le reste je n'arrive pas encore à le faire mais je comprends la par contre je ne comprends rien de rien...

 

Pièces jointes

• Essai 1.zip

  40.8 KB · Affichages: 22
• Essai 1.zip

  40.8 KB · Affichages: 22
• Essai 1.zip

  40.8 KB · Affichages: 19

Vote positif 0 Vote négatif

G

GI_GI

XLDnaute Occasionnel

• 26 Novembre 2007

• #8

Re : recopie feuilles modif macro

Je t'ai envoyé un message privé.
A+

 

Vote positif 0 Vote négatif

bqtr

XLDnaute Accro

• 26 Novembre 2007

• #9

Re : recopie feuilles modif macro

Bonjour Jiheme, GI_GI

Pour tes lignes 4 et 34 le problème vient de cette ligne de code :

Code:

Sheets(Nombre).Rows(4).Copy Destination:=Sheets(1).Rows(4)

Là tu demandes la copie de la ligne 4 de chaque feuille sur la ligne 4 de la première feuille. Donc à chaque fois que la variable nombre change la ligne 4 de la feuille 1 change, comme la feuille "Non attr" est la dernière c'est la ligne 4 de cette feuille qui reste en ligne 4 de la feuille 1.
Heu... là ça fait beaucoup de ligne 4 😀

Ensuite quand tu fais la récap, les lignes de la dernière feuille (Non attr) se copient sur la feuille 1 en dernier donc tu as deux fois la même ligne.

A quoi te sert cette ligne de code ?

A+

 

Vote positif 0 Vote négatif

bqtr

XLDnaute Accro

• 26 Novembre 2007

• #10

Re : recopie feuilles modif macro

Re,

Je te propose ceci :

Code:

Sub Report()

Dim lign As Long
Dim ligne As Long, Nombre As Integer

lign = Sheets("Portefeuille 0907").Range("A65535").End(xlUp).Row
Rows("4:" & lign).Clear

Application.ScreenUpdating = False
    For Nombre = 2 To Sheets.Count
       'Sheets(Nombre).Rows(4).Copy Destination:=Sheets(1).Rows(4)
        If Range("A4") = "" Then
           ligne = 4
           Sheets(Nombre).Range("A4:EE" & Sheets(Nombre).Range("a65536").End(xlUp).Row).Copy Sheets(1).Range("A" & ligne)
        Else
           ligne = Range("a65536").End(xlUp).Row + 1
           Sheets(Nombre).Range("A4:EE" & Sheets(Nombre).Range("a65536").End(xlUp).Row).Copy Sheets(1).Range("A" & ligne)
        End If
    Next Nombre
Application.ScreenUpdating = True

End Sub
 
' Macro enregistrée le 17/10/2006 par papapaul modifiée Jiheme

A+

 

Vote positif 0 Vote négatif

Jiheme

XLDnaute Accro

• 26 Novembre 2007

• #11

Re : recopie feuilles modif macro

Bonsoir bqtr le forum

Merci beaucoup ça marche impec. Je vais essayer de piger mes erreurs.

Bonne soirée
A+

 

Vote positif 0 Vote négatif