comment mettre stocker des résultats dans un tableau

[Reeaz]

Bonjour a tous ,

j'ai une macro qui me renvoie une suite de résultats, jaimerais mettre ces résulats dans un tableau pour pouvoir les exploiter après.
Comment faire?
dans le fichier joint il faut lancer la macro calendrier et mettre deux dates séparées d'un an par exmple avec un pas de 30.
Donc il renvoie toutes les dates entres les deux dates séparées d'un mois.
je voudrais donc récupérer ces données dans un tableau par exmple.
Si qqun avoit une solution,ce serait sympa car cela fait un moment que je galère la dessus...

Merci bcoup

 

[Celeda]

Bonjour,

Reeaz :

Je sais que @+Thierry n'est pas là, mais c'est pas une raison pour nous redonner ton message tous les cent posts.

Lien supprimé


Lien supprimé

et cent posts plus loin :

Lien supprimé


Cela ne fera pas avancer les choses plus vite. Si tu n'as pas eu de réponse c'est peut-être que certains bossent sur ton problème et qu'ils ont du mal. On fait ce que l'on peut sur XLD. C'est inutile d'engorger avec les fichiers aussi. On les lZIPPE Les fichiers sinon on va faire sauter le FORUM.

Ici il n'y a pas de réponse ''garantie''. Ce n'est pas un service après-vente 24 h sur 24 h. On essaie, alors laisse leur le temps et si tu n'as pas de réponse c'est peut-être parce que personne ne trouve de solution.

Merci pour ta compréhension.

Bonne journée
Celeda

 

[Ti]

voilà ta macro corrigée

Option Explicit

Sub calendrier()
Dim DateDepart As Date, DateMaturite As Date
Dim date1 As Variant
Dim date2 As Variant
Dim Pas As Variant
Dim Cel As Range

'date1 = "16/1/2003"
'date2 = "16/12/2003"
date1 = InputBox("Entrez la date à laquelle vous évaluez votre option ", "Date d'évaluation", Date)
date2 = InputBox("Entrez la date de maturité ", "Date de maturité", Date)
Pas = InputBox("Entrez le pas de l'option", "Pas de l'option")
DateDepart = CDate(date1)
DateMaturite = CDate(date2)


Set Cel = Range("A1")
While DateDepart < DateMaturite

DateDepart = DateAdd("d", Pas, DateDepart)
If DateMaturite - DateDepart < 100 Then Exit Sub
Cel = DateDepart
Set Cel = Cel.Offset(1, 0)
Wend

End Sub

 

[Celeda]

Bonsoir,

Bon, Ti , moi elle me semble cool ta macro et quand elle vient de toi on peut être sur à tous les coups que cela marche. C'est garanti MadeInTi.


C'est cela le service 24 H sur 24 H d'XLD et en plus d'un VBAMaster !

J'espére que XLD aura comblé les trois posts de Reeaz sinon cela sert quoi qu'il se décarcasse le Ti..................


Celeda