Erreur d'execution '381'

[obyone]

bonjour,

tout est dans le titre... j'ai une erreur d'execution 381, lorsque je n'ai qu'une seule ligne dans mon tableau....
et que je l'ance le Userform avec le bouton MAJ
d'ou cela peut venir?

cordialement

 

[pierrejean]

Bonjour

Vois si cela va mieux

 

[obyone]

bonjour,
merci cela fonctionne, peux tu m'expliquer d'ou venait mon erreur?
cordialement

 

[pierrejean]

Re
Le problème apparaît lorsque l'on charge la liste d'un combobox avec un tableau
Ce dernier doit avoir au moins 2 lignes
J'ai donc traité ce cas par:

'si plusieurs lignes dans le tableau
If Range("MAJNoms").Rows.Count > 1 Then
'tableau dans liste
CB_Docs.List = CBMaj
'sinon valeur de la ligne unique dans le Combobox
Else
CB_Docs = Range("MAJNoms").Value
End If