Discussion :

[Farmer64]

Bonjour à tous,

J'essaie de transmettre les valeurs de la première ligne d'une feuille dans un tableau.
Il semble que dans la boucle on soit bons, mais en fin de script le tableau semble vide...

Est-ce que quelqu'un pourrait m'éclairer sur mon erreur svp ?

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
18
19
20
21
22
23
24
Dim ordre_destination()
Set feuil_fin = Sheets(feuille_assemblage)
 
 
 
 
For nocol = 1 To feuil_fin.cells(1, feuil_fin.cells.Columns.Count).End(xlToLeft).Column
Var = feuil_fin.cells(1, nocol).Value
If (Var <> "" And Var <> 0) Then
ReDim ordre_destination(nocol)
ordre_destination(nocol) = Var
Debug.Print "Une valeur est acceptée : ", ordre_destination(nocol) 'la valeur est cohérente (string attendu)
 
Else
Exit For ' si valeur vide on arrête
 
End If
 
 
Next nocol
 
msag = "Ordre colonnes tableur destination : " & Join(ordre_destination, " ; ")
Debug.Print msag
'debug incohérent ,tableau de dimension cohérente mais sans valeurs :-(

Merci d'avance !!

[unparia]

Bonjourte

Il y aurait beaucoup à dire, mais je crois plus utile de me contenter d'appeler ton attention sur la raison de ce que tu observes.

- je t'invite à relire très attentivement ce qu'expose la rubrique ReDim, instruction de ton aide interne VBA et plus particulièrement ce qui y est dit en ce qui concerne l'utilisation de l'argument Preserve

[MarcelG]

Bonjour à vous, Bonjour le Forum,

Après avoir suivi la recommandation de Unparia, que je salue au passage, tu pourras t'informer sur l'alimentation d'un tableau à partir d'un objet Range.