Ecrire dans une cellule depuis un tableau memoire

**lorinthal** · 25/01/2018, 16h03

Bonjour,

Je viens vers vous car je bloque sur un problème qui pourtant me paraissait pas en être un. J'ai tenté plusieurs bout de code récupérer sur les forum, je bloque toujours.

Je vous explique un peu ce que je cherche à faire :

J'ai un fichier csv avec des séparateurs "|". Grace à la fonction split, j'ai récupéré tous mes champs (53) et toutes mes lignes (plus de 700) dans mon tableau Tb_TXT().
Suite à cette manipulation, je souhaite récupérer certaine de ces valeurs et les mettre dans les cellules correspondantes de ma feuille (BAL_AGEE). Je n'ai qu'une seule feuille dans mon classeur.

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
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
Sub ExtrationChamps()
 
Dim i As Integer, j As Integer, k As Integer
 
k = 1
 
For i = 21 To nbligne
    Tb_CSV = Split(Tb_fichier(i), "|")
    'boucle sur le tableau pour visualiser le résultat
    For j = 0 To UBound(Tb_CSV)
        If j < 53 Then
            Tb_TXT(k, j + 1) = Tb_CSV(j)
        End If
    Next j
    k = k + 1
Next i
 
End Sub
 
Sub EcrireCelluleExcel()
 
Dim i As Integer, j As Integer, k As Integer
Dim valeur As String
 
 
For i = 1 To nbligne
    k = 21 + i
 
    For j = 1 To 53
        Sheets("BAL_AGEE").Select
        valeur = Tb_TXT(i, j)
        Select Case j
            Case 4
                'ID projet
                Sheets(1).Cells(k, 4).Values = valeur
            Case 5
                'Nom client
                Cells(k, 3).Values = valeur
            Case 6
                'N° facture
                Cells(k, 5).Values = valeur
            Case 9
                'Montant facturé
                Cells(k, 7).Values = valeur
            Case 16
                'Echu Harmony
                Cells(k, 8).Values = valeur
            Case 37
                'Nom responsable recouvrement
                Cells(k, 2).Values = valeur
            Case 40
                'N° Ligne
                Cells(k, 6).Values = valeur
        End Select
    Next j
Next i
 
End Sub