damlaine
Messages postés18Date d'inscriptionmardi 5 juillet 2011StatutMembreDernière intervention24 juillet 2011
-
5 juil. 2011 à 14:35
NHenry
Messages postés15102Date d'inscriptionvendredi 14 mars 2003StatutModérateurDernière intervention27 mars 2024
-
5 juil. 2011 à 22:17
Bonjour,
je rencontre un soucis pour ma programmation VBA Excel qui doit réaliser une extraction dans un bloc note et les placer dans des colonnes. Mon bloc note est sous cette forme :
[JUN 22 2011 11:00:09]: USR: MESURES PLATEAU FLACONS : 999
[JUN 22 2011 11:00:09]: USR:D(O/XY)=1536.12
[JUN 22 2011 11:00:09]: USR:D(O/XY)-D(X/Y)=50.23
[JUN 22 2011 11:00:09]: USR:D(O/X)-D(Y/XY)=-0.62
[JUN 22 2011 11:00:09]: USR:D(O/Y)-D(X/XY)=2.35
[JUN 22 2011 11:00:09]: USR:D(A2/A7)=1219.77 ; E(A2)=62.78 ; E(A7)=1282.07
[JUN 22 2011 11:00:09]: USR:D(A3/A6)=1221.53 ; E(A3)=20.24 ; E(A6)=1241.25
[JUN 22 2011 11:00:09]: USR:D(B1/B4)=1168.04 ; E(B1)=-189.57 ; E(B4)=978.42
[JUN 22 2011 11:00:09]: USR:D(B8/B5)=1172.19 ; E(B8)=-188.99 ; E(B5)=983.16
[JUN 22 2011 11:00:09]: USR:FIN MESURES
[JUN 22 2011 11:01:43]: USR: MESURES PLATEAU FLACONS : 998
[JUN 22 2011 11:01:43]: USR:D(O/XY)=1535.85
[JUN 22 2011 11:01:43]: USR:D(O/XY)-D(X/Y)=38.87
[JUN 22 2011 11:01:43]: USR:D(O/X)-D(Y/XY)=-0.58
[JUN 22 2011 11:01:43]: USR:D(O/Y)-D(X/XY)=6.61
[JUN 22 2011 11:01:43]: USR:D(A2/A7)=1219.61 ; E(A2)=62.34 ; E(A7)=1281.65
[JUN 22 2011 11:01:43]: USR:D(A3/A6)=1221.48 ; E(A3)=25.43 ; E(A6)=1246.58
[JUN 22 2011 11:01:43]: USR:D(B1/B4)=1167.98 ; E(B1)=-189.57 ; E(B4)=978.36
[JUN 22 2011 11:01:43]: USR:D(B8/B5)=1172.17 ; E(B8)=-188.92 ; E(B5)=983.21
[JUN 22 2011 11:01:43]: USR:FIN MESURES
Donc vous comprenez bien qu'il y a x mesures. Ce que je veux extraire sont les coordonnées chose que j'arrive à faire grace aux fonctions InStr() et Mid(). Cependant pour la prochaine étape je n'arrive pas à la réaliser. Cette étape est de placer ces coordonnées dans un tableau de telle sorte qui ressemble à ceci :
Pallette Flacons........Mesure 1.........Mesure 2........etc
Date H:MN
D(O/XY)
D(O/XY)-D(X/Y)
Etc
Pour réaliser cette étape il faut utiliser les pointeurs, c'est ce qu'on m'a conseillé, sauf que pour ça j'ai aucune notion. D'ailleurs ça fait seulement un peu plus d'une semaine que j'ai découvert la programmation VBA.
Donc si vous pouvez m'aider à m'en sortir c'est très important s'il vous plait.
Merci d'avance Cyril.