Re : Pb formule de Liste déroulante non active
Bonjour,
Merci à Modeste et Fo_rum de s'intéresser à mn problème.
à Modeste :
J'ai bien regardé la PJ mise précédemment et les cellules de la colonne Marque (E) ont bien une liste déroulante sur toutes les cellules. Seule la première ligne ne marche pas car j'y ai mis un "g" pour montrer que suite à la copie du classeur source, la saisie semi automatique ne marche plus (liste figée).
ci dessous le code présent dans le classeur source et utilisé pour la copie (classeur en PJ)
'copie des onglets Bon cde et Paramètres pour que l'acheur fasse son bon de commande
Sheets(Array("Bon cde", "Paramètres")).Select
Sheets("Paramètres").Activate
Sheets(Array("Bon cde", "Paramètres")).Copy
et a l'issu, toutes les listes déroulantes sont OK, mais la recherche semi automatique devrait marcher sur celles de la colonne Marque.
pour essayer de contourner le pb, j'ai utilisé l'enregistreur de Macro d'excel pour refaire la manip qui débloque la liste déroulante quand on rentre une ou plusieurs lettres pour la recherche semi automatique :
click dans 'Données/Validation des données + OK',
With Range("E21").Validation
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
xlBetween, Formula1:= _
"=SI(E21<>"""";DECALER(Paramètres!$AI$2;EQUIV(E21&""*"";marques;0)-1;;SOMME((STXT(marques;1;NBCAR(E21))=TEXTE(E21;""0""))*1));marques)"
.IgnoreBlank = True
.InCellDropdown = True
.InputTitle = ""
.ErrorTitle = ""
.InputMessage = ""
.ErrorMessage = ""
.ShowInput = True
.ShowError = False
End With
L'erreur 1004 se situe en rouge, je pense qu'elle vient de la formule, car si je remplace par un nom (marques), cela ne pose pas de problème dans le code (mais je besoin de cette formule pour qu'il y ait la recherche semi auto).
à Fo_rum:
j'ai essayé de créer un autre nom (Recherche), dont la formule est celle de la saisie semi auto, mais cela donne la même erreur dans l'éxecution du code... et je suis un peu désespéré alors que tout marche bien dans le classeur source...
merci de votre aide
Laurent