Discussion :

[rvaysse]

Bonjour,

Je vous écris concernant une erreur VBA que je rencontre, lors de la création par une macro d'une liste de choix déroulante.

Explication :
Je commence l'enregistrement de ma macro, je vais successivement dans :
Données / validation des données /
Dans l'onglet Options, j'autorise Liste, et dans la textbox Source, je met le code suivant :
CODE: TOUT SÉLECTIONNER=DECALER(Analysis;EQUIV(D2&"";Analysis;0)-1;;NB.SI(Analysis;D2&""))

La liste est bien créée, et est fonctionnelle.

J'arrête l'enregistrement de ma macro, le code source suivant à été généré :

CODE: TOUT SÉLECTIONNER

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
20
Sub Macro5()
'
' Macro5 Macro
'
 
'
    With Selection.Validation
        .Delete
        .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
        xlBetween, Formula1:="=DECALER(Analysis;EQUIV(D2&"";Analysis;0)-1;;NB.SI(Analysis;D2&""))"
        .IgnoreBlank = True
        .InCellDropdown = True
        .InputTitle = ""
        .ErrorTitle = ""
        .InputMessage = ""
        .ErrorMessage = ""
        .ShowInput = True
        .ShowError = False
    End With
End Sub

Sans rien changer au code généré par Excel, je sélectionne une autre cellule, et je lance ma macro.
J'obtiens alors une belle erreur :
Erreur d'exécution '1004':
Erreur définie par l'application ou par l'objet


Je clique sur "débogage", et la ligne en cause est la suivante :
CODE: TOUT SÉLECTIONNER.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
xlBetween, Formula1:="=DECALER(Analysis;EQUIV(D2&"";Analysis;0)-1;;NB.SI(Analysis;D2&""))"

Alors que ce code a lui même été généré par Excel !

D'avance grand merci de votre aide

[Phil'oche]

Salut,

J'avoue que je ne comprends pas non plus... J'ai tordu ta macro dans tous les sens, y'a pas, le .Add ne passe pas...
Ca ne parait pas être un souci de guillemets, ni de plage nommée (Analysis)

En attendant, si tu as la possibilité d'avoir quelque part dans ta feuille ne serait-ce qu'une seule cellule dans laquelle tu peux mettre ta validation, tu peux toujours faire :

Code :

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

1
2
3
Selection.Validation.Delete
MaCelluleModele.Copy
Selection.PasteSpecial (xlPasteValidation)

(en attendant mieux...)

[rvaysse]

Super , grand merci

Ca fonctionne

cela étant, je suis toujours tout ouie si quelqu'un à la réponse

[Philippe Tulliez]

Bonjour,
Moi lorsque je fais référence à une plage de données dans l'outil Validation de données, j'utilise une plage nommée.
A l'aide du Gestionnaire de noms, tu donnes un nom et dans la zone Fait référence à, tu places ta formule.
La macro fonctionne alors sans problème
Le nom que j'ai donné est TestDecaler

Code :

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

1
2
3
4
With Selection.Validation
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Formula1:="=TestDecaler"
End With

Bonsoir,

cela étant, je suis toujours tout ouie si quelqu'un à la réponse

J'ai enfin eu le temps de faire les tests et ce que je pressentais s'est vérifié. VBA est un programme qui utilise l'anglais et donc il y a lieu de traduire la formule que l'enregistreur a restitué tel quelle a été encodée.
La procédure

Code :

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

1
2
3
4
5
6
7
Dim fx As String
fx = "=OFFSET(Analysis,MATCH(D2 & <generic>,Analysis,0)-1,0,COUNTIF(Analysis,D2 & <generic>))"
fx = Replace(fx, "<generic>", Chr(34) & "*" & Chr(34))
With Selection.Validation
 .Delete
 .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Formula1:=fx ' "=TestDecaler"
End With

[Phil'oche]

Bien joué, Philippe
(ça doit venir du prénom... )

Juste une question : l'utilisation de <generic>, c'est pour rendre le code plus lisible ou c'est parce que le double cot pose problème ?

[Philippe Tulliez]

Bonjour Phil'oche,

Juste une question : l'utilisation de <generic>, c'est pour rendre le code plus lisible ou c'est parce que le double cot pose problème ?

C'est à la fois par esthétisme, j'ai horreur de voir le double-quote, et je trouve que cela rend la phrase plus lisible donc je place des balises dans la chaîne de caractères. J'utilise la même technique quand dans une boucle la référence dans une formule prend une autre valeur.

[Phil'oche]

Bonjour et merci pour la réponse. C'est vrai que c'est une très bonne habitude, ça ne mange par de ressource et ça aère le code de façon prodigieuse !

Pour en revenir à .Validation.Add, le souci est que le Formula1 doit en effet être passé en Formula (donc en version anglo-saxonne) et non en FormulaLocal (lié au paramètre local de langue...), or l'enregistreur de macro l'enregistre en paramètres locaux... donc en français !

D'où une question subsidiaire : à partir d'une formule en FR, existe-t-il une fonction permettant de la convertir en formule US ?