Item de collection

Version imprimable

17/04/2015, 14h31
Sebphyto

2 pièce(s) jointe(s)

Item de collection

Bonjour le forum,

Je souhaiterai utilisé les items d'une collection en lui disant que:

Item 1 = C1
item 2 = C2
item 3 = C3, etc....jusqu'à C8

Pièce jointe 175126

comment peut-on récupérer ces informations?

De plus, je dois les consignés dans un tableau sur 3 feuilles différentes comme cela en sachant qu'a chaque nouveau jour il doit sauter un ligne pour une nouvelle saisie:
Comment réaliser ceux-ci?
Pièce jointe 175127

Merci pour votre aide

Seb
17/04/2015, 15h59
eric4459
Bonjour Sebastien,
Essayes
Code:

1 2 ColCourses(1) = Range C1 ColCourses(2)=Range C2
ou

Code:

ColCourses(i)= Range("C"& i )

en faisant varier i
Eric
17/04/2015, 16h13
Invité

Bonjour,
Tu as plusieurs fois c1,c2 etc..

Comment penses tu faire la différence?
Ce que tu demandes ne pose pas de problème car on peut définir la clé sur une collection mails elle est unique!
17/04/2015, 16h51
Sebphyto

Salut Eric et rudurupt,

En gros voilà, dans la collection je récupère un certain nombre d'items ( des liens), pour chaque lien j'ai une requête, chaque requête je récupère des données qui sont consignées dans une BDD, et je voudrai que pour chaque requête dans ma BDD il inscrive sur chaque ligne C1, C2, C3 etc... (a savoir que le C n'est qu'une appellation cela aurai pu être Z ou W)
C1 pour le requête 1
C2 pour le requete 2 etc...

Seb

Code:

1
2
collection1.add valeur,"c1"
Début.print collection1("c1")

17/04/2015, 17h18
Sebphyto
Re,

Heuuuu,
Code:

1 2 collection1.add valeur,"c1" Début.print collection1("c1")
Je ne sais pas comment exploiter ce que tu m'as suggéré.....Valeur??? et pourquoi que "C1"......Désolé mais c un peu ambiguë :oops:
17/04/2015, 17h43
Invité

Valeur représente ta requête et c1 la clé de ton item ainsi tu peut récupérer ta requête en donnant le nom de la clé par besoin de faire de recherche!
17/04/2015, 18h37
Sebphyto

1 pièce(s) jointe(s)
sauf que si j'ai 8 requêtes il faut que je code 8X ceci
Code:

1 2 collection1.add valeur,"c1" Début.print collection1("c1")
Pourquoi Début.print??? ----> debug??

Bref je pense que tu as compris ---> je suis largué, je ne comprend pas

Voici une autre explication en image pour savoir si l'on parle de la même chose:
Pièce jointe 175159

En gros le "nom" de chaque requête si il y en à 8, sera
C1 pour le requête 1
C2 pour le requete 2 etc...

Bonsoir,

Le dictionnaire est + simple que les collections.
Un item de dictionnaire (ou de collection) peut être un tableau.

Code:

1
2
3
4
5
6
7
8
9
10
 
Sub EssaiDictionnaire()
  Set d = CreateObject("Scripting.Dictionary")
  d.Item(#4/13/2015#) = Array("c1", "c2", "c3")
  d.Item(#4/14/2015#) = Array("c11", "c12", "c13")
  d.Item(#4/15/2015#) = Array("c21", "c22", "c23")
  MsgBox d.Item(#4/14/2015#)(0)
  a = d.Item(#4/14/2015#)
  MsgBox a(2)
End Sub

Jacques Boisgontier

18/04/2015, 11h16
Sebphyto

bonjour JAcques et le forum,

Merci de ta participation,

Pourrai-tu m'expliquer ton code, quel est ici le rapport avec les dates?

J'ai déjà utilisé le dictionnaire, mais je ne vois pas comment l'appliquer à ma demande.

Seb bon week à tous

Bonjour,
Le début.print envoi le résultat dans la fenêtre d'exécution, raccourci clavier [Ctrl] + [G].

Si tu as 8 requêtes:
Code:

1 2 3 4 5 6 collection1.add requete1,"c1" collection1.add requete2,"c2" collection1.add requete2,"c3" '........ collection1.add requete8,"c8" Debug.print collection1(range("B5"))

24/04/2015, 15h43
Sebphyto

Salut le forum,

MErci de votre aide, je viens de résoudre le souci en incorporant dans une boucle déjà existante (d'une collection), un compteur ici de requête....

Sans votre aide je n'y serai pas arrivé

A bientôt

Seb