Excel vba copier des feuilles Résolu/Fermé

Question

Bonjour, J'ai créé une macro qui me permet de compiler les données de différentes feuilles dans une seule et même autre feuille "1 Base de données". La macro fonctionne bien sur les deux premières feuilles et plante. Elle ne copie plus les données des feuilles suivantes. Voici le code que j'ai utilisé : Dim feuille As Worksheet For Each feuille In Worksheets If feuille.Name <> "0 Utilisateur" Then If feuille.Name <> "1 Base de données" Then If feuille.Name <> "2 Modèle" Then If feuille.Name <> "3Outils" Then feuille.Select Dim Lg% Lg = Range("H65536").End(3).Row Range("A7:H" & Lg).Copy Sheets("1 Base de données").Select Dim Lg2% Lg2 = Range("A65536").End(3).Row Range("A" & Lg2 + 1).Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False End If End If End If End If Next feuille vba a l'air d'avoir un soucis avec le "feuille.Select". Voici ce qu'il me dit : la méthode Select de l'objet worksheet a échoué. Pourquoi ça marcherait sur 2 feuilles et pouf! la 3e ça plante? Merci pour votre aide!! Beeloobop Configuration: Office 2007 Internet Explorer

gbinforme · Answer

bonjour

En évitant de faire les "select" de données, tu devrais être plus rapide.
En utilisant "Select Case" c'est plus simple pour paramétrer les feuilles non concernées.
Lorsque tu définis tes variables lignes pense à mettre "long" car integer est limité à 32 767.

Je te propose de modifier ainsi et de voir si cela fonctionne chez toi :

Public Sub copie()
Dim feuille As Worksheet, Lg As Long, Lg2 As Long

For Each feuille In Worksheets
Select Case feuille.Name
    Case "0 Utilisateur", "1 Base de données", "2 Modèle", "3Outils"
    Case Else
        Lg = feuille.Range("H65536").End(3).Row
        Lg2 = Sheets("1 Base de données").Range("A65536").End(3).Row + 1
        feuille.Range("A7:H" & Lg).Copy
        Sheets("1 Base de données").Range("A" & Lg2).PasteSpecial _
            Paste:=xlPasteValues, Operation:=xlNone, _
            SkipBlanks:=False, Transpose:=False
End Select
Next feuille
End Sub

Excel vba copier des feuilles

1 réponse

Discussions similaires