[VBA] [Excel] Selection des feuilles

Bonjour à tous,

Suite à mon message du 09/12/2005, je rencontre maintenant un petit problème de sélection des feuilles au sein même d'un classeur. Je m'explique, je souhaiterai que les données récupérées page par page soient enregistrées sur des feuilles différentes au sein d'un meme classeur. Donc ma question est comment puis je faire pour déterminer cette variable ?

Cordialement

Code:

Worsheets(NomFeuilleOùTuVeuxCollerLaDonnée).cells(NoLig2,NoCol2) = Worsheets(NomFeuilleOrigineDeLaDonnée).cells(NoLig1,NoCol1)

NoLig1,NoCol1 : ligne et colonne de la feuille copiée
NoLig2,NoCol2 : ligne et colonne de la feuille dans laquelle tu colles

Tu dis

A+

Une question en rapport avec ce post : Y a-t-il une limite de feuille au sein d'un même classeur ?

Igloobel

Je ne connais pas la limite mais je peux dire que c'est plus que 365 car j'ai des classeurs qui ont une feuille par jour calendrier.

Salut,

A titre indicatif, le nombre de feuilles n'est "limité" que par la mémoire disponible dixite l'aide Excel...

+

Théo

Nbre de feuilles

Salut, Je crois moi aussi que le nombre de feuille est limité par la mémoire.
Tu peux définir le nombre de feuilles de ton classeur à l'ouverture, ce nombre 'ne peut excéder 255 feuilles ! par classeur sans code, voici la commande :
Menu "Outils" > Commande "Options" > Bte de Dialogue > Onglet "Général" > Nombre de feuilles de calcul par nouveau classeur.
Mais pas t'inquiétude car un classeur peut contenir plus de 20 fois !!! Eh oui...
Je ne peux te dire avec certitude le nombre de feuille max qu'1 classeur Excel peut contenir. Mais j'ai testé avec le code ci-desous jusqu'à 5445 feuilles par classeur. A partice de ce nombre Excel génère des erreurs. Je crois que ces erreurs sont dues par la capacité mémoire, donc une autre machine peut aller à plus de 6000 feuilles.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
 
Option Explicit
Public i As Long
Public Nom As String
Public Vble As Long
'*******************************************************************************************
'La 1ère procédure créée un classeur avec le nombre de feuille voulu
'la 2nde permet de supprimer les feuilles créées
'Le but étant juste de savoir quel est le nombre de feuille max d'un 
'classeur Excel, je n'ai pas tenu compte des contrôles tels que : - vérifier s'il existe déjà une feuille du même nom, etc. Le cas échéant une erreur se produira. Alors avant chaque test  j'exécute la routine "Detruire"
'********************************************************************************************
Public Sub Duplik()
 
    Vble = InputBox("Donner le nombre de feuilles que vous " & _
                    "désirez avoir !:", "Création automatique")
 
'Création automatique des feuilles
    For i = 1 To Vble
        Sheets.Add
        ActiveSheet.Name = "Nom " & i
    Next i
 
'Nombre de feuilles du classeur
    MsgBox " Le nombre de feuilles du classeur est : " & Worksheets.Count, vbInformation _
            + vbOKOnly, " Nombre de feuilles contenue dans le classeur actif"
 
End Sub
 
Public Sub Detruire()
'Détruit toutes les feuilles du classeur actif sauf 1 feuille.
'Sinon Erreur !!! Pas de classeur sans feuille !! et renome la
'feuille rescapée d'un nom différent de "Nom x" ou x est 1 nombre
 
'Destruction des feuilles créées
    For i = 1 To Worksheets.Count - 1
        Application.DisplayAlerts = False
            Sheets(i).Delete
        Application.DisplayAlerts = False
    Next i
 
'Renommer la feuille existance pour ne pas créer d'erreur: La création
'automatique des feuille générera un feuille de nom (propriété name)
' "Nom i" qui où i corresponda au nombre de la feuille encours
    ActiveSheet.Name = "Feuille 1"
 
End Sub

Citation:

Une question en rapport avec ce post : Y a-t-il une limite de feuille au sein d'un même classeur ?

Un autre facteur que le nombre de pages rentre en ligne de compte, le nombre de graphes.
Donc bien un pb de mémoire...

A+