Tableau pas possible garder valeur

Résolu
Richard_9
Messages postés
26
Date d'inscription
mardi 13 juillet 2004
Statut
Membre
Dernière intervention
1 juillet 2008
- 4 janv. 2005 à 16:11
crenaud76
Messages postés
4172
Date d'inscription
mercredi 30 juillet 2003
Statut
Membre
Dernière intervention
9 juin 2006
- 4 janv. 2005 à 19:05
Bonjour,
j'essaie d'initialiser un tableau avec des valeurs d'un sheet.
J'ai essayé STATIS, GLOBAL, DIM, REDIM, Redim static dans tous les sens possible.
Après initialisation de mon tableau, il écrase les valeurs précédentes. Et je ne comprend pas pourquoi.
Voici les quelques lignes de codes que j'utilise :

Sub complete_tableau_plan_site()


Static tableau_plan_site() As String


'Dim tableau_plan_site() As String
i = 1
j = 4
ReDim tableau_plan_site(i, j)


Sheet_Mois = "Ref_Site"
Last_site = Sheets(Sheet_Mois).Range("A2").End(xlDown).Row

For i = 1 To Last_site


'ReDim tableau_plan_site(i, j)
'ReDim Preserve tableau_plan_site(i, j)


tableau_plan_site(i, 1) = Sheets(Sheet_Mois).Cells(i + 1, 1).Value
tableau_plan_site(i, 2) = Sheets(Sheet_Mois).Cells(i + 1, 2).Value & Sheets(Sheet_Mois).Cells(i + 1, 3).Value
tableau_plan_site(i, 3) = Sheets(Sheet_Mois).Cells(i + 1, 5).Value
tableau_plan_site(i, 4) = Sheets(Sheet_Mois).Cells(i + 1, 6).Value


Next i


End Sub

1 réponse

crenaud76
Messages postés
4172
Date d'inscription
mercredi 30 juillet 2003
Statut
Membre
Dernière intervention
9 juin 2006
28
4 janv. 2005 à 19:05
Pas tout compris à ton pb mais si c'est au moment du Redim que tu perds tes valeurs, c'est normal. IL faut fair eun "Redim Preserve ..." pour que le Redim conserve le contenu du tableau. Attention ! Le fait de décalrer ton tableau "Static" fera que celui-ci ne sera pas réinitialiser entre deux appels à la sub Complete_tableau_plan_site() ... Ce n'est peut être pas ce que tu veux. Dans ce cas, penses à l'enlever ...



Christophe R
3