Array() variable

Pierrot93

XLDnaute Barbatruc

• 19 Février 2009

• #2

Re : Array() variable

Bonjour Gravel

essaye le code ci dessous, sélectionne toutes les feuilles du classeur actif :

Code:

Dim ws As Worksheet
For Each ws In Worksheets
    ws.Select False
Next ws

bon après midi.
@+

 

Vote positif 0 Vote négatif

vbacrumble

XLDnaute Accro

• 19 Février 2009

• #3

Re : Array() variable

Bonjour tous


Voir ce code VBA, si cela peut t'aider.

Code:

Sub macro()
Dim TabFeuilles, i, m$
ReDim TabFeuilles(1 To Sheets.Count)
    For i = 1 To Sheets.Count
        TabFeuilles(i) = ThisWorkbook.Sheets(i).Name
        m = m & TabFeuilles(i) & Chr(13)
    Next
MsgBox m
End Sub

A+

 

Vote positif 0 Vote négatif

G

gravel

Guest

• 19 Février 2009

• #4

Re : Array() variable

Merci de vos suggestions, mais j'ai du mal m'exprimer,
dans mon classeur j'ai plusieurs feuilles dont deux qui me servent à générer une série de feuille.
Je souhaiterais faire une sélection de cette dernière série pour en faire un aperçu avant impression.
Cette série varie de 1 à n feuilles.
exemple pour mon cas :
"model_pg_1", "model_pg_2","model_pg_3" etc ...
et ce sont ces feuilles que je voudrais sélectionner.

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 19 Février 2009

• #5

Re : Array() variable

Re

pas sur d'avoir tout compris.... peut être ainsi alors....

Code:

Option Explicit
Sub test()
Dim ws As Worksheet, t() As Variant, i As Byte
For Each ws In Worksheets
    If ws.Name Like "model_pg_*" Then
        ReDim Preserve t(0 To i)
        t(i) = ws.Name
        i = i + 1
    End If
Next ws
Sheets(t).Select
End Sub

@+

 

Vote positif 0 Vote négatif

G

gravel

Guest

• 19 Février 2009

• #6

Re : Array() variable

J'ai fait un mélange des deux et çà donne çà :

Code:

Dim ws As Worksheet
Dim i as Integer
i = 1
For Each ws In Worksheets
    If ws.Name = "model_pg_" & i Then
    ws.Select False
    i = i + 1
    End If
Next ws

il me reste à changer la feuille sélectionnée avant l'exécution du code et ce sera bon.
Merci de votre aide à tous les deux.

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 19 Février 2009

• #7

Re : Array() variable

re

pour éviter de déselectionner la première feuille :

Code:

ws.Select IIf(i = 1, True, False)

as tu vu mon message de 17h10...

@+

 

Vote positif 0 Vote négatif

vbacrumble

XLDnaute Accro

• 19 Février 2009

• #8

Re : Array() variable

Bonjour tous


Pierrot93: Moi je l'ai vu.

Et cela me sera bien utile. Merci.


A+

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 19 Février 2009

• #9

Re : Array() variable

bonsoir vbacrumble,

oh moins cela servira à quelqu'un 🙄 bonne soirée à toi...

 

Vote positif 0 Vote négatif

G

gravel

Guest

• 20 Février 2009

• #10

Re : Array() variable

Merci Pierrot tu as bien compris,
j'avais essayé avec

Code:

If ws.Name Like "model_pg_" & * Then

mais bien sur çà ne marchait pas.
encore merci pour ta solution çà marche.
et non je n'avais pas vu ton message de 17h10, désolé.

 

Vote positif 0 Vote négatif