Tableau dans procédure

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,

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

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:

---

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

---

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).

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:

---

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

---

Ta ligne 11 :

Code:

---

tabdat(n)

---

n'a aucun sens ! :cfou:

Bonjour,

Je ne dois pas redimensionner le tableau à chaque incrément de n ?
Quelle est donc la méthode ?

Cordialement,

Citation:

---

Je ne dois pas redimensionner le tableau à chaque incrément de n ?

---

Bien évidemment, que tu dois le redimensionner.
Ce n'est pas ce que ferait ta ligne 11 !

Citation:

---

Quelle est donc la méthode ?

---

Celle que tu voudras bien lire en ouvrant ton aide interne VBA à la rubrique Redim, Instruction

Bonjour,

Effectivement je n'avais pas affecté de variable au tableau. Cependant, la variable précédente n'est pas conservée dans le tableau.
Ou fais-je encore une erreur ?

Cordialement,

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17

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)= listdat saisiedat.Tblistdat.Value = Tblistdat.Value & sep & listdat msgbox tabdat(n) msgbox tabdat(0) n = n +1   End Sub

---

si n (dont on ne voit pas où et comment tu l'as déclaré) n'a pas été déclaré en Private dans ton module de code ou en Public dans un module standard, il a toujours la valeur 0 à chacun de tes clics !

Bonjour,

J'ai bien déclaré n en "public" dans le module1 en faisant Public Dim n as integer. Dois-je ajouter quelque chose dans la déclaration ?

Merci encore pour votre aide,

Cordialement,

Citation:

---

en faisant Public Dim n as integer

---

Et le fait que cette ligne de code se soit immédiatement mise en rouge dans ton éditeur vba t'a laissé totalement indifférent ?

Désolé,

il fallait lire bien sûr

Code:

---

1 2	Public n as integer

---

Cordialement

Citation:

---

il fallait lire ...

---

1) Ah ... tu sais quoi ? Moi, je lis généralement ce qui est écrit
2) si tu as bien déclaré n en public dans un module, le tableau s'incrémente sans problème... sauf si ... sauf si tu as par ailleurs déclaré et initialisé dans ton module de code une autre variable également appelée n
3) compte tenu des divergences constatées entre ce que tu écris et ce qu'il "faudrait lire", je ne me méfierai comme de la peste de toutes les lignes de code qui ne seraient pas un copié/collé rigoureux du code que tu as écrit (désolé) !

4) Et puis et surtout :
Quelle est selon toi la conséquence de cette ligne de code qui est exécutée à chaque clic :

Code:

---

Dim tabdat()

---

hein ?

EDIT : ne me réponds qu'après avoir lu (entièrement) la rubrique Dim, instruction de ton aide interne VBA.

Re,

Je te remercie pour le temps que tu as pris pour m'aider, mais j'ai besoin d'avancer sur le projet et je perds trop de temps sur ce point.
J'ai contourné le problème en écrivant les différentes valeurs de dates dans une plage de cellules sur une feuille du classeur.
J'essaierai de revenir sur ce point plus tard.
Merci encore.

Cordialement,

Citation:

---

et je perds trop de temps sur ce point

---

Oh ! ... (que sera-ce du reste, si tu butes sur du si simple ?):koi:

Citation:

---

Oh ! ... (que sera-ce du reste, si tu butes sur du si simple ?)

---

Tout est simple quand on connait ;)

Et quand on "ne connaît pas", on s'informe.
Qu'as-tu fait de mon message 14 et de son EDIT, histoire de t'informer et "connaître" ? Rien ?

J'ai pris bonne note de ton message 14 et ne manquerai de "m'informer" très avant sur la syntaxe exacte de l’instruction "Dim"
Mais si je n'avais qu'à lire les instructions internes en vba pour "connaitre", je n'aurais pas besoin du forum.
Je comprends tout à fait que donner la solution clés en main ne sert à rien pour progresser, je suis le premier à essayer de chercher la solution par moi-même (merci google).
Cependant, si les supports (tutos, manuels...) ne sont pas suffisants, c'est que l'on a besoin d'une aide plus spécifique.
Dans le cas présent, j'ai fais en sorte de contourner le problème pour finir mon travail. En tant que petit développeur non professionnel et qui plus est, occasionnel, je prendrai le temps une prochaine fois (et pour ma satisfaction intellectuelle), de creuser pourquoi je bute sur ce point.
Merci encore pour les conseils, mais souvent on peut avoir l'explication sous le nez et pourtant ne pas la voir.

Cdt,