"François Picalausa" a écrit dans le message de news:%
Voici ce que renvoie l'enregistreur de macros: Sheets(Array("Feuil1", "Feuil2", "Feuil3")).Select Sheets("Feuil1").Activate
Bien sûr, pour un classeur de base avec 3 feuilles. Mais s'il s'agit d'un classeur avec un nombre variable de feuilles ?
Merci -- Bernard
François Picalausa
Bonjour/soir,
"Bernard GUERIN" a écrit dans le message de news:%
"François Picalausa" a écrit dans le message de news:%
Voici ce que renvoie l'enregistreur de macros: Sheets(Array("Feuil1", "Feuil2", "Feuil3")).Select Sheets("Feuil1").Activate
Bien sûr, pour un classeur de base avec 3 feuilles. Mais s'il s'agit d'un classeur avec un nombre variable de feuilles ?
Sheets étant une collection (Worksheets si tu préfères), il suffit d'en faire un tableau: Sachant qu'en plus cette collection accepte des index plutôt que les noms, voici une méthode:
Sub SelectAllSheets() Dim tblSheets() As Integer, i As Integer
ReDim tblSheets(Worksheets.Count - 1) For i = 1 To Worksheets.Count tblSheets(i - 1) = i Next i
"Bernard GUERIN" <Biolostat.pas-de-spam@wanadoo.fr> a écrit dans le
message de news:%23BFPt6ojDHA.2512@TK2MSFTNGP09.phx.gbl
"François Picalausa" <fpicalausa@chez.com> a écrit dans le message de
news:%23Zed7wnjDHA.1948@TK2MSFTNGP12.phx.gbl...
Voici ce que renvoie l'enregistreur de macros:
Sheets(Array("Feuil1", "Feuil2", "Feuil3")).Select
Sheets("Feuil1").Activate
Bien sûr, pour un classeur de base avec 3 feuilles. Mais s'il s'agit
d'un classeur avec un nombre variable de feuilles ?
Sheets étant une collection (Worksheets si tu préfères), il suffit d'en
faire un tableau:
Sachant qu'en plus cette collection accepte des index plutôt que les noms,
voici une méthode:
Sub SelectAllSheets()
Dim tblSheets() As Integer, i As Integer
ReDim tblSheets(Worksheets.Count - 1)
For i = 1 To Worksheets.Count
tblSheets(i - 1) = i
Next i
"Bernard GUERIN" a écrit dans le message de news:%
"François Picalausa" a écrit dans le message de news:%
Voici ce que renvoie l'enregistreur de macros: Sheets(Array("Feuil1", "Feuil2", "Feuil3")).Select Sheets("Feuil1").Activate
Bien sûr, pour un classeur de base avec 3 feuilles. Mais s'il s'agit d'un classeur avec un nombre variable de feuilles ?
Sheets étant une collection (Worksheets si tu préfères), il suffit d'en faire un tableau: Sachant qu'en plus cette collection accepte des index plutôt que les noms, voici une méthode:
Sub SelectAllSheets() Dim tblSheets() As Integer, i As Integer
ReDim tblSheets(Worksheets.Count - 1) For i = 1 To Worksheets.Count tblSheets(i - 1) = i Next i