Liste Déroulante Dynamique

Bonjour,

J'utilise le code suivant pour créer une liste déroulante en cascade. Je peux entrer seulement 14 clients au 15 ième j'ai un message d'erreur qui met retourner (#1004) pourquoi?

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  If Not Intersect([D7:D10000], Target) Is Nothing And Target.Count = 1 Then
    Set f = Sheets("Client")
    Set d = CreateObject("Scripting.Dictionary")
    For Each c In f.Range("B4:B" & f.[B65000].End(xlUp).Row): d(c.Value) = "": Next c
    Target.Validation.Delete
    Target.Validation.Add xlValidateList, Formula1:=Join(d.keys, ",")
  End If
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
  If Not Intersect([D7:D10000], Target) Is Nothing And Target.Count = 1 Then
   If Target <> "" Then
    Set f = Sheets("Client")
    Set d = CreateObject("Scripting.Dictionary")
    For Each c In f.Range("B4:B" & f.[B65000].End(xlUp).Row)
      If c.Value = Target Then d(c.Offset(, 1)) = ""
    Next c
    Target.Offset(, 1).Validation.Delete
    Target.Offset(, 1).Validation.Add xlValidateList, Formula1:=Join(d.keys, ",")
    a = d.keys: Target.Offset(, 1) = a(0)
    If d.Count > 1 Then Target.Offset(, 1).Select: SendKeys "%{down}"
   Else
    Target.Offset(, 1) = ""
   End If
  End If

End Sub

Merci,

Oiseau Bleu

Bonjour,

J'ai ajouté un fichier pour une meilleur compréhension.

Dans ce fichier j'ai 24 clients et ça fonctionne pas. Si j'enlève 1 client la liste fonctionne ???

Merci,

Oiseau Bleu

34clients.xlsm (27.84 Ko)

Salut oiseaubleu,

qu'est-ce qui ne va pas?

J'ai ajouté plusieurs clients, pas de soucis...

A+

Bonjour,

De mon côté j'ai le message d'erreur suivant :

Erreur d'exécution '1004'

Erreur définie par l'application ou par l'objet

L'erreur est sur la ligne du Target.Validation.Add xlValidateList, Formula1:=Join(d.keys, ",")

De mon côté je fais un copier et insérer lignes et je copie les clients de client1 à client24 ou j'allonge de client1 à client30 avec un nom de projet pour chacun.

Je ne comprends pas la raison de l'erreur.

Il y a quelque chose que je ne fais pas correctement???

Merci,

Oiseau Bleu

Bonjour,

Je crois que je n'ai pas été assez clair dans mes explications.

Si je vais dans l'onglet Heures quotidiennes et j'entre de l'information dans la cellule B7; puis dans C7 et je clique dans la cellule D7; la liste de mes clients devrait apparaître en liste déroulante; mais il y a un problème quand j'ai un nombre important de client; c'est là que le message d'erreur s'affiche.

C'est dans l'onglet Heures quotidiennes qu'il y a un problème en cellule D7.

Pouvez-vous m'aider à comprendre et résoudre ce problème?

Merci,

Oiseau bleu

Salut Oiseau bleu,

toujours pas d'erreur même après avoir ajouter plusieurs clients...

Tu devrais nous envoyer ton fichier dans l'état où il présente l'erreur!

A+

Bonjour,

Dans le fichier que vous avez, si je clique dans la cellule D7 dans l'onglet Heures quotidiennes, j'ai le message d'erreur que je vous ai indiqué.

Je ne comprends pas pourquoi j'ai cette erreur et pas vous???

Pouvez-vous m'expédier votre fichier avec lequel vous travaillez pour vérifier si l'erreur se produit lorsque je travaille avec.

Merci,

Oiseau bleu

Bonjour,

Pareille.... Aucune erreur comme curulis57

Ps: acceptes-tu bien les macros???

Slts

Bonjour,

Oui, j'active bien les macros au début.

J'ai télécharger à nouveau le fichier que j'ai fait parvenir et si je clique en D7 l'erreur apparaît.

Si je vais dans l'onglet Client et que je supprime la ligne du client 21 donc un client de moins et je retourne dans l'onglet Heures quotidiennes et je clique sur la cellule C7 puis sur D7 je n'ai pas d'erreur tout fonctionne et le liste déroulante apparaît.

Attention si je retourne dans l'onglet Client et que je copie le client 20 et que je change son nom pour client 30; je retourne dans l'onglet Heures quotidiennes je clique C7; puis sur D7 et l'erreur apparaît de nouveau???

Donc si dans l'onglet Client; j'ai 24 clients avec des noms DIFFÉRENTS j'ai une erreur; avec 23 clients de noms différents; j'ai pas d'erreur.

Pourquoi??

Merci,

Oiseau bleu

Re

Toujours pas d'erreur malgré plusieurs tentatives

Slts

Bonjour,

Je travaille avec Excel 2016.

Est-ce un problème relié à la version de Excel.

Est-ce qu'il y a quelqu'un qui a essayé le fichier avec la version 2016 d'Excel?

Merci,

Oiseau bleu

Rechercher des sujets similaires à "liste deroulante dynamique"