Bug liste de validation (liste déroulante qui se déroule pas !)

[Pseudoto]

Bonjour à tous !

J'espère que vous pourrez m'aider sur un bug totalement inexplicable.

J'ai fais une macro qui se lance lorsque j'insère une ligne. La méthode, c'est de nommer une ligne de mon tableau "Fin" et dans un onglet caché, faire une cellule avec

=ligne(fFin)

puis écrire une macro sur cet onglet caché du type "Worksheet_Calculate()". En clair, dès que la cellule est calculée, la macro est lancée.

Bon, ma macro se lance bien mais au lieu de m'indiquer une liste qui se déroule, ça me met tout sur la même ligne

Voici la macro, assez simple :

Private Sub Worksheet_Calculate()

ActiveSheet.Cells(ActiveCell.Row, 8).Select
    With Selection
        .Validation.Delete
        .Validation.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
        xlBetween, Formula1:="Traitée; Ciblée; Suivie; Identifiée; Abandon"
    End With

End Sub

Je vous ai mis en pièce jointe ce que ça donne ...

Si vous avez une piste, je suis preneur...c'est juste ahurissant ...

 

[Pierrot93]

Re : Bug liste de validation (liste déroulante qui se déroule pas !)

Bonjour,

remplace les ; par des ,

    With Selection
        .Validation.Delete
        .Validation.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
        xlBetween, Formula1:="Traitée, Ciblée, Suivie, Identifiée, Abandon"
    End With

bon après midi
@+

 

[Pseudoto]

Re : Bug liste de validation (liste déroulante qui se déroule pas !)

Hello Pierre,

Je vais faire ça ... sachant que j'avais déjà fais la manip dans l'autre sens !

Merci de ce retour, on va bien voir

 

[Pseudoto]

Re : Bug liste de validation (liste déroulante qui se déroule pas !)

J'ai quand même ajouté

Selection.Validation.InCellDropdown = True

Pour forcer la commande.