Erreur d'execution '381'

obyone

XLDnaute Occasionnel
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
 

Pièces jointes

  • essai.xlsm
    28.8 KB · Affichages: 29

pierrejean

XLDnaute Barbatruc
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
 

Statistiques des forums

Discussions
312 812
Messages
2 092 309
Membres
105 354
dernier inscrit
Green2