Erreur 381 sur une combobox

franekola · 25 Février 2011

Bonjour à tous

J'ai une base de données dans l'onglet "table" avec deux colonnes Nom et Prénom.
J'ai ensuite deux combobox où les valeurs de la deuxième sont triées en fonction de la première. C'est à dire que seul les prénoms du nom sélectionné apparaissent.

Mon code est le suivant :
Private Sub ComboBox1_DropButtonClick()
Sheets("table").[G2] = Empty
Sheets("table").[A1:B2000].AdvancedFilter Action:=xlFilterCopy, _
CriteriaRange:=Sheets("table").[G1:G2], CopyToRange:=Sheets("table").[D1], Unique:=True
Me.ComboBox1.List = [choix_nom].Value
Me.ComboBox2.Clear

'Permet de copier les valeurs des boites noms et prénoms dans les cases correspondantes
Sheets("table").[G2] = ComboBox1
Sheets("table").[H2] = ComboBox2
End Sub

Private Sub ComboBox2_DropButtonClick()
Sheets("table").[G2] = Me.ComboBox1.Value
Sheets("table").[H2] = Empty
Sheets("table").[A1:B2000].AdvancedFilter Action:=xlFilterCopy, _
CriteriaRange:=Sheets("table").[G1:H2], CopyToRange:=Sheets("table").[D1:E1], Unique:=True
Me.ComboBox2.List = [choix_prenom].Value
Sheets("table").[H2] = ComboBox2
End Sub

Ma question est la suivante : lorsqu'il n'y a qu'une valeur à afficher dans la combobox 2, l'erreur 381 apparait.
Seriez vous m'aider ? Merci beaucoup

Guest · 25 Février 2011

Re : Erreur 381 sur une combobox

Bonjour et bienvenue sur le forum,

Code:

If [choix_prenom].Rows.Count > 1 Then
    Me.ComboBox2.List = [choix_prenom].Value
Else
    Me.ComboBox2.AddItem [choix_prenom].Value
End If

A+

franekola · 28 Février 2011

Re : Erreur 381 sur une combobox

Merci beaucoup !

Erreur 381 sur une combobox

franekola

Guest

Guest

Guest

franekola

Guest

Discussions similaires

Privacy & Transparency

Privacy & Transparency