validation donnée liste avec formule

**bbcancer** · 18/11/2012, 15h35

Bonjour le forum

J'arrive à créer une validation de donnée par autorisation de liste avec un nom, par contre lorsque la source contient une formule, la macro me fait une erreur d'exécution 1004 (au niveau de la formule)
Pourtant j'ai fait la macro avec l'enregistreur de macro.

Je vous mets le fichier en exemple (je l'ai simplifié pour le forum).

Merci

cordialement

**mercatog** · 18/11/2012, 15h58

La formule (si elle est juste) doit être écrite en Anglais

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

"=IF(A2<>"" "",OFFSET(d_nom,MATCH(A2&""*"",l_nom,0)-1,,SUMPRODUCT((MID(l_nom,1,LEN(A2))=TEXT(A2,""0""))*1)),l_nom)"

**bbcancer** · 18/11/2012, 17h27

Bonjour

Merci pour la réponse. Effectivement elle marche bien.
Mais quand j'ai voulu rallonger la liste sur la feuille 1 d'un coup il me remarque l'erreur d’exécution. Je remets le fichier en exemple où j'ai rallonger ma liste et ou j'ai modifié la formule en anglais...

Est-ce que l'allongement de liste peut avoir une influence?

Merci

**mercatog** · 18/11/2012, 18h30

J'ai testé ceci

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Sub Macro1()
Dim Frml As String
 
Frml = "=IF(A2<>"""",OFFSET(d_nom,MATCH(A2&""*"",l_nom,0)-1,,SUMPRODUCT((MID(l_nom,1,LEN(A2))=TEXT(A2,""0""))*1)),l_nom)"
With Feuil2.Range("A2:A150").Validation
    .Delete
    .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:=xlBetween, Formula1:=Frml
End With
End Sub

**bbcancer** · 18/11/2012, 20h20

C'est intéressant mais en fait ça ne fait pas ce que je souhaite.
En fait je veux taper la 1ere lettre pour qu'il n'y est pas toute la liste qui s'affiche.
Par contre je crois avoir trouvé l'erreur. Si la case A2 est vide l'erreur d’exécution apparaît quand je lance la macro!!!
Alors que si j'effectue les validations de données directement sur le fichier l'erreur ne se produit pas...
Je ne comprends donc pas...
Y-a t il un moyen de contourner ce problème?

Merci en tout cas pour ces réponses apportées