Discussion :

[nocha]

Bonjour,

Programmant peu souvent, je suis totalement perdu sur un problème de tableau. Je cherche à ajouter, à partir d'une procédure évènementielle (choix d'une date par click de souris dans un monthview), les différentes dates choisies au clic, dans un tableau. Mais les valeurs ne sont pas conservées dans celui-ci lorsque je sors de la procédure.
Pouvez-vous me dire comment écrire ces enregistrements dans le tableau (qui doit être dynamique puisque je ne sais pas le nombre de dates que va choisir l'utilisateur) ?

Je vous remercie par avance de votre aide et vos conseils.

Cordialement,

[unparia]

Bonjour
Seraient nécessaires plus de précisions, ainsi que le code écrit (entre balises codes).

[nocha]

Bonsoir,

Je vous remercie de prendre le temps de me répondre.
J'ai un userform contenant un contrôle "monthview", dont le code est ci-dessous, qui permet à l'utilisateur (du moins c'est ce que je souhaiterais faire) de choisir plusieurs dates que je liste par ailleurs dans un textbox (listdat). Je souhaitais enregistrer dans un tableau, les différentes dates cliquées par l'utilisateur. Comment dois-je faire ?
Je pense avoir besoin d"une variable (n) pour incrémenter l'indice du tableau "tabdat" dynamique car je ne sais combien de date l'utilisateur va choisir. Mais après je ne sais plus. si je mets n à 0 sur chaque entrée dans la procédure, je pers mon indice. je dois donc la déclarer publique ? et ajouter n=n+1 en fin de procédure ? La valeur de tabdat(n) n'est pas conservée quand je lis le tableau avec un msgbox.
Merci pour votre aide,
Cordialement

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
 
Private Sub calend1_DateClick(ByVal DateClicked As Date)
Dim n As Integer
Dim sep, listdat As String
Dim tabdat()
 
listdat = ""
sep = " - "
calend1.TitleBackColor = &HC0C000
listdat = Format(Me.calend1.Value, "dd/mm/yyyy")
saisiedat.Tblistdat.Value = Tblistdat.Value & sep & listdat
 
End Sub

[unparia]

Bonjour
- une variable compteur (pour incrémenter à la fois la dimension du tableau et l'index devant recevoir la valeur) accessible depuis ton code (donc soit déclarée Private dans le module de code, soit déclarée Publique dans un module standard)
- intéresse-toi à Redim Preserve (rubrique de ton aide interne VBA : ReDim, instruction à lire en t'attardant sur ce qui y est dit en ce qui concerne le mot-clé Preserve).

[nocha]

Bonsoir,
Voila ce que j'ai fait. J'ai déclaré n en variable publique dans le module 1, puis ajouté les lignes de codes suivantes.
Mais je n'ai toujours pas les valeurs conservées dans le tableau. La première fois oui, (1ere date choisie) mais à la deuxième, le premier indice est vide. Qu'est-ce que je rate ?
Merci encore

Dans module1 j'ai déclaré n as integer
Puis voici ce que j'ai rajouté en suivant vos conseils ;

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
 
Private Sub calend1_DateClick(ByVal DateClicked As Date)
Dim sep, listdat As String
Dim tabdat()
 
Redim preserve tabdat(0 to n)
listdat = ""
sep = " - "
calend1.TitleBackColor = &HC0C000
listdat = Format(Me.calend1.Value, "dd/mm/yyyy")
tabdat(n)
saisiedat.Tblistdat.Value = Tblistdat.Value & sep & listdat
msgbox tabdat(n)
n = n +1
 
End Sub

[unparia]

Ta ligne 11 :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

tabdat(n)

n'a aucun sens !