VBA : pb CAPACITE (XLS*2003 - compilation DATAS plusieurs ONGLETS sur ong. RECAP

[zebanx]

Bonjour,

J'ai récupéré un code très pratique pour compiler des informations de plusieurs onglets sur un seul onglet RECAP mais le code, sous excel 2003, ne fonctionne pas pour un pb de capacité pour le moment.

Pourriez-vous m'aider s'il vous plait ?

Vous en remerciant, bonne journée
td

 

[Dranreb]

Re : VBA : pb CAPACITE (XLS*2003 - compilation DATAS plusieurs ONGLETS sur ong. RECA

Bonjour.
Les Integer ne vont que jusqu'à 32767. Avec Long vous allez un peu plus loin mais vous dépassez le nombre de lignes maxi en Excel 2003

 

[Paf]

Re : VBA : pb CAPACITE (XLS*2003 - compilation DATAS plusieurs ONGLETS sur ong. RECA

Bonjour

J'ai cru que les 65536 lignes d'excel étaient dépassées. Mais non (on s'en approche :57226), c'est un problème de capacité, mais de variables. sur des versions plus récentes d'Excel il y aurait eu le même soucis.

modifier

Dim dlgR As Integer, dlgi As Integer

en

Dim dlgR As Long, dlgi As Long

Par ailleurs, si vos feuilles n'ont que deux colonnes de données, inutile de copier 10 colonnes

modifier

.Range("a2:j" & dlgi).Copy Sheets("RECAP").Range("a" & dlgR + 1)

en

.Range("a2:B" & dlgi).Copy Sheets("RECAP").Range("a" & dlgR + 1)

Bonne suite

 

[zebanx]

Re : VBA : pb CAPACITE (XLS*2003 - compilation DATAS plusieurs ONGLETS sur ong. RECA

Bonjour,

Merci pour vos réponses rapides !

Le fait de modifier par "As long" apporte cependant un autre problème (erreur 1004).

Peut être que "as long" devrait être capé à 65000 lignes par exemple (fichier 2003) mais comment l'intégrer dans ce cas

Sub transfert()
Dim dlgR As Long, dlgi As Long
Dim i As Byte
For i = 1 To Worksheets.Count
If UCase(Sheets(i).Name) <> "RECAP" Then
dlgR = Sheets("RECAP").Range("a" & Rows.Count).End(xlUp).Row
With Sheets(i)
dlgi = .Range("a" & Rows.Count).End(xlUp).Row
.Range("a2:j" & dlgi).Copy Sheets("RECAP").Range("a" & dlgR + 1)
End With
End If
Next
End Sub


Merci par avance pour votre aide, cdlt

 

[Paf]

Re : VBA : pb CAPACITE (XLS*2003 - compilation DATAS plusieurs ONGLETS sur ong. RECA

Re,

le fait de s'arrêter à 65536 lignes si on a une version Excel inférieure à 2007 n'est pas un problème. on peut le gérer avec un code du genre

If Val(Application.Version) < 12 Then
    'code
Else
    ' autrecode
End If

Mais que faire des lignes restantes ?

A+

 

[Herdet]

Re : VBA : pb CAPACITE (XLS*2003 - compilation DATAS plusieurs ONGLETS sur ong. RECA

Bonjour,

J'ai récupéré un code très pratique pour compiler des informations de plusieurs onglets sur un seul onglet RECAP mais le code, sous excel 2003, ne fonctionne pas pour un pb de capacité pour le moment.

Pourriez-vous m'aider s'il vous plait ?

Vous en remerciant, bonne journée
td

Bonjour,
Une solution qui fonctionne bien en supprimant toutes les lignes vides avant collage.
Recap à 57226 lignes

Sub transfert()
    'Macro Dan pour CecileCosma - 20/09/12
    Dim dlgR, dlgi As Double
    Dim i As Byte
    Application.ScreenUpdating = False
    Sheets("Recap").Select
    Rows("2:65536").Delete Shift:=xlUp
    On Error GoTo FIN
    For i = 1 To Worksheets.Count
        If UCase(Sheets(i).Name) <> "RECAP" Then
            dlgR = Sheets("RECAP").Range("a" & Rows.Count).End(xlUp).Row
            With Sheets(i)
                dlgi = .Range("a" & Rows.Count).End(xlUp).Row
                
                .Range("a2:j" & dlgi).Copy Sheets("RECAP").Range("a" & dlgR + 1)
            End With
        End If
    Next
FIN:
   
End Sub

Cordialement
Robert

 

[zebanx]

Re : VBA : pb CAPACITE (XLS*2003 - compilation DATAS plusieurs ONGLETS sur ong. RECA

C'est juste... parfait !

Merci à tous et bon apm
@+