Discussion :

[John Mc Evee]

Bonjour à tous le forum,

Cela fait quelques mois que je n'ai pas été actif sur le forum mais je reviens vers vous car je travaille sur un projet pour le travail qui consiste à alimenter un fichier texte à partir d'un tableau VBA.

La structure du tableau est composé de 18 colonnes et autant de ligne que besoin. Mon problème est le suivant :

Je dois contrôler que certaines colonnes sont complétées, pour cela je me suis dit que j'allais utiliser un tableau temporaire (comme un Set de range sur une ligne) puis l'envoyer sur une fonction qui contrôle la ligne.

J'ai eu l'idée boucler avec redim preserve sur toutes les colonnes pour alimenter ce tableau mais il doit bien exister un moyen de le faire en une commande VBA. J'ai essayé la commande dans le code mais il me récupère que la première et la dernière.

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
25
26
27
28
29
30
31
32
33
'**************************************************************************************************
' NAME : WriteLines (FUNCTION)
' INPUT : sPathFile (String), sData (String)
' OUTPUT : NoComplianceLines (Array)
'**************************************************************************************************
Public Function WriteLines(sPathFile As String, sData() As String) As String()
 
    For lRow = LBound(sData, 1) To UBound(sData, 1) Step 1
 
        Erase sNewLine
        sNewLine = Array(sData(lRow, 0), sData(lRow, UBound(sData, 2))) ' Ici je souhaite comme faire un Set de Range
 
        'Contrôle que les champs obligatoire sont renseignés
        If Compliance(sNewLine) Then
 
            sLine = VBA.Join(sNewLine, VBA.vbTab)
            NumberMemory = VBA.FreeFile
 
            Open sPathFile For Append As #NumberMemory
 
            Print #NumberMemory, sLine
 
            Close #NumberMemory
 
        Else
            ' Gestion des lignes non conforme
        End If
 
    Next lRow
 
 
 
End Function

Avez-vous une idée sur cette question ?

[joe.levrai]

Bonjour,

pour extraire une ligne d'un tableau :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Application.Index(tabl, n, 0)

ici on récupère la n ième ligne

pour extraire une colonne d'un tableau :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Application.Index(tabl, 0, n)

ici on récupère la n ième colonne

[John Mc Evee]

Merci Joe levrai, cela marche niquel

Je me disais bien qu'il existait une méthode plus simple que la boucle for.
Mon erreur était de chercher uniquement dans la bibliothèque VBA, la prochaine fois je penserais à utiliser les fonctions natives d'Excel.

Voici le code avec la modification

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
25
26
27
28
29
30
31
'**************************************************************************************************
' NAME : WriteLines (FUNCTION)
' INPUT : sPathFile (String), sData (Array)
' OUTPUT : NoComplianceLines (Array)
'**************************************************************************************************
Public Function WriteLines(sPathFile As String, sData() As String) As String()
 
    For lRow = LBound(sData, 1) To UBound(sData, 1) Step 1
 
        Erase sNewLine
        sNewLine = WorksheetFunction.Index(sData, lRow) ' Cibler une ligne dans un tableau
 
        'Contrôle que les champs obligatoire sont renseignés
        If Compliance(sNewLine) Then
 
            NumberMemory = VBA.FreeFile
 
            Open sPathFile For Append As #NumberMemory
 
            Print #NumberMemory, VBA.Join(sNewLine, VBA.vbTab)
 
            Close #NumberMemory
 
        Else
            'Gestion des lignes non conforme
        End If
 
    Next lRow
 
 
End Function

[boisgontierjacques]

Bonjour,

Attention! Application.Index sur un Array() est lent si on traite des Arrays() de taille importante.

En PJ, une fonction qui prend une partie d'un Array()

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

TblS = PrendPartieArray(TblE, 10, 1, Array(3, 1, 2))

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
Function PrendPartieArray(TblE, Début, Taille, ColRécup)
  n = 0
  fin = Début + Taille - 1: If fin > UBound(TblE) Then fin = UBound(TblE)
  Dim TblS(): ReDim TblS(1 To Taille, LBound(ColRécup) To UBound(ColRécup))
  For i = Début To fin
    n = n + 1
    For k = LBound(ColRécup) To UBound(ColRécup): TblS(n, k) = TblE(i, ColRécup(k)): Next k
  Next i
  If n > 0 Then PrendPartieArray = TblS
End Function

Boisgontier