Tableau dynamique et personnalisé

Question

C'est la première fois que j'aborde ce sujet et je n'ai pas la solution à tout, donc si vous pouviez m'aider...

C'est créé dans un module une procédure Type

Public Type DonnéeCur    
It As Integer   
PictH As Integer
Donnée() As Variant
End Type

Les 2 variables It et PictH contiennent des valeurs entières et Donnée (si j'ai bien compris) me permet de déterminer le nombre de nouvelle entrée que je veux.

J'ai ensuite créé au niveau de ma form une procédure.

Dim Ed as DonnéeCur

Public Sub EnrDonnée()
Dim Ed as DonnéeCur
Edit = X
Ici X est un cumul donc Edit prendra la valeur 1 puis 2 puis 3
etc, etc...
Espace_Image = Total
Ici Total est un cumul de 40 en 40. La première valeur
sera 0 puis 40 puis 80 etc, etc

With Ed
.It = EdIt
.PictH = Espace_Image
End With
End Sub

La première question que je me pose est la suivante : dois-je mettre une procédure Redim  dans cette procédure et si oui
pouvez-vous me dire laquelle

Ensuite ce que j'aimerais c'est pouvoir afficher ces valeurs dans 2 TextBox ligne par ligne en cliquant sur un Command

PrivateSub Command1
Z = Z + 1
Là je n'arrive pas à créer la bonne procédure. Je voudrais qu'à chaque clic sur le Command1 s'afficher les valeurs It et Pitch de la ligne suivante.
End sub

J'espère que je me suis bien expliqué et surtout que vous pourrez m'aider.

Meci par avance

cs_CanisLupus · Answer

Je ne sais pas si g bien compris mais j'aurais plutot écrit :
Public Type DonnéeCur 
It As Integer 
PictH As Integer
End Type

ensuite un :
dim ed(Taille) as DonnéeCur 

si tu ne connais pas la taille alors au moins
dim ed(1) as DonnéeCur 
et ensuite des redim preserve pour ajouter tes valeurs

pour afficher sur un clic :

i=i+1 
text1=ed(i).It
text2=ed(i).PictH 

i étant déclaré au niveau de la form comme dim i as integer(ou long) et initialisé à 0 dans le load par ex. Enfin, à la place de i tu peux choisir cpt ou un autre nom de variable.

Je ne sais pas si ça t'aide mais je crois que c par là qu'il faut chercher.

Cordialement

CanisLupus

Scalpweb · Answer

Mon avis se rapprocherais de Canis Lupus. Mais je ferais un truc comme ça :

Public Type DonnéeCur 
 It As Integer 
 PictH As Integer
End Type

Public ed() as DonnéeCur

puis :
Sub EnrDonnee()
 i = i + 1
 redim preserve ed(1 to i)
 ed(i).it = Edit
 ed(i).pictH = espace_image
End Sub

Note : i doit être déclaré dans la form comme ceci :
Dim i as long

puis, dans formload, tu mets :
i = 0

Ensuite, pour ta dernière procédure :
Sub command1_Click()
   r = r + 1
   text1.text = ed(r).id
   text2.text = ed(r)pictH
End Sub

Note : r doit être déclaré de la ^m façon que i

puis, dans formload, tu mets :
r = 0

Voilà, @+

Scalpweb · Answer

Tu peux m'écrire s'il y a un pbm...

Pice-WCorp bientôt sur le net.