Scripting Dictionary (même item sur différentes keys)

Résolu/Fermé
Identifiant_Anonyme Messages postés 12 Date d'inscription vendredi 9 mai 2014 Statut Membre Dernière intervention 20 juin 2014 - 19 juin 2014 à 16:55
michel_m Messages postés 16602 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 - 20 juin 2014 à 10:15
Bonjour à tous,

Je travaille sur un fichier assez mal fichu et énooorme, que je ne peux absolument pas modifié (il y a beaucoup de cellules vides, le même pays revient parfois plus loin...) et je dois faire avec). :-((

Bref, j'ai créé un scripting.dictionary adapté à ce fichier pour recenser des villes par pays.
Je crois que ça fonctionne, sauf qu'il y a des villes qui existent dans plusieurs pays, et là mon dictionnaire bloque.

Un des buts du fichier sera de mettre en évidence ces villes qui se trouvent dans plusieurs pays (j'ai mis en rouge les commentaires), mais pour l'instant, ma question est simplement : Mais où est l'erreur qui m'empêche de terminer mon dictionnaire ??

Quelqu'un saurait-il m'aider ?
Je joins un modèle réduit de ce fameux fichier.

Merci beaucoup.


https://www.cjoint.com/?3Ftq0B1dlrw
A voir également:

2 réponses

Réponse 1 / 2
Identifiant_Anonyme Messages postés 12 Date d'inscription vendredi 9 mai 2014 Statut Membre Dernière intervention 20 juin 2014 1
20 juin 2014 à 08:56
Bonjour,

Je ne m'attendais pas à une réponse si rapide... Merci.

Mon codage ne devait pas être très bon (pusique tu l'as modifié), je vais donc essayer de comprendre les éléments qui me sont inconnus (Redim et UBound, au moins), et ensuite j'essayerais de continuer.

Merci beaucoup, déjà, c'est très aimable.
Je place en Résolu et reviendrai éventuellement si je bloque encore.

I:I
1
michel_m Messages postés 16602 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 3 313
20 juin 2014 à 10:15
Bonjour

Je ne m'attendais pas à une réponse si rapide... Merci.

Le problème m'avait branché ;o)

pour des explications sur Ubound et Redim voir ce tuto très complet
https://silkyroad.developpez.com/vba/tableaux/
0
Réponse 2 / 2
michel_m Messages postés 16602 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 3 313
Modifié par michel_m le 19/06/2014 à 22:21
Bonjour,

une alternative:
Ci joint proposition donnant les pays par villes ( les clés du dico sont les villes)
https://www.cjoint.com/?3FtwpBgsD7L
Attention à la casse dans "dans le pays ....."

la macro (on devrait peut-^tre aller + vite mais...) 
Option Explicit
Option Base 1

Sub lister_Pays_par_ville()
Dim Nbre As Integer
Dim T_pays, Cptr_a As Integer, Lig As Long
Dim D_ville As Object, Cptr_b As Integer, Ville As String

'initialisations
Application.ScreenUpdating = False
Range("G2:H1000").Clear
Set D_ville = CreateObject("scripting.dictionary")
Nbre = Application.CountIf(Columns("A"), "*dans le pays*")
ReDim T_pays(Nbre, 3)
Lig = Rows.Count

For Cptr_a = 1 To Nbre
     'limites par pays
     Lig = Columns("A").Find("dans le pays", Cells(Lig, "A")).Row
     T_pays(Cptr_a, 1) = Lig
     If Cptr_a = UBound(T_pays) Then
          T_pays(Cptr_a, 2) = Columns("A").Find("*", , , , , xlPrevious).Row
     Else
          T_pays(Cptr_a, 2) = Columns("A").Find("dans le pays", Cells(Lig, "A")).Row
     End If
     'nom pays 'SENSIBLE A LA CASSE
     T_pays(Cptr_a, 3) = Application.Substitute(Cells(Lig, "A"), "dans le pays ", "")
     
     'affectations au dictionary
     For Cptr_b = T_pays(Cptr_a, 1) To T_pays(Cptr_a, 2)
          Ville = Cells(Cptr_b, "B")
          If Ville <> "" Then
               If Not D_ville.exists(Ville) Then
                    D_ville.Add Ville, T_pays(Cptr_a, 3) & " "
               Else
                    D_ville.Item(Ville) = D_ville.Item(Ville) & T_pays(Cptr_a, 3) & " "
                    'test = D_ville.Item(Ville)
               End If
          End If
     Next
Next
'restitution pays par ville
Range("G2").Resize(D_ville.Count, 1) = Application.Transpose(D_ville.Keys)
Range("H2").Resize(D_ville.Count, 1) = Application.Transpose(D_ville.items)
End Sub

--
Michel
0

Discussions similaires

Avis site DHgate .
Jack_1057 -
bazfile -

Bonjour il y a quelque semaine j'ai commande une paire de Jordan 4 sur DHgate et en essayant de suivre mon colis j'ai vue qu'il y avait écrit (item returned from customs) se qui veut dire en français (objet retourner par la douane) que dois je faire aidez moi svp ????????

1 réponse
dual channel : 2 paires de ram de capacité différente
damdam -
damdam -

Bonjour ou bonsoir, Je sais que le sujet est beaucoup traité, mais je n'arrive pas à trouver de réponse à ma situation spécifique. J'ai 2 barrettes de ram G.skill 16gb 3600 MHz CL17 avec une carte mère dual channel avec 4 slots. Je voudrais prendre 2 autres barrettes G.kill 3600mhz cl17, mais avec une capacité de 8gb. Je sais qu'il est possible d'utiliser ces 2 paires ensemble sans brider la latence ou la fréquence, mais je ne sais pas si le dual channel peut brider les capacités de mes 2 barrettes de 16gb en les passant à 8gb. Es qu’au final je vais me retrouver avec 4 barrettes de 8gb soit 32gb de RAM ou avec 2 barrettes de 16gb et 2 barrettes de 8gb soit 48 gb de RAM au total ? Est-ce...

6 réponses
c'est quoi un items?? c#
^-^ -
Non2 -

Bonjour,
simple question c'est quoi un items (dans une listview) et sa sert a quoi ?? merci

4 réponses
Colis DHgate bloqué douane
Anonyme92 -
kiki -

Bonjour, j’ai commandé il y’a 2semaines un maillot de foot à 15€ sur DHgate. ( sur la photo de l’annocne il n’y avait pas de marque comme Adidas ou Nike il y avait juste le logo de l’equipe). Je surveillais régulièrement le statut de mon colis. En regardant son statut aujourd’hui je lis « en attente de dédouanement ». J’ai peur d’avoir des problèmes et de payer des amendes très chères. Pourriez vous m’éclairer sur ce sujet svp. Aurai-je des problèmes ? J’ai peur d’aller en justice ou des choses comme ça.

8 réponses
Colis VOVA dédouanement complété
Jerome544 -
Afrikarnak -

Bonjour, j’ai commandé une paire de chaussure sur vova et je voulais savoir si mon colis a été saisi par la douane ou pas. Ayant l’habitude de commander c’est la première fois je ne comprends pas mon suivi ni la plateforme anjun.
Pouvez-vous m’éclaircir?

Dédouanement complété, arrivé au centre de traitement, GB
2019-04-16 09:33
Arrivé à l’aéroport de destination de sort Facility, GB
2019-04-16 00:45
Installation de départ à l’aéroport INTERNATIONAL de HONG KONG, HongKong
2019-04-14 15:30
Arrivé à sort Facility HONG KONG INTERNATIONAL AIRPORT, HongKong
2019-04-14 03:05
Installation de départ à SHENZHEN, Shenzhen <...

13 réponses