tableau en VB

Question

Bonjour,

Je souhaite cr&#233;er un tableau &#224; 2 dimensions, sans sp&#233;cifier le nombre d'&#233;l&#233;ments. Je veux ensuite aller chercher un fichier (excel par exemple) sur l'ordi, et recopier ces valeurs dans le tableau que j'ai cr&#233;e.
Comment puis je faire?

Merci pour vos r&#233;ponse
Cobazia

PCPT · Answer

private enum MesDimentions
   [Colonne 1] = 1
   [Colonne 2] = 2
end Enum

dim MonTableau() as MesDimentions

ensuite tu peux redimentionner comme tu veux...
(VB6)

PCPT

cs_DARKSIDIOUS · Answer

Hum, pourquoi faire un tableau d'enum ? Car l&#224;, c'est assez limit&#233; comme domaine d'utilisation !



'd&#233;claration :

Dim Tableau() As String



'redimensionnement :

Redim Preserve Tableau(NombreLigne, NombreColonne)



'Effacement :

Erase Tableau

DarK Sidious

Un API Viewer (pour le VB, VB.NET, C, C# et Delphi) : www.ProgOtoP.com/popapi/

PCPT · Answer

parce que le redim preserve n'est pas compatible avec un tableau multi-dimentionnel.
PCPT

PCPT · Answer

(pas en cours de fonctionnement, lorqu'il n'est pas vide....)

cobazia · Answer

Je vois comment d&#233;clarer mon tableau. Le probl&#232;me, c'est pour le remplir avec les donn&#233;es d'un tableau excel... Comment rentrer le nom du fichier source et copier ses donn&#233;es dans le tableau cr&#233;e.
Cobazia

PCPT · Answer

des dixaines de sources parlent de Vb / Excel

bribe :

Public ExlObj As Object

Set ExlObj = CreateObject("Excel.Application")
ExlObj.Visible = True
ExlObj.Workbooks.Open FileName:=App.Path & FichierXls, Editable:=True

MonTableu(9).[Colonne 1] = ExlObj.range("A9").Value
MonTableu(9).[Colonne 2] = ExlObj.range("B9").Value

PCPT

cs_CanisLupus · Answer

pcpt > j'ai l'impression que tu confonds Enum avec Type.
Les valeurs d'un Enum ne peuvent &#234;tre modifi&#233;es au moment de l'ex&#233;cution.

-------------------------------------------------
Dresseur de puces, .... normal pour un loup  !?

PCPT · Answer

CanisLupus > (sans &#233;corcher cette fois ) fatigue, stress, perte de cheveux, etc.. oui :

private Type MesDimentions
   Colonne1 as string
   Colonne2 as string
end Type

le fonctionnement reste le m&#234;me, mais merci de cette pr&#233;cision ;)

MonTableau(9).Colonne1 = ExlObj.range("A9").Value
MonTableau(9).Colonne2 = ExlObj.range("B9").Value

PCPT

cobazia · Answer

Le premier probl&#232;me, c'est d&#233;ja que je ne suis vraiment pas dou&#233;e en programmation.

Le second probl&#232;me, c'est que je ne cherche pas &#224; jouer avec des tableau excel &#224; parti d'un &#233;diteur visual basic dans excel. Toutes les info que je trouve sur internet parlent de ca.

Ce que j'ai, c'est un &#233;diteur visual basic incorpor&#233; dans un logiciel d'optique et j'ai besoin de r&#233;cup&#233;r&#233;r des donn&#233;es (longueur d'onde et transmittance) qui sont stock&#233;es dans un fichier excel.

Je cr&#233;e un tableau Reponse_CCD dans mon &#233;diteur VB. Je vais chercher l'adresse du tableau excel (source_reponse_CCD) dans ma boite de dialogue (car l'utilisateur aura &#224; changer l'adresse). J'ouvre le fichier excel pour le lire, et je recopie dans mon tableau Reponse_CCD dans mon &#233;diteur. Le fichier excel &#224; 2 colonnes num&#233;rot&#233;es de 1 &#224; 341. Que faut(il que je change pour que cela marche???

Dim
 Reponse_CCD ( 1 To 341, 1 To 341) As Double


Dim Source_Reponse_CCD As String


Source_Reponse_CCD = MyDialog.Adresse_Reponse_CCD


Open Source_Reponse_CCD For Input As #1




For k = 1 To 341


Reponse_CCD(k,1) = Source_Reponse_CCD.range("A1:A341").value


'Reponse_CCD (k,2) = Source_Reponse_CCD.range("Bk").value


Next k


Close #1

Merci de votre aide
cobazia

Tableau en VB

9 réponses

Discussions similaires