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 :-( |
Partager