Discussion :

[zamel]

Bonjour à tous

J'ai un fichier de BDD qui peut évoluer chaque jour (ajout ou suppression de données). 6 colonnes, qqes centaines de lignes.

A partir de ce fichier je crée un dictionnaire grâce à la macro suivante :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
Public Sub CréationTableInfoClients()
Dim A
Dim k As Long
 
WSClients1.Activate
 
Set TableInfoClients = CreateObject("scripting.dictionary")
A = [A1:F50000]
For k = 1 To 50000
TableInfoClients.Item(A(k, 1)) = Array(A(k, 1), A(k, 2), A(k, 3), A(k, 4), A(k, 5), A(k, 6))
Next k
 
End Sub

Jusque là tout va bien.

Je lis ensuite des données dans un autre fichier, qui correspondent à mon A(k,1), la clé du dico.
Et je récupère une donnée via la ligne suivante :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ConfigurationClient = TableInfoClients(CodeClient)(2)

Vu que le fichier de BDD évolue, il arrive que le "CodeClient" ne soit pas présent dans le dictionnaire.

Il en ressort donc une erreur d'incompatibilité de type, ce qui est normal.
Comment pourrait on résoudre ceci ?

Je souhaiterai simplement que si le "CodeClient" n'est pas présent dans le dictionnaire, alors ConfigurationClient = ""

J'ai essayé divers trucs :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

If ... isnothing then...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

If TableInfoClients.exists(CodeClient) then ... Else...

Rien ne fonctionne.

Je vous remercie

Yann

[Boulatwo]

Bonjour,

Pourquoi n'essaierai tu pas de compléter ta base en amont qui possède des éléments nuls avant de l'associer à ton dico:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
 
For k = 1 To 50000
 
      If A(k, 2) ="" then
               A(k, 2) = "123456789" 'Code que tu choisis permettant d'identifier un code client vide
      end if
 
      TableInfoClients.Item(A(k, 1)) = Array(A(k, 1), A(k, 2), A(k, 3), A(k, 4), A(k, 5), A(k, 6))
 
Next k

[Pierre Fauconnier]

Salut.

Si ton code client est en bien en colonne A, et donc dans A(k,1), If TableInfoClients.exists(CodeClient) then ... Else... devrait fonctionner. Es-tu sûr de ton CodeClient au moment de passer sur la ligne?

Attention qu'il n'y a pas de transtypage des clés. Si tu as valorisé une clé numérique, tu ne peux pas rechercher une clé String.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Sub Test1()
  Dim d As New Scripting.Dictionary
 
  d.Add 1, "Pierre"
  d.Add 2, "Martine"
 
  Debug.Print d(2) ' ==>> renvoie "Martine"
  Debug.Print d("2") ' ==>> renvoie ""
End Sub

[zamel]

Merci à vous, il y avait bien un "transtypage" des clés.

J'ai modifié

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

TableInfoClients.exists(CodeClient)

en

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

TableInfoClients.exists(CStr(CodeClient))

Cordialement

Yann D.