Discussion :

[mulanzia2003]

Bonjour, voici un code que j'ai créé en enregistrant une macro

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
 
    Range("I3:I273").Select
    With Selection.validation
        .Delete
        .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
        xlBetween, Formula1:="P;F;A"
        .IgnoreBlank = True
        .InCellDropdown = True
        .InputTitle = ""
        .ErrorTitle = ""
        .InputMessage = ""
        .ErrorMessage = ""
        .ShowInput = True
        .ShowError = True
    End With

Je souhaite crée dans les cellules sélectionnées un choix de valeur (ici P ou F ou A).
Excel a cette fonction en faisant allant sur le menu :"Données" puis "Validation" puis en choisissant dans les Option liste.

Cela fonctionne quand je le fait en manuel. En enregistrant la macro, c'est le code ci dessus. Mais dès que je l'execute en automatique dans chacune des cellules, je ne peux selectionner que P;F;A en une seule fois.

Merci si quelqu'un peut m'aider.

[SfJ5Rpw8]

remplace les ; par des ,

Code :

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

1
2
3
 
       .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
        xlBetween, Formula1:="P,F,A"

et pour éviter des problémes lors du lancement de la macro (classeur actif pas le bon, pas la bonne feuille) il faut "préfixer" les objets range... de plus évite l'utilisation des Select/Selection...

Code :

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

1
2
3
4
5
 
 Sub test()
    With ThisWorkbook.Sheets("Feuil2").Range("I3:I273").Validation
        .Delete
...

[mulanzia2003]

merci de ton aide, je n'avais pas pensé à modifié les ; par des ,.
merci