Liste modifiable dans une USF posant problème !!!

[christophe90]

Bonjour le forum,

J'ai un problème avec une liste déroulante dans une USF :

Voici le code que j'utilise :

Private Sub Newetat_DropButtonClick()
Worksheets("liste").Select
Newetat.RowSource = "B1:" & Range("B1").End(xlDown).Address
End Sub


Quand je clique sur ma liste déroulante, windows NT m'affiche un message d'erreur, erreur d'apllication (violation des acces )

Savez vous de quoi ceci peut venir ??

Sinon, connaissez vous une autre syntaxe que je pourrais utiliser pour faire une liste déroulante dans ma USF ??

Merci d'avance
Bonne journée à tous
Salutations
Christophe

 

[mutzik]

Re : Liste modifiable dans une USF posant problème !!!

Bonjour Christophe

Newetat.RowSource = "B1:" & Range("B1").End(xlDown).Address

utilise plutot :

Newetat.RowSource = "B1:B" & Range("B1").End(xlDown).row

@+
Bertrand

 

[christophe90]

Re : Liste modifiable dans une USF posant problème !!!

Arff, non ça me met toujours la même erreur : erreur dans l'application, un rapport d'erreur est généré par windows NT !!

Quelqu'un aurait il une autre idée ??