XL 2016 [RESOLU] Formulaire VBA : liste en cascade rencontre un pb

C

Compte Supprimé 979

Guest

• 5 Mars 2019

• #2

Bonjour,
Il suffit certainement de demander à l'auteur....

 

Vote positif 0 Vote négatif

J

jabenj

XLDnaute Junior

• 5 Mars 2019

• #3

Bonjour,

J'imagine, mais comme j'ai pas mal trifouillé, je suppute que ce dernier aura les poils qui s'hérissent en découvrant le carnage généré !!

D'autant que je ne sais plus bien d'où vient le code des listes en cascades...

Merci néanmoins de votre coup d'oeil

 

Vote positif 0 Vote négatif

C

Compte Supprimé 979

Guest

• 5 Mars 2019

• #4

Re,
Il faut se méfier de venter les mérites de quelqu'un, si après on ne peut avoir où espérer un retour de sa part
Je dis ça, je dis rien...

 

Vote positif 0 Vote négatif

J

jabenj

XLDnaute Junior

• 2 Avril 2019

• #5

Bonjour,
Les problème rencontré n'est-il pas clair ? ou trop complexe (ça j'en doute un peu pour vous !)

Je n'arrive pas à trouver une solution tout en maintenant la confort d'utilisation...

Quelqu'un a une idée, svp ?

 

Vote positif 0 Vote négatif

C

Compte Supprimé 979

Guest

• 2 Avril 2019

• #6

Alors.. Toujours confiant

 

Vote positif 0 Vote négatif

J

jabenj

XLDnaute Junior

• 2 Avril 2019

• #7

Plus du tout
Toujours pas de solution à proposer ? j'ai beau relire et relire le code, je ne comprends que trop peu...
S'il vous plait !!

 

Vote positif 0 Vote négatif

C

Compte Supprimé 979

Guest

• 2 Avril 2019

• #8

Bonsoir,
C'est le problème quand on veut utiliser du code d'un site que l'on ne comprends pas...
Tu passerais en mode débogage avec un point d'arrêt (F9) sur la ligne qui te pose souci, tu comprendrais
Il suffit de placer ton curseur de souris sur "C"

 

Dernière modification par un modérateur: 3 Avril 2019

Vote positif 0 Vote négatif

J

jabenj

XLDnaute Junior

• 3 Avril 2019

• #9

Salut,
Merci pour tes retours !!
J'ai tenté ça (dis moi si je n'ai rien compris :
Clic sur "For Each C In TblPoles" puis F9
et lancement du formulaire (car F8 dès le départ "tourne en rond") pour rencontrer l'erreur = pas d'informations particulière...

Que fais-je mal ?

Merci néanmoins de t'en préoccuper !!

 

Vote positif 0 Vote négatif

C

Compte Supprimé 979

Guest

• 3 Avril 2019

• #10

Re,

En fait c'est sur "C" qu'il faut placer le curseur de la souris, cela t'indique "Vide"

Et si tu fait un

VB:

debug.Print ubound(tblpoles)

Tu obtiens : L'indice n'appartient pas à la sélection


Ce qui veut dire en terme clair, que ton tableau n'est pas rempli
Chose logique, puisqu'il ne se rempli qu'en modifiant le Textebox11

Code:

Set D2 = CreateObject("Scripting.Dictionary")
     For i = LBound(Poles) To UBound(Poles)
       If Directions(i) = Condition Then D2(Poles(i)) = ""
     Next i
     TblPoles = D2.keys

Voilà

 

Vote positif 0 Vote négatif

J

jabenj

XLDnaute Junior

• 3 Avril 2019

• #11

ah oui ! carrément ! MERCI !!
Donc cela veut dire que ce système est voué à l’échec dans la façon dont il est construit : il faudrait supprimer le contenu des "Textbox filles" à chaque clic sur "Textbox mère"...

Est-il possible de limiter l'automatisation dans ce cas ? genre ne plus "permettre" que les menus déroulants s'activent ?
cela couperait la poire en 2 : Limitation des contenus des Directions aux bons services, mais plus le déroulement automatique...

J'ai pour ce faire "commenté" Me.TextBox11.DropDown et les autres, mais cela s'active quand même....
Humm, pas doué le gaillard, tu saurais m'indiquer la/les lignes à commenter pour brider le déroulement stp ?

 

Vote positif 0 Vote négatif

C

Compte Supprimé 979

Guest

• 3 Avril 2019

• #12

Re,

Dans l'évènement Initialise de ton USF, il faut mette ce code au début, cela devrait résoudre ton problème
Qui est que tes tables ne sont pas définies à l'ouverture de ton USF, d'où bug

VB:

Private Sub UserForm_Initialize()
  Poles = Application.Transpose(Range("Poles"))
  Directions = Application.Transpose(Range("Directions"))
  Services = Application.Transpose(Range("Services"))
  '  resultatTextBox = Application.Transpose(Range("resultatTextBox"))
  Set D1 = CreateObject("Scripting.Dictionary")
  For Each C In Directions: D1(C) = "": Next C
  MultiPage1.Value = 0
  Me.TextBox11.List = D1.keys
  Me.TextBox24.List = D1.keys
  ' Remplir ICI la Table POLES et la liste
  Set D2 = CreateObject("Scripting.Dictionary")
  For Each C In Poles: D2(C) = "": Next C
  TblPoles = D2.keys
  Me.TextBox12.List = TblPoles
  ' Remplir ICI la Table SERVICES et la liste
  Set D3 = CreateObject("Scripting.Dictionary")
  For Each C In Services: D3(C) = "": Next C
  TblServices = D3.keys
  Me.TextBox13.List = TblServices
  '
  ' Suite du code jusqu'à End sub

A+

 

Vote positif 0 Vote négatif

J

jabenj

XLDnaute Junior

• 4 Avril 2019

• #13

Ça fonctionne à merveille !!!!!

Pfff, en effet, la première table l'était mais pas les autres.... Décidément le VBA a encore beauuuucoup de secrets pour moi !!! (et pourtant nombre d'alertes sur les forum où il est indiqué de bien définir les choses en amont ! Mais ça reste un peu nébuleux pour moi encore, la preuve !!)

Un (et là je peux !) IMMENSE MERCI Bruno !!!!!!!
Ta réactivité, humour et accompagnement ont été sans défauts ! Merci merci merci !!!

 

Vote positif 0 Vote négatif