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 !!