Données perdues - importation range vers array
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:
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 !! :D