liste de choix/Données validation + VBA !

[arnaoke]

Bonjour à tous,

à chaque activation de ma feuille de calcul, je suis censé crée une liste de choix ( qui sont "OK" et vide)

j'ai cependant un petit soucis, puisque sur 3 feuilles, j'en ai 2 qui bug a l'activation de la feuille, étrange, sachant que les 3 ont le meme bout de code ....

'liste de choix OK pour complétude des SI
With Sheets("Suivi avenants DAFR")
            .Range("AG8:AH" & .Range("C65536").End(xlUp).Row).Select
            With Selection.Validation
                '.Delete
                .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
                xlBetween, Formula1:="=$Y$1:$Z$1"
                .IgnoreBlank = True
                .InCellDropdown = True
                .ShowInput = True
                .ShowError = True
            End With
End With

l'erreur intervient sur la ligne ".Add Type .... Formula1:= blabla"
je pense que dans un premier temps, je peut simplifier le bout de code (extrait direct de l'éditeur de macro), puis ensuite m'attaquer au problème brute, s'il persiste.

des idées ???

 

[youky(BJ)]

Re : liste de choix/Données validation + VBA !

Bonjour arnakoe,
Il te faut nommer Y1:Z1 dans la feuille concernée ensuite tu pourras faire une validation à partir d'un autre onglet.
Bruno

 

[arnaoke]

Re : liste de choix/Données validation + VBA !

hmmm

et comment dois je faire pour appeler la formule une fois nommée ?

Formula1:= MaListeDeChoix ?

 

[arnaoke]

Re : liste de choix/Données validation + VBA !

euh nan le problème ne vient pas de là, je viens de tester avec

With Sheets("Suivi avenants DAFR")
            .Range("AG8:AH" & .Range("C65536").End(xlUp).Row).Select
            With Selection.Validation
                '.Delete
                .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
                xlBetween, Formula1:="=Liste1"
                .IgnoreBlank = True
                .InCellDropdown = True
                .ShowInput = True
                .ShowError = True
            End With
End With

Liste1 étant ma liste nommée, et j'ai toujours la même erreur

 

[youky(BJ)]

Re : liste de choix/Données validation + VBA !

Bonsoir,
Explication du bug.......
Tu emplois Select avec l'onglet "suivie..."
Si tu changes d'onglet cela bug si tu n'es pas sur la page "suivie.."
Essaie comme cela............
Bruno

Sub validation()
With Range("AG8:AH" & Range("C65536").End(xlUp).Row).validation
        .Delete
        .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
            xlBetween, Formula1:="=Liste1"
        .IgnoreBlank = True
        .InCellDropdown = True
        .ShowInput = True
        .ShowError = True
End With
End Sub