erreur d'execution 380

[dominique35]

Bonsoir.

J'ai dans une combobox le code VBA suivant:

Private Sub UserForm_Initialize()
Dim Fl1 As Worksheet
Set Fl1 = Sheets("BDD")
Me.Label1 = ActiveCell.Value
With Me.ListBox1
.ColumnCount = 10
.ColumnWidths = "60;60;60;60;60;60;60;60;60;60"
.AddItem
For i = 1 To 10
.List(0, i - 1) = Replace(Fl1.Cells(1, i).Value, Chr(10), "")
Next i
Set c = Fl1.Columns(1).Find(ActiveCell.Value)
If Not c Is Nothing Then
Firstaddress = c.Address
Do
.AddItem
For i = 1 To 10
.List(.ListCount - 1, i - 1) = Replace(Fl1.Cells(c.Row, i).Value, Chr(10), "")
Next i
Set c = Fl1.Columns(1).FindNext(c)
Loop While Not c Is Nothing And c.Address <> Firstaddress
End If
End With
End Sub
qui fonctionne très bien.

Par contre quand je veut ajouter des colonnes dans la Combobox
Je la modifie ainsi:

Private Sub UserForm_Initialize()
Dim Fl1 As Worksheet
Set Fl1 = Sheets("BDD")
Me.Label1 = ActiveCell.Value
With Me.ListBox1
.ColumnCount = 12
.ColumnWidths = "60;60;60;60;60;60;60;60;60;60;60;60"
.AddItem
For i = 1 To 12
.List(0, i - 1) = Replace(Fl1.Cells(1, i).Value, Chr(10), "")
Next i
Set c = Fl1.Columns(1).Find(ActiveCell.Value)
If Not c Is Nothing Then
Firstaddress = c.Address
Do
.AddItem
For i = 1 To 12
.List(.ListCount - 1, i - 1) = Replace(Fl1.Cells(c.Row, i).Value, Chr(10), "")
Next i
Set c = Fl1.Columns(1).FindNext(c)
Loop While Not c Is Nothing And c.Address <> Firstaddress
End If
End With
End Sub

J'ai un bug ICI

Erreur d' exécution '380'
Impossible de définir la propriété list. Valeur de propriété non valide ce qui me renvoie en feuil1 BDD:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
If Target.Column = 1 And Target.Row > 1 And Target <> "" Then
Application.ScreenUpdating = False
On Error Resume Next
Unload UserForm2
On Error GoTo 0
UserForm2.Show
End If
End Sub
Qui peux me dire pourquoi je ne trouve pas

 

[Kobaya]

Re : erreur d'execution 380

Bonsoir dominique35,

extrait de l'aide Excel :
il y a une limite de 10 colonnes (0 à 9)

 

[dominique35]

Re : erreur d'execution 380

Bonsoir


Merci de ta réponse, alors y as t'il le choix dans les colonnes?
Si oui comment les selectionner

 

[dominique35]

Re : erreur d'execution 380

Bonsoir

Si je ne peut mettre plus de 10 colonnes dans une textbox, avez vous une autre idée de réalisation

 

[Kobaya]

Re : erreur d'execution 380

Bonsoir dominique35,

Non, pas vraiment d'idée comme ça...
Pourrais-tu poster ton fichier ? Ca pourrais donner des idées !