Discussion :

[Dédé6621]

Bonjour,

Je souhaite utiliser une variable de type Sheets afin de lui attribuer différentes références d'objets Worksheet.

C'est ce que je fais couramment avec les codes:

Code :

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

Public Fls As Sheets

Code :

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

1
2
        Set FlsSel = ActiveWindow.SelectedSheets
        If FlsSel.Count = 1 Then Set Fls = Worksheets Else Set Fls = FlsSel

Maintenant, comment attribuer des feuilles spécifiques à la variable publique Fls?

L'idée est ensuite de boucler dessus.

J'ai essayé:

Code :

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

Fls.add Workbook.Sheets("nom de la feuille")

Ça marche si j'utilise la variable Fls en tant que collection :

Code :

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

Set Fls = New Collection

Mais étant donné que l'objet Sheets est une collection (documentation Microsoft ici), comment se fait-il que ça ne fonctionne pas si Fls est de type Sheets?

Ça ne marche pas non plus en instanciant Fls en tant que Sheets:

Code :

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

Set Fls = New Sheets

Vos lumières sont les bienvenues !

[Invité]

Bonjour Dédé6221

Je n'ai pas tout compris, mais une fois la variable définit

Code :

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

1
2
3
For Each Fls in ThisWorkbook.Sheets
Msgbox "Feuille : " & Fls.Name
Next Fls

A+

[Dédé6621]

Je n'ai sans doute pas été suffisamment clair, mais la variable Fls est une variable de type Sheets et non une variable de type Worksheet.

Pour l'objet Worksheet, j'utilise la variable Fl, comme dans:

Code :

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

For Each Fl in Fls

Le but est de pouvoir utiliser la boucle ci-dessus, mais en ayant une collection Fls de feuilles bien définies, qui ne sont pas l'ensemble des feuilles d'un classeur (ActiveWorkbook.Sheets) ou l'ensemble des feuilles sélectionnées (ActiveWorkbook.SelectedSheets).

[Invité]

Re,

Pour info : Worksheet représente une feuille de calcul, alors que Sheet représente n'importe quelle feuille, quel que soit son type
Donc Sheet et Worksheet peuvent être utilisées de la même façon (ou presque)

Et non je ne comprends pas votre logique, s'il y en a une 🤔

Que voulez-vous faire exactement, un fichier ne serait pas plus simple pour comprendre ?

A+

[Dédé6621]

Pour info : Worksheet représente une feuille de calcul, alors que Sheet représente n'importe quelle feuille, quel que soit son type
Donc Sheet et Worksheet peuvent être utilisées de la même façon (ou presque)

Pardon, mais je ne vois pas très bien en quoi cela s'applique à ma question.
Pourriez-vous préciser?

Et non je ne comprends pas votre logique, s'il y en a une 🤔

Que voulez-vous faire exactement, un fichier ne serait pas plus simple pour comprendre ?

J'ai développé ma problématique sur deux messages. Est-ce qu'il y a un point précis qui n'est pas clair?
Je n'ai pas pour habitude d'envoyer des fichiers. Trop risqué.

Merci de votre aide en tous les cas.

PS: Sauf erreur, Sheet n'existe pas en VBA.

[Invité]

Re

On peut définir une variable feuille comme étant un WorkSheet



On ne peut pas le faire avec Sheet


Sheets ne sert qu'a travailler sur une collection de feuille
https://learn.microsoft.com/fr-fr/of...i/excel.sheets



A+

[Dédé6621]

On ne peut pas le faire avec Sheet, ou seulement pour une collection de feuilles avec Sheets

C'est bien à la collection Sheets à laquelle je fais référence dans mon premier message.
Si vous ne comprenez pas ma question, peut-être qu'il vaut mieux laisser d'autres y répondre.

Cordialement

[Thumb down]

Bonjour,
il ne faut pas confondre entre l'objet collection qui est une classe mis à disposition pour que tu puisses instancier tes propre objets, et une collection mis à disposition par Excel vba ! la méthode add de l'objet Sheets ajoute un nouveau classeur dans Excel la méthode New de la classe Sheets est réservé à Microsoft!

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
Dim Sheet As New Collection
Sub test()
Sheet.Add Sheets("Feuil1"), "Feuil1"
Sheet.Add Sheets("Feuil2"), "Feuil2"
Sheet("Feuil2").Select
 
Sheet.Add  Sheets.Add
 
For i = 1 To Sheet.Count
    Sheet(i).Select
Next
For Each Sh In Sheet
    Sh.Select
Next
 
 
End Sub

[Dédé6621]

Bonjour,

Merci pour ce point théorique.

il ne faut pas confondre entre l'objet collection qui est une classe mis à disposition pour que tu puisses instancier tes propre objets, et une collection mis à disposition par Excel vba !

Je maîtrise mal la notion de classe. J'imagine seulement qu'il s'agit d'un type d'objet avec ses propriétés et ses méthodes, soit préexistante dans VBA, soit créée par l'utilisateur.

Mais si je comprends bien, Sheets et Collection sont deux classes préexistantes ; et tandis que Sheets ne permet pas d'instancier mes propres objets, Collection le permet.

Aussi, une variable de type Sheets ne permettrait d'instancier que des objets bien précis, soit :

• toutes les feuilles du classeur : Set Fls = ActiveWorkbook.Sheets
• toutes les feuilles sélectionnées : Set Fls = ActiveWindow.SelectedSheets
• toutes les feuilles de calcul du classeur : Set Fls = ActiveWorkbook.Worksheets
• toutes les feuilles de graphique du classeur : Set Fls = ActiveWorkbook.Charts

Et c'est tout ...?

Ainsi, il n'est pas possible d'alimenter une variable de type Sheets avec des feuilles particulières.
Il vaut mieux passer par une collection.

Est-ce que j'ai bien compris?

P.S.: Après essai, la méthode Sheets.add crée une feuille avant la feuille active.

[Thumb down]

Bonjour,
Si tu veux un objet qui collecte que les feuilles qui t'intéresse utilises l'objet collection dim collec as New collectionL'objet Sheets collecte les onglets ouvert par Excel
Excel a très certainement utiliser l'objet collection pour son propre compte ?????

Pour ce qui concerne Sheets tu peux préciser avant ou après telle onglet !
Sheets.Add Before/After:="Feuil4"

[Dédé6621]

Il me semble qu'on est bien d'accord.

Ok, merci !

[Philippe Tulliez]

Bonjour,
Pour info, on peut également boucler sur des feuilles spécifiques

Code :

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

1
2
3
4
5
6
7
Sub t()
  Dim sht As Worksheet
  For Each sht In Sheets(Array("2020", "2021", "2022"))
   Debug.Print sht.CodeName
  Next
  Set sht = Nothing
End Sub

et donc également utiliser une variable représentant la collection

Code :

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

1
2
3
4
5
6
7
8
9
Sub t()
  Dim sht As Worksheet
  Dim shts As Sheets
  Set shts = Sheets(Array("2020", "2021", "2022"))
  For Each sht In shts
   Debug.Print sht.CodeName
  Next
  Set sht = Nothing: Set shts = Nothing
End Sub

[Thumb down]

Bien vu Philippe

[Invité]

Re,

Oui, merci Philippe de l'explication par code de ce que j'avais dis ici 😉
https://www.developpez.net/forums/d2.../#post11880164

Il faut parfois mettre les points sur les i et la barre aux T

[Dédé6621]

Bonjour,

Assez génial, merci !

Le réponse est donc :

Code :

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

1
2
3
4
5
6
7
8
    Dim Fls as Sheets
    Dim Fl as Worksheet

    Set Fls = ActiveWorkbook.Sheets(Array("Feuil8", "Feuil27"))

For Each Fl In Fls
    code 
Next Fl