XL 2019 Comment utiliser Scripting.Dictionary

  • Initiateur de la discussion Initiateur de la discussion akni
  • Date de début Date de début

akni

XLDnaute Nouveau
Bonjour tout le monde,

Je cherche une explication comment utiliser les données sous forme de dictionary, j'ai trouvé dans le net un fichier exemple d'utilisation du
Scripting.Dictionary (que je joins à ma demande), mais je n'ai pas compris les différents étapes (lecture données, remplissage du dictionnaire
et puis exploitation données du dictionnaire).

Merci pour toute aide.
 

Pièces jointes

Solution
Bonjour
le Scripting.Dictionary est une aide à la reconnaissance/détection de texte
un exemple de saisie de texte intuitif , généralement il faut d'abord lui affecter une variable
Code:
Private Sub textBox1_Change()

  Set d1 = CreateObject("Scripting.Dictionary")

  If Me.TextBox1 = "" Then
     tmp = ""
  Else
      tmp = Me.TextBox1 & "*"
  End If

  For Each c In a  ( pour info :  a = [nom].Value   c'est un tableau liste de noms dans excel)
   If c Like tmp Then d1(c) = ""
  Next c

  Me.ListBox1.List = d1.keys
End Sub

Sinon notre ami Jacques détaille très bien tout ça !!! à lire à tête reposée mais tout y est !!
Scripting D

herve62

XLDnaute Barbatruc
Supporter XLD
Bonjour
le Scripting.Dictionary est une aide à la reconnaissance/détection de texte
un exemple de saisie de texte intuitif , généralement il faut d'abord lui affecter une variable
Code:
Private Sub textBox1_Change()

  Set d1 = CreateObject("Scripting.Dictionary")

  If Me.TextBox1 = "" Then
     tmp = ""
  Else
      tmp = Me.TextBox1 & "*"
  End If

  For Each c In a  ( pour info :  a = [nom].Value   c'est un tableau liste de noms dans excel)
   If c Like tmp Then d1(c) = ""
  Next c

  Me.ListBox1.List = d1.keys
End Sub

Sinon notre ami Jacques détaille très bien tout ça !!! à lire à tête reposée mais tout y est !!
Scripting D
 

akni

XLDnaute Nouveau
Bonjour
le Scripting.Dictionary est une aide à la reconnaissance/détection de texte
un exemple de saisie de texte intuitif , généralement il faut d'abord lui affecter une variable
Code:
Private Sub textBox1_Change()

  Set d1 = CreateObject("Scripting.Dictionary")

  If Me.TextBox1 = "" Then
     tmp = ""
  Else
      tmp = Me.TextBox1 & "*"
  End If

  For Each c In a  ( pour info :  a = [nom].Value   c'est un tableau liste de noms dans excel)
   If c Like tmp Then d1(c) = ""
  Next c

  Me.ListBox1.List = d1.keys
End Sub

Sinon notre ami Jacques détaille très bien tout ça !!! à lire à tête reposée mais tout y est !!
Scripting D
Bonjour Herve,

Merci beaucoup pour votre aide, le lien Scripting D est très riche je vais essayer d'en tirer
le maximum.

Thanks a lot
 

akni

XLDnaute Nouveau
Bonjour akni, Hervé et à tous

Pour t'aider à comprendre, voici un petit document.
Salutations

Jean-Paul

Bonjour akni, Hervé et à tous

Pour t'aider à comprendre, voici un petit document.
Salutations

Jean-Paul
Bonjour Jean-Paul

Merci beaucoup pour le document, je travaillais toujours directement sur les feuilles et je veux basculer
vers dictionnaire et tableaux pour que je gagne du temps dans l'exécution des macros.

Thanks a lot.
 

Discussions similaires

Réponses
5
Affichages
408
Réponses
33
Affichages
2 K
Réponses
14
Affichages
496
Réponses
3
Affichages
431

Statistiques des forums

Discussions
315 283
Messages
2 118 016
Membres
113 409
dernier inscrit
ffgsd