Discussion :

[ouskel'n'or]

Je viens d'écrire, à l'intention d'un "lioné" ou d'un "ronien", une macro servant à copier les feuilles d'un classeur dans une nouvelle feuille crée pour l'occasion.
La macro fonctionne sans anicroche mais je ne comprends pas ni pourquoi ni comment.
La macro (En rouge la ligne "contestable" et contestée) :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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
Sub CopieToutesLesFeuillesAlaSuiteDansUneNouvelleFeuille()
Dim LaFeuille As Worksheet
Dim FL2 As Worksheet
    'WorkBooks("NomDuClasseurConcerné.xls").Activate          '-> A ADAPTER ***
    Set FL2 = ActiveSheet   'Feuille dont l'entête sera copiée -> A ADAPTER ***
    ActiveWorkbook.Sheets.Add Before:=Worksheets(Worksheets.Count) 'Ajoute une feuille
    Set FL1 = ActiveSheet       'instancie la feuille
    FL1.Name = "FeuilleCumul"   'Renomme la feuille
    FL2.Rows(1).Copy destination:=FL1.Range("A1")
    For Each LaFeuille In ActiveWorkbook.Worksheets 'Passe toutes les feuilles en revue...
        If Not LaFeuille.Name = FL1.Name Then       '... à l'exception de la feuille créée
        
            'Copie de la plage de donnée de chaque feuille et collage à partir de la...
            '... première cellule vide de la feuille ajoutée
            'Corriger "A2" en "A1" si pas d'entête dans les feuilles copiées A ADAPTER ***
            LaFeuille.Range(LaFeuille.Range("A2:" & _
            LaFeuille.Range("A1").SpecialCells(xlCellTypeLastCell).Address).Address).Copy _
            destination:=Cells(FL1.Range("A1").SpecialCells(xlCellTypeLastCell).Row + 1, 1)
            DoEvents
        End If
    Next
    'Copie du format de la feuille FL2
    'FL2.Cells.Copy
    'FL1.Cells.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
              'SkipBlanks:=False, Transpose:=False
    Set FL1 = Nothing 'libère la mémoire de l'instance
    Set FL2 = Nothing
End Sub

Au pas par pas, si je glisse la souris sur FL1.name (ligne en rouge) j'ai le message "Name = <Variable objet ou nom de bloc non défini>"
Or la macro identifie bien la feuille.
Si je supprime name après FL1, j'ai une erreur "blocante"
Si je supprime name à LaFeuille et à FL1, itout.
L'explication d'un érudit me siérait beaucoup
Par avance, merci.

[wilfried_42]

bonjour ouskel'nor

je suis mort de rire
c'est la premiere fois que je vois quelqu'un qui cherche pourquoi ca marche

je ne sais pas mais une question qui pourrait t'aiguiller :

Au pas par pas, si je glisse la souris sur FL1.name (ligne en rouge) j'ai le message "Name = <Variable objet ou nom de bloc non défini>"

c'est peut etre que tu n'as pas defini FL1 et que l'option explicite n'ayant pas été mse que ca ne plante pas

c'est une idée en l'air comme ca

Bonne journée,
Wil

[illight]

Avant le If, si tu fais une msgbox sur la valeur de FL1.Name ça te donne quoi ?


D'ailleurs oui ça me surprend tu n'as pas défini dans ta procédure FL1 donc ça vient peut etre de la le soucis, c'est qu'il la prend en vairant au départ, et après il voit que tu veux l'utiliser comme worksheet, donc ça fait comme si

[ouskel'n'or]

Avant le If, si tu fais une msgbox sur la valeur de FL1.Name ça te donne quoi ?

C'est une bonne question ! Ça me donne "FeuilleCumul"

D'ailleurs oui ça me surprend tu n'as pas défini dans ta procédure FL1 donc ça vient peut etre de la le soucis, c'est qu'il la prend en vairant au départ, et après il voit que tu veux l'utiliser comme worksheet, donc ça fait comme si

c'est peut etre que tu n'as pas defini FL1 et que l'option explicite n'ayant pas été mse que ca ne plante pas

Deux miros pour le prix d'un ! Et ces deux lignes, c'est quoi ?

Set FL1 = ActiveSheet 'instancie la feuille
FL1.Name = "FeuilleCumul" 'Renomme la feuille

Mais je vous remercie bien quand même
Si vous avez d'autres suggestions... elles seront toujours les bienvenues

[ouskel'n'or]

Autant pour moi, je ne l'avais pas "DÉCLARÉE" !
Vous n'aviez qu'à moitié raison, pour moi et certains autres, "définir une feuille" a un autre sens
On s'en sort comme on peut
Merci à tous les deux

Edit
J'aurais dû mieux lire

c'est peut etre que tu n'as pas defini FL1 et que l'option explicite n'ayant pas été mse que ca ne plante pas

Ce n'est pas "option explicite" mais "option explicit", c'est pour ça

[wilfried_42]

re:

je suis sur excel 2002

J'ai repris ta macro, avec un point d'arret sur le if lafeuille.name=FL1.name
Quand je passe avec la souris, lafeuille.name c'est Ok, FL1, j'ai que dale

Si je Mets Dim FL1 a worksheet

je refais la manip : FL1.name m'affiche le bon nom ---> c'est Ok

@ te lire

[AlainTech]

Ceci n'est pas la réponse à la question mais, pour travailler plus "propre", remplace

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
    ActiveWorkbook.Sheets.Add Before:=Worksheets(Worksheets.Count) 'Ajoute une feuille
    Set FL1 = ActiveSheet       'instancie la feuille

par

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

    Set FL1 = ActiveWorkbook.Sheets.Add Before:=Worksheets(Worksheets.Count) 'Ajoute une feuille en l'affectant à l'objet FL1

[Deepin]

et ce serait plus simple d'utiliser UsedRange que ta construction pour copier le contenu