Excel vba copier des feuilles [Résolu/Fermé]

Signaler
Messages postés
63
Date d'inscription
jeudi 11 février 2010
Statut
Membre
Dernière intervention
4 décembre 2010
-
Messages postés
63
Date d'inscription
jeudi 11 février 2010
Statut
Membre
Dernière intervention
4 décembre 2010
-
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

1 réponse

Messages postés
14934
Date d'inscription
lundi 18 octobre 2004
Statut
Contributeur
Dernière intervention
24 juin 2020
4 107
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
1
Merci

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

CCM 56962 internautes nous ont dit merci ce mois-ci

Messages postés
63
Date d'inscription
jeudi 11 février 2010
Statut
Membre
Dernière intervention
4 décembre 2010
11
Merci beaucoup pour ton aide!!

ça fonctionne parfaitement et c'est vrai que ton écriture allège le code :)

Mais j'aime comprendre! Pourrais-tu me dire à quoi sert "Case" ? ça donne quoi comme information? ça effectue quoi comme action?

Merci!