Discussion :

[INeedHelp]

Je souhaite modifier la validation de cellules, pour permettre à l'utilisateur de saisir un élément parmi une liste déroulante, en l'occurence (France OU Etranger OU Offshore).

Pour cela j'utilise Dans le code ci-dessous l'expression "FORMULA1: =..." avec comme séparateur le ; (point virgule).


Code :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
           With Worksheets(Mois).Cells(Day(cellule.Value) + 4, 3).Validation
                .Delete
                .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
                    xlBetween, Formula1:="France;Etranger;Offshore"
                .IgnoreBlank = True
                .InCellDropdown = True
                .InputTitle = ""
                .ErrorTitle = ""
                .InputMessage = ""
                .ErrorMessage = ""
                .ShowInput = True
                .ShowError = True
            End With

Or pour une raison que j'ignore, cela marche de manière aléatoire: à peu près la moitié du temps, c'est OK et la liste déroulante est OK, l'autre moitié du temps, au lieu d'une liste déroulante, l'utilisateur se retrouve avec comme seul choix "France;Etranger;Offshore"...En remplaçant alors le ; par une virgule, ça se met à marcher jusqu'à la prochaine fois ou je fois remplacer la virgule par un point virgule... etc.

J'ai vérifié qu'indiféremment le paramètre "international... " était bien à ;

Y-a-t-il un paramètre que je pex utiliser pour fixer ce comortement ?
Merci d'avance

[ouskel'n'or]

Aucune idée
Essaie d'ajouter un DoEvents après Delete

Code :

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

1
2
3
       With Worksheets(Mois).Cells(Day(cellule.Value) + 4, 3).Validation
                .Delete
                DoEvents

A tout hasard...