Les pointeurs

Fermé
damlaine Messages postés 18 Date d'inscription mardi 5 juillet 2011 Statut Membre Dernière intervention 24 juillet 2011 - 5 juil. 2011 à 14:36
 le père - 6 juil. 2011 à 12:05
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.


3 réponses

Bonjour,

Il n'y a pas de pointeurs en VBA, et il n'y a aucune raison d'en utiliser.
Je n'ai pas compris grand chose à la forme du tableau que tu cherches à avoir, mais si tu sais extraire tes données, tu n'as plus qu'à les placer aux endroits convenables :

Dim sh as sheet
set sh = thisworkbook.sheets("tafeuille")

sh.cells(ligne,colonne)=valeur;
0
Oui je sais mais je voudrait une fonction qui y ressemble.
Pour placer mes extractions j'utilise ce que t'as dit mais utile pour ce que je veux faire. Puisque j'ai des extractions qui viennent à la suite et chaqu'une doit automatiquement se placer sur une ligne dans différentes colonnes. Tu vois ce que je veux dire ?
En tout cas merci pr ta réponse
0
Bonjour,

Une fonction qui ressemble à quoi ? Aux pointeurs ? Je ne vois vraiment pas l'intérêt de simuler une notion que tant de gens ont du mal à assimiler, alors qu'elle est totalement inutile en VB

Pour ce qui est de placer les valeurs dans différentes lignes et différentes colonnes, où est le problème ? Avec sh.cells(ligne,colonne)=valeur; tu indiques directement la ligne et la colonne où tu veux ranger ta valeur. Qu'est-ce qui te gêne ? Tu fais ligne=1 au début si tu veux commencer à la première ligne, ligne=ligne+1 pour passer à la ligne suivante, même chose pour les colonnes...
Maintenant, c'est ton programme, c'est à toi de savoir quand tu veux passer à la ligne ou à la colonne suivante, ou même revenir en arrière.
0