Validation de données

**levisagepale** · 14/04/2017, 07h24

bonjour.

Dans ma macro qui se lance au démarrage de mon fichier je doit mettre en forme des cellules avec validation de données.

Volia le bout de code:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
 
 
Sub Macro1()
    Sheets("Element").Select ' je selection ma feuille
    Range("B15").Select ' je selectionne ma cellule
    With Selection.Validation ' je programme ma validation de données
        .Delete
        .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
        xlBetween, Formula1:="=l_medic" ' ma source qui fait référence à un tableau (l_medic=TABLEAU_MEDIC[NOM])
        .IgnoreBlank = True
        .InCellDropdown = True
        .InputTitle = ""
        .ErrorTitle = ""
        .InputMessage = ""
        .ErrorMessage = ""
        .ShowInput = True
        .ShowError = False
    End With
End Sub

cette macro fonctionne très bien
maintenant disons que ma liste est tellement longue que j'aimerai taper une lettre pour diminuer la quantité de nom dans ma liste

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
 
Sub Macro1()
    Sheets("Element").Select ' je selection ma feuille
    Range("B15").Select ' je selectionne ma cellule
    With Selection.Validation ' je programme ma validation de données
        .Delete
        .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
        xlBetween, Formula1:="=SI(B15<>"""";DECALER(l_medic;EQUIV(B15&""*"";l_medic;0)-1;;NB.SI(l_medic;B15&""*"");1);l_medic)" ' ma source qui fait référence à un tableau (l_medic=TABLEAU_MEDIC[NOM])
        .IgnoreBlank = True
        .InCellDropdown = True
        .InputTitle = ""
        .ErrorTitle = ""
        .InputMessage = ""
        .ErrorMessage = ""
        .ShowInput = True
        .ShowError = False
    End With
End Sub

Celle ci me renvoie une erreur 1004 erreur définie par l'application ou par l'objet
Part contre si je fait ma validation de données à la main, cela fonctionne très bien...

Pourriez vous m'aider à trouver une solution pour ne plus avoir cette erreur?

Merci aide de votre aide

**Philippe Tulliez** · 14/04/2017, 08h16

Bonjour,
Mets la formule en anglais et n'oublie pas de séparer les arguments par une virgule.

Code :

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

"=IF(B15<>"""",OFFSET(l_medic,MATCH(B15 & ""*"",l_medic,0)-1,,COUNTIF(l_medic,B15 & ""*""),1),l_medic)"

**levisagepale** · 14/04/2017, 08h42

Merci pour la réponse rapide.

Si je mets formulalocal à la place de formula1 cela devrait fonctionner avec une formule en francais. Est la cela ne fonctionne pas non plus, même en mettant les virgule.

tu en as a raison?

En tout je vais mettre celle que tu m'as donné, elle fonctionne.

**Philippe Tulliez** · 14/04/2017, 09h02

Bonjour,

Si je mets formulalocal à la place de formula1 cela devrait fonctionner avec une formule en francais. Est la cela ne fonctionne pas non plus, même en mettant les virgule.

Le temps passé à la maintenance est tel que pour éviter les problèmes, je ne mets jamais les formules en français.
Il faut chercher la tranquillité.

Pourquoi ne pas utiliser la propriété FormulaLocal ?
L'entreprise dans laquelle tu travailles est rachetée par une société étrangère et impose Office en anglais
Tu décides de déménager et tu t'installes en Russie, en Amérique, etc. et tu achètes la version Excel locale.
Voilà deux scénarios où tu passeras un certain temps à effectuer les corrections nécessaires et franchement pas très constructives.

Et j'ajouterais que pour être tout à fait tranquille, il est bon d'utiliser les paramètres régionaux
A lire l'excellent tutoriel de Jean-Philippe André Excel et les paramètres régionaux : Application.International

Il vaut mieux passer un peu plus de temps à développer et être tranquille pour le futur et rendre perenne nos applications.

**RyuAutodidacte** · 14/04/2017, 10h11

Bonjour,

si tu veux récupérer ta formule en anglais (à utiliser dans la fenêtre d'exécution) :
- Mettre sa formule dans une cellule, la sélectionner, puis mettre dans la fenêtre d'exécution :

Code :

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