Inserer les coodonnees d'une celle trouvee dans Dictionary

[nougitch]

Bonjour,

J'ai un tableau...
Je souhaite entrer dans un Dictionary les colonnes qui m'interesse en specifiant les entetes comme Keys du Ductionary.
J'aimerais ensuite faire une recherche sur toutes les entetes et associer les coordonnees de la cellule de chaque Keys en Items.

Veuillez trouver un exemple simplifie en piece jointe.
Merci par avance pour votre aide.
Cdt,

 

[ChTi160]

Re : Inserer les coodonnees d'une celle trouvee dans Dictionary

Salut nougitch
Bonjour le Fil (à mon ami Pierrejean qui ne saurait tarder Lol)
bonjour le Forum

ne pourrais tu mettres un exemple de ce que tu veux obtenir et le pourquoi de cette récupération de l'adresse des cellules

exemple je veux récupérer pour la ligne 2

Colonne --C-----D-----E-----F
Ligne 2 |Guitare | | 8803295 |1|

Guitare $C$2
Vide $D$2
8803295 $E$2

pas evident de comprendre d'après l'exemple Lol
dans l'attente
Bonne fin de journée

 

[nougitch]

Re : Inserer les coodonnees d'une celle trouvee dans Dictionary

Hello CHTI,

Merci pour ton aide.
En fait, j'aimerais recuperer l'adresse de la cellule dans laquelle il y a la valeur "Instrument", en l'occurrence, C5.

Dans la Sub normal (), tu peux voir un exemple.
Mais j'aimerais le faire avec le Dictionary par pratique, car dans mon exemple concret j'ai beaucoup de cellule a retenir.

Merci encore !

 

[pierrejean]

Re : Inserer les coodonnees d'une celle trouvee dans Dictionary

bonjour a tous et à mon ami jeanMarie

Je me repete:
Le Dictionary n'est pas adapté a ce genre d'exercice (comme je le comprends)
A chaque clé (unique) correspond un Item
Comme tu l'as vu on peut artificiellement loger plusieurs infos dans un Item voire même dans une clé mais il s'agit d' 'acrobaties'
Comme le dit JeanMarie, expose ton problème en termes de resultat final et lui moi ou tout autre contributeur pourra te proposer une solution

 

[jeanpierre]

Re : Inserer les coodonnees d'une celle trouvee dans Dictionary

Bonsoit PierreJean, JeanMarie, nougitch,

J'ai failli répondre, il y a une heure, mais m'en suis abstenu...

Je crois que nougitch fait une obsession sur Dictionary alors que cela ne s'applique pas à son problème.

Comment lui faire comprendre... ?

Bonne soirée tous, avant de meilleures explications.

Jean-Pierre

 

[nougitch]

Re : Inserer les coodonnees d'une celle trouvee dans Dictionary

Bonjour CHTI, JEANPIERRE, PIERREJEAN, les autres,

Merci pour vos commentaires.
Je comprends que Dictionary ne soit pas adapte a ce cas.
Ceci dit, comme j'aimerais aller un peu plus loin dans mon apprentissage de cette fonction, j'aimerais, pour rester sur le meme exemple, avoir un dictionnaire de la sorte :

KEYS----------------ITEMS
Instrument-----------$C$5
Livraison-------------$D$5
Quantite restante----$E$5

Je vous joins a nouveau mon fichier Excel.
Merci encore pour votre aide !

 

[BOISGONTIER]

Re : Inserer les coodonnees d'une celle trouvee dans Dictionary

Bonjour,

Sub Dictionnaire()
  Set mondico = CreateObject("Scripting.Dictionary")
  mondico.Add [C5], [C5].Address
  mondico.Add [D5], [D5].Address
  mondico.Add [C5], [D5].Address
  [I15].Resize(mondico.Count, 1) = Application.Transpose(mondico.keys)
  [J15].Resize(mondico.Count, 1) = Application.Transpose(mondico.items)
End Sub

JB

 

[pierrejean]

Re : Inserer les coodonnees d'une celle trouvee dans Dictionary

Re

Ma version

 

[nougitch]

Re : Inserer les coodonnees d'une celle trouvee dans Dictionary

BOISGONTIER, PIERREJEAN, merci bcp.
C'est parfait, exactement ce que je voulais.
Très bonne soirée et bon we !

 

[nougitch]

Re : Inserer les coodonnees d'une celle trouvee dans Dictionary

Pierrejean, Jeanpierre, Boisgontier, le Forum,

J'ai encore une petite question sur la manipulation des donnes du Dictionary

A partir d'un Dictionary, je souhaite pouvoir recuperer la valeur de l'Item associe a une Key que je fige dans le code.

L'exemple joint a ce post vous sera parlant.
Bien sur, cet exemple n'a aucun sens.

Merci par avance pour votre aide !