Excel vba copier des feuilles

Résolu/Fermé

Beeloobop Messages postés 63 Date d'inscription jeudi 11 février 2010 Statut Membre Dernière intervention 4 décembre 2010 - 19 août 2010 à 16:28
Beeloobop Messages postés 63 Date d'inscription jeudi 11 février 2010 Statut Membre Dernière intervention 4 décembre 2010 - 20 août 2010 à 10:41

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

A voir également:

Excel - vba copier feuille et renommer
Liste déroulante excel - Guide
Si et excel - Guide
Feuille de pointage excel - Télécharger - Tableur
Renommer plusieurs fichiers - Guide
Word et excel gratuit - Guide

1 réponse

Réponse 1 / 1

gbinforme Messages postés 14946 Date d'inscription lundi 18 octobre 2004 Statut Contributeur Dernière intervention 24 juin 2020 4 684
19 août 2010 à 23:39

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

Beeloobop Messages postés 63 Date d'inscription jeudi 11 février 2010 Statut Membre Dernière intervention 4 décembre 2010 11
Modifié par Beeloobop le 20/08/2010 à 11:07

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!

Discussions similaires

Dessiner avec son clavier et avec des lettres

Discussions similaires

Newsletters