Validation en VBA sans effet

Bonjour,

Mon problème est le suivant: j'ai codé une macro Access qui exporte des données (concernant des contacts) en plusieurs fichiers, selon la ville où ils habitent. Ensuite, la macro doit mettre en forme les différents fichiers Excel. Jusque là, pas de soucis. En particulier, je rajoute une colonne que j'appelle "réponses" pour savoir si les différents contacts ont répondu dernièrement.

Le problème vient lorsque je souhaite mettre une validation de données pour cette colonne. Voici mon code:
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 Range("H3").Value = "Réponse? (oui/non)" Range("H3").Columns.AutoFit Range("H3").Interior.Color = Range("F3").Interior.Color Range("H3").HorizontalAlignment = xlCenter 'Validation With Range("H4").Validation .Delete .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:=xlBetween, Formula1:="oui,non" .InCellDropdown = True .ShowError = True .IgnoreBlank = True End With
Et là....Quand le code s'execute, tout se passe bien, sauf que la validation n'est pas prise en compte.
AUriez-vous une idée du souci?

Bonjour Enheduana, bonjour le forum,

La partie du code qui crée la liste de validation de données fonctionne. Mais tu parles de plusieurs fichiers, donc de plusieurs onglets et nous n'avons qu'une partie de ton code. Peut-être faudrait-il spécifier de quel classeur il s'agit et dans ce classeur de quel onglet on parle pour définit la range :
Code:

1 2 3 4 5 6 7 With Workbook("blablabla.xlsx").Worksheets("Mon_Onglet").Range("H4").Validation .Delete .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:=xlBetween, Formula1:="oui,non" .InCellDropdown = True .ShowError = True .IgnoreBlank = True End With

Bonjour,
Je ne connais pas l'ensemble du projet mais il me semble qu'en utilisant un tableau structuré préparé avec Validation de données, Mise en forme conditionnelle, formules éventuelles, etc. qui serait un modèle à copier à l'infini et dont les données seraient alimentées soit par copier/coller soit à l'aide de Power Query, cela réduirait à une peau de chagrin le nombre de lignes de code VBA.

Bonjour Philippe

Citation:

Envoyé par Philippe Tulliez

... cela réduirait à une peau de chagrin ...

peau de chagrin, ça suggère un aspect négatif, je dirais plutôt au juste besoin ;)

Bonjour Patrice,
Tu as raison, j'aurais dû trouver d'autres mots.