Microsoft 365 pb avec selection dans liste

[rafi93]

bonjour à tous

je rame depuis plusieurs jours sur un problème de sélection dans une liste : liste déroulante, saisir "a" et ne proposer que les items contenant "a".

Merinos m'a déjà bien aidé en me communiquant cette solution :
https://excel-downloads.com/threads...-automatique-sur-liste.20073666/post-20563166

mais je n'arrive pas à l'adapter pour déplacer la liste des items vers une nouvelle feuille qui soit différente de celle de la combobox

curieusement,
1/ quand je démarre avec le fichier de demo (ci joint) tel quel, càd la combobox et la liste d'items dans la même feuille, ça fonctionne correctement
2/ je deplace la liste d'items vers une autre feuille, ça marche encore
3/ j'enregistre et ferme le fichier, puis le réouvre : ça ne marche plus !!!

je suppose que c'est peut être à cause de la déclaration Byval pour Target, qui reste en mémoire après avoir déplacé la liste.

mais alors, comment faire pour que ça fonctionne pour de bon ??

merci !

 

[sylvanu]

Bonjour Rafi,
Pour le transfert de la table j'ai fait :

a = Application.Transpose([clients])

et ça marche quelque soit l'endroit où se trouve la table.
[edit] ou encore :

a = Application.Transpose(Sheets("Feuil1").Range("clients").Value)

en précisant la feuille.

 

[rafi93]

ok merci !

ça fonctionne bien

mais pourquoi ça ne marche pas avec mon fichier exemple ci joint ?
ça plante au niveau de
a = Application.Transpose(Tableau2[clients])

 

[sylvanu]

Re,
Appelez votre liste de clients =Tableau2[clients] "clients", et utilisez :

a = Application.Transpose([clients])

 

[rafi93]

effectivement...

décidement, je ne me ferai jamais à la syntaxe vba

pourquoi ne peut on pas mettre Tableau2[clients] (avec ou sans guillemets), qui oblige à déclarer un nouveau nom juste pour ça ?
il y a une règle de syntaxe particulière ou c'est juste "comme ça" ?

 

[sylvanu]

Re,
Vus pouvez utiliser cette syntaxe :

a = Application.Transpose([Tableau2[clients]])

qui semble marcher.
Mais je préfère toujours nommer les plages, c'est pour ça que je vous ai fait cette proposition.

ou c'est juste "comme ça" ?

Quelquefois ....

Par ex, j'ai vu que "a = Application.Transpose(Range("clients").Value)" dans une macro classique marche très bien.
Dans un Worksheet_SelectionChange, cette même ligne donne le tableau "a" vide.

Bill a quelquefois un humour qui nous échappe.

 

[rafi93]

Re,
Vus pouvez utiliser cette syntaxe :

a = Application.Transpose([Tableau2[clients]])

qui semble marcher.
Mais je préfère toujours nommer les plages, c'est pour ça que je vous ai fait cette proposition.

Quelquefois ....

Par ex, j'ai vu que "a = Application.Transpose(Range("clients").Value)" dans une macro classique marche très bien.
Dans un Worksheet_SelectionChange, cette même ligne donne le tableau "a" vide.

Bill a quelquefois un humour qui nous échappe.

ah OK
dans mon a = Application.Transpose([Tableau2[clients]]), c'est juste qu'il me manquait le 2eme ]

concernant le nommage Tableau2[clients], c'est en fait déjà un nom assez clair

merci encore !
on m'avait bien dit que VB n'était pas très orthodoxe, je vois pourquoi...

 

[rafi93]

et par exemple pour

Intersect(Range("nom_cc2"), Target)

est ce que je peux écrire Intersect([Tableau1[cc2]], Target) ?

 

[sylvanu]

Le mieux reste de tester, ce que je viens de faire, cette syntaxe est ok :

If Not Intersect([Tableau1[cc2]], Target) Is Nothing And Target.Count = 1 Then

 

[rafi93]

oui merci !!