Souci perte données range vers array [Résolu]

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

    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,
Afficher la suite 

1 réponse

Messages postés
26770
Date d'inscription
mercredi 22 octobre 2003
Statut
Modérateur
Dernière intervention
15 novembre 2019
1881
0
Merci
Bonjour

Redim preserve
Sans ça ca vide le tableau
jordane45
Messages postés
26770
Date d'inscription
mercredi 22 octobre 2003
Statut
Modérateur
Dernière intervention
15 novembre 2019
1881 -
Merci jordane !!!
La rapidité des réponses forum me surprendra toujours !!!!
jordane45
Messages postés
26770
Date d'inscription
mercredi 22 octobre 2003
Statut
Modérateur
Dernière intervention
15 novembre 2019
1881 > tiri64 -
Commenter la réponse de jordane45