Recherche d'une variable dans un tableau

Question

Bonsoir,

Je voudrais savoir d'une part si il est possible de créer un tableau dans VB6 au format du fichier excel ! si non le cas échéant de pouvoir lire une feuille excel, de choisir dans une listbox la lettre "C", dans une autre,la nature "PR 3", en enfin dans la dernière listbox le type "cuivre ".
De prendre un résultat calculé issue d'un labelcaption et prendre immédiatement la valeur supérieure dans le tableau , dans notre cas 147 et de trouver la section "35"

Merci à tous 


B	PVC 3	PVC 2		PR 3		PR 2			
C		PVC 3		PVC 2	PR 3		PR 2		
E			PVC 3		PVC 2	PR 3		PR 2	
F				PVC 3		PVC 2	PR 3		PR 2
S (mm2)	1	2	3	4	5	6	7	8	9
Cuivre									
1.5	15,5	17,5	18,5	19,5	22	23	24	26	
2.5	21	24	25	27	30	31	33	36	
4	28	32	34	36	40	42	45	49	
6	36	41	43	48	51	54	58	63	
10	50	57	60	63	70	75	80	86	
16	68	76	80	85	94	100	107	115	
25	89	96	101	112	119	127	138	149	161
35	110	119	126	138	147	158	169	185	200
50	134	144	153	168	179	192	207	225	242
70	171	184	196	213	229	246	268	289	310
95	207	223	238	258	278	298	328	352	377
120	239	259	276	299	322	346	382	410	437
150		299	319	344	371	395	441	473	504
185		341	364	392	424	450	506	542	575
240		403	430	461	500	538	599	641	679
300		464	497	530	576	621	693	741	783
400					656	754	825		940
500					749	868	946		1083
630					855	1005	1088		1254

cs_Jack · Answer

Salut
Oui, comme tu pourras le décovrir au travers des sources présentes sur le site, il est possible de lire un fichier Excel depuis VB6 (fais une recherche)
Pour le reste de ton casse-tête, pas tout compris :
- Les données que tu nous montres sont-elles les seules ?
Si oui, elles ne sont pas nombreuses et pourraient être inscrites en dure dans des tableaux de valeurs internes.
- Faire des ComboBox avec des choix "C", "PR 3", "Cuivre" : aisé
- A quoi vont te servir ces sélections ? Parce que je ne voit pas trop le lien entre ces sélections et le chiffre 147 que tu demandes à rechercher.
- Rechercher dans le tableau une valeur la plus proche et supérieure d'une donnée X : Il faudrait qu'on sache quelle valeur donnée X t'a servie à déterminer le 147 ...
Sinon oui, énumérer tous les éléments de plusieurs tableaux n'est pas impossible (imbrication de boucles sur des tableaux bi-dimensionnels)

Où sont actuellement stockées ces données ?
Cela déterminera la meilleure façon de les acquérir ou de les copier.
A mon avis, seul les valeurs numériques peuvent être intéressantes à stocker dans un tableau à deux dimensions :
Dim mTableau(0 To 18, 0 To 10) As Single
- Première dimension : la ligne
- Deuxième dimension : les données en colonne, en se réservant le 0 pour la section (1er chiffre de gauche)

Après, pour la recherche, il faudra faire deux boucles imbriquées (Ligne, Colone), des For-Next par exemple.
Il 'suffit', dans chaque ligne, de rechercher la première valeur supérieure à celle recherchée.
Chaque résultat sera stockée dans un tableau simple (dimension = ligne).
En fin de recherche, refaire une boucle pour chercher quelle est la valeur la plus petite (hors mis 0) de ce tableau : Ce sera la valeur supérieure la plus proche de la valeur recherchée --> On aura le numéro de ligne, donc le chiffre de mTableau(ceNoDeLigne, 0) sera la valeur choisie.

Vala
Jack, MVP VB
NB : Je ne répondrai pas aux messages privés

Le savoir est la seule matière qui s'accroit quand on la partage (Socrate)

STDANTIGNY · Answer

Bonsoir,

merci de votre réponse, j'aurais souhaité envoyé un fichier excel pour la comprehension ou image jpg commentée !!mais je n'ai pas trouvé comment joindre un fichier

Recherche d'une variable dans un tableau

2 réponses

Votre réponse

Discussions similaires