[resolu] Initialisation d'un tableau

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : [resolu] Initialisation d'un tableau

lden

Salut c'est encore moi!

voila j'ai un fichier qui contient 25 onglets.
J'aimerais, lorsque j'execute une fonction, créer un tableau dont les elements sont les noms des worksheets, exceptés certaines d'entre elles ne me servant pas par la suite.

ca pourrait etre du style
i=0
for each worksheets dans le workbook

tab(i)= worksheets(i)

next i

je suis un peu limite au niveau de la syntaxe.

merci

Message édité par lden le 11-07-2006 à 10:05:57

Publicité

lden

j'ai fait ca comme code mais ca pue! surtout a la premiere ligne avec worksheet qui est vide ...

For Each Worksheet In Workbook
i = 0
If Worksheets(i).Name <> "REGION NE" And "REGION O" And "REGION SE" And "FRANCE" And _
"base de donnée dynamique" And "Données" And "Analyse" Then
onglets_dépôt(i) = Worksheets(i).Name
ElseIf Worksheets(i) = "REGION NE" Or "REGION O" Or "REGION SE" Or "FRANCE" Then
onglets_région(i) = Worksheets(i).Name
End If

Arjuna

Aircraft Ident.: F-MBSD

moi ce qui me choque le plus, c'est que t'as des accents dans tes variables

sinon, je ne vois pas où tu incrémentes ton "i", et encore moins où tu redimensionne ton tableau (??)

Epena

Bonjour,
Worsheets(0) doit déclancher une erreur. Il y a une erreur dans la syntaxe de If And /Or et une erreur de logique dans la boucle. Ceci devrait mieux fonctionner :

Dim i As Integer, j As Integer
Dim onglets_dépôt() As String
Dim onglets_région() As String

For Each Feuille In Worksheets
i = 0: j = 0

If Feuille.Name <> "REGION NE" And Feuille.Name <> "REGION O" _
And Feuille.Name <> "REGION SE" And Feuille.Name <> "FRANCE" _
And Feuille.Name <> "base de donnée dynamique" _
And Feuille.Name <> "Données" And Feuille.Name <> "Analyse" Then
ReDim Preserve onglets_dépôt(i)
onglets_dépôt(i) = Feuille.Name
i = i + 1
ElseIf Feuille.Name = "REGION NE" Or Feuille.Name = "REGION O" Or Feuille.Name = "REGION SE" Or "FRANCE" Then
ReDim Preserve onglets_région(j)
onglets_région(j) = Feuille.Name
j = j + 1
End If
Next

Cordialement
Epéna

galopin01

bonjour,
une autre possibilité :

Code :

Sub test()
Dim Col As New Collection 'onglets_dépôt
Dim Col2 As New Collection 'onglets_région
For Each o In Worksheets
If o.Name = "REGION NE" Or o.Name = "REGION O" Or _
o.Name = "REGION SE" Or o.Name = "FRANCE" Then
Col2.Add o.Name
ElseIf o.Name <> "base de donnée dynamique" And _
o.Name <> "Analyse" And o.Name <> "Données" Then
Col.Add o.Name
End If
Next
For i = 1 To Col.Count
MsgBox Col(i)
Next
For i = 1 To Col2.Count
MsgBox Col2(i)
Next
End Sub

A+

Message édité par galopin01 le 11-07-2006 à 09:24:49

lden

ok ca marche nickel Epena!

merci a vous deux

FORUM HardWare.fr

Programmation

VB/VBA/VBS

[resolu] Initialisation d'un tableau

Sujets relatifs
[Résolu] Bug d'IE avec les caractères accentués.	[resolu] Plage trop grande!
[résolu]récupération nom de dossier pour images	Annuler un évènement javasript (RESOLU)
largeur tableau	[résolu]Lancer un programme au demarrage de windows
[RESOLU] POST/GET.... Pourquoi ça marche pas???	Création de factures en PDF --- Résolu
fonction TRONQUE résolu	Onclick et visibilité d'une suite tableau
Plus de sujets relatifs à : [resolu] Initialisation d'un tableau

Page générée en 0.055 secondes