Discussion :

[PeterPanPan]

Bonjour,
J'ai comme projet de créer un circuit pour la recharge et la décharge d'une batterie : le but est de voir son nombre de cycles, la variation de la capacité avec le temps...
Ce circuit est réalisé à base d'arduino. Je récupère grâce à ce dernier la tension ainsi que le temps de charge/décharge. Les données sont séparées par un ";" et par un retour à la ligne lorsque que l'on change de mode (charge ou décharge).

Exemple :
CHARGE
4.2;4.3;...
DECHARGE
3.8;3.7;...

Les données sont récupérées directement dans un fichier .txt
Je désire alors récupérer ces données en faisant en sorte de mettre la charge dans la colonne A la décharge dans la colonne B ...
N'ayant jamais fait de VBA, j'ai fait de nombreuses recherches et j'ai trouvé pas mal de pistes.

Mais je rencontre des problèmes entre autre je ne sais pas quoi mettre en condition de fin pour le for j

Si vous avez des suggestions ou des liens à me conseiller je suis preneur de tout.
Merci d'avance pour vos aides.
Pierre GACHET

[Jean-Philippe André]

Salut,
Tu cherches la borne superieur te ton tableau arr

Code :

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

For j = 1 To Ubound(arr)

[PeterPanPan]

Salut jpcheck

merci pour ta rapidité de réponse, je vais essayer ta réponse.
et j'ai une erreur de compilation aussi où c'est dit "erreur 55 : fichier déjà ouvert".
C'est a dire qu'il faut le fermer à la fin de la macro ?

[unparia]

Bonjour
Un fichier ouvert par une instruction Open n'est plus accessible tant qu'il est ouvert.
Il doit donc être ferme (instruction Close) dès après avoir été exploité.

[PeterPanPan]

Salut unparia

Du coup j'ai mis un close au début, comme ca je ferme le fichier avant de le réouvrir et je n'ai plus l'erreur. Merci pour ta réponse.

Mais lorsque je compile le code, je n'ai pas d'erreur mais rien ne s'affiche ...
vous avez des idées ?

désole pour mon faible niveau en VBA c'est la première fois que j'en fais.

[Jean-Philippe André]

Une fois ta correction faite, peux-tu stp nous remettre ton code (un copier coller du code mis entre les balises [CODE] et [/CODE] fera l'affaire, pas la peine de faire une image

[Marc-L]

Bonjour Pierre.

Les données sont séparées par un ";" et par un retour à la ligne lorsque que l'on change de mode (charge ou décharge).

Plusieurs possibilités; joindre un fichier texte source et un classeur enregistré en .xlsx (donc sans code)
contenant une feuille de calculs correspondant exactement au résultat souhaité …

_________________________________________________________________________________________________________

Je suis Paris, Charlie, Bruxelles, …

[PeterPanPan]

jpcheck
lorsque je fais le pas a pas le programme passe par tout sauf dans la boucle du j.

Bonjour Marc
j'ai mis un exemple simplifié des résultats dans le fichier txt et ce que je désirerai dans le fichier xlsx.

[Marc-L]

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
Sub Demo1()
             Const FICHIER = "D:\Tests4Noobs\test.txt"
            If Dir(FICHIER) = "" Then Beep: Exit Sub
                                       F% = FreeFile
            Open FICHIER For Input As #F
            SPQ = Split(Input(LOF(F), #F), vbNewLine)
                                Close #F
            If UBound(SPQ) < 0 Then Beep: Exit Sub
    With Feuil1
            .UsedRange.Clear
        For R& = 0 To UBound(SPQ) + (SPQ(UBound(SPQ)) = "") Step 2
            C& = C& + 1
            SP = Split(SPQ(R + 1), ";")
                 .Cells(1, C).Value = SPQ(R)
            With .Cells(2, C).Resize(UBound(SP) + 1)
                 .Value = Application.Transpose(SP)
                 If Application.DecimalSeparator <> "." Then .Formula = .Value
            End With
        Next
    End With
End Sub

Comprendre en suivant le code en mode pas à pas (touche F8) tout en contrôlant le contenu de la fenêtre des Variables locales …

_________________________________________________________________________________________________________

Merci de cliquer sur pour chaque message ayant aidé puis sur pour clore cette discussion …

[PeterPanPan]

oui je vais me pencher dessus pour comprendre tout le fonctionnement.

Merci énormément Marc pour ton aide !

[Marc-L]

Attention, je viens d'optimiser les lignes de code n°16 et 17 …