Validation en VBA sans effet

**enheduana** · 06/02/2021, 09h58

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 :

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
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?

**Thautheme** · 06/02/2021, 13h57

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 :

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

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

**Philippe Tulliez** · 06/02/2021, 14h55

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.