[VBA] Valeurs dans Combobox

Version imprimable

Bonjour,

J'ai un userform qui doit faire remonter les valeurs d'une feuille excel (de la colonne A) dans une combobox.

Ces valeurs sont présentes dans un tableau dont l'entête débute en A13.

Je souhaiterais voir apparaître dans ma combobox les valeurs de la cellule A14 jusqu'à la dernière cellule non vide.

Voici mon code qui fonctionne bien mais pourrait être amélioré :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 'Pour le formulaire Public Sub UserForm_Initialize() Dim choix1() choix1 = Application.Transpose(Sheets("Liste d'émargement électronique").Range("a12:a" & Sheets("Liste d'émargement électronique").Range("a65000").End(xlUp).Row)) Me.ComboBox1.List = choix1 End Sub 'Pour la liste déroulante CAB Private Sub ComboBox1_Change() Dim Ligne As Long If Me.ComboBox1.ListIndex = 1 Then Exit Sub Ligne = Me.ComboBox1.ListIndex + 12 TextBox1 = Worksheets("Liste d'émargement électronique").Cells(Ligne, "A") End Sub
Le code commence en A12 car en A14 il y a débogage quand le tableau est vide avec une erreur de type 13 incompatibilité de type.
Il faut 2 lignes non vides dans le tableau pour que le code paramétré en A14 fonctionne.

L'un d'entre vous pourrait-il m'aider ?

Merci beaucoup !

Bonne journée :)

Bonjour,

essayes ces codes

Code:

1
2
3
4
5
6
7
8
9
10
Public Sub UserForm_Initialize()
 
Dim choix1, Dcel As Range
With Sheets("Liste d'émargement électronique")
  Set Dcel = .Range("A" & .Rows.Count).End(xlUp)
  If Dcel.Address = .Range("A13").Address Then MsgBox "pas de données": Exit Sub 'ou Unload Me
  choix1 = .Range("A14", Dcel)
  Me.ComboBox1.List = choix1
End With
End Sub

Code:

1
2
3
4
5
6
7
8
9
 
Private Sub ComboBox1_Change()
Dim Ligne As Long
 
If Me.ComboBox1.ListIndex = 1 Then Exit Sub
Ligne = Me.ComboBox1.ListIndex + 14
TextBox1 = Worksheets("Liste d'émargement électronique").Cells(Ligne, "A")
 
End Sub

01/06/2016, 17h37
hakkio

Merci beaucoup.

Le code a été testé et ne fonctionne pas complètement :
Dès lors que la base est vide il fonctionne, de même s'il y a plus de deux entrées.
Par contre, quand il n'y a qu'une seule entrée, c'est-à-dire la cellule A14 remplie, alors erreur de type 381 (impossible de définir la propriété List.Index de table de propriétés non valide).

Par ailleurs, avec l'ancien code, la dernière saisie dans la textbox était automatiquement actualisée (ajoutée) dans la combobox, ce qui rendait la mise à jour des données dynamique.

Merci d'avance.

Bonne soirée !
01/06/2016, 19h25
casefayere

je suis étonné car j'ai testé sans problème

Citation:

la dernière saisie dans la textbox était automatiquement actualisée (ajoutée) dans la combobox, ce qui rendait la mise à jour des données dynamique.

ça également

Bonjour,

1- remplissage de la Combo :
Il se peut que, lorsque la plage n'est constitué que d'une unique cellule, la propriété List des ComboBox (et autres ListBox) n'accepte pas le tableau qu'on lui passe.
Dans ce cas, comme dans tous les cas, il convient de traiter à priori la variable tableau qui servira à alimenter la liste.

Pour cela, j'utilise désormais la fonction de ucFoutu permettant de Convertir sans faille un range en tableau :
Code:

1 2 3 4 5 6 7 8 9 10 Private Function faire_tableau(plage As Range) If plage.Cells.Count < 2 Then Dim tabli(1 To 1, 1 To 1) tabli(1, 1) = plage.Value faire_tableau = tabli Erase tabli Else faire_tableau = plage.Value End If End Function
L'appel de cette fonction, dans ton cas et en reprenant le code de Casefayere (que je salue au passage), donnerait :
Code:

1 2 3 4 5 6 Dim Dcel As Range With Sheets("Liste d'émargement électronique") Set Dcel = .Range("A" & .Rows.Count).End(xlUp) If Dcel.Address = .Range("A13").Address Then MsgBox "pas de données": Exit Sub 'ou Unload Me Me.ComboBox1.List = faire_tableau(.Range("A14", Dcel)) End With
2- Lors de la saisie dans un textbox
Si tu veux que la chaine saisie dans le textbox soit automatiquement ajoutée dans la combobox, il faut distinguer deux cas :
> La saisie dans le TextBox doit alimenter, à la fois la combobox ET la feuille,
> La saisie ne doit alimenter que la ComboBox.
Tu dis...

Bonjour,

J'ai fais le test en intégrant de la sorte :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
Private Function faire_tableau(plage As Range)
 If plage.Cells.Count < 2 Then
    Dim tabli(1 To 1, 1 To 1)
    tabli(1, 1) = plage.Value
    faire_tableau = tabli
    Erase tabli
  Else
    faire_tableau = plage.Value
  End If
End Function
 
'Pour le formulaire
Private Sub UserForm_Initialize()
 
Dim choix1, Dcel As Range
With Sheets("Liste d'émargement électronique")
  Set Dcel = .Range("A" & .Rows.Count).End(xlUp)
  If Dcel.Address = .Range("A13").Address Then MsgBox "pas de données": Exit Sub 'ou Unload Me
  choix1 = .Range("A14", Dcel)
  Me.ComboBox1.List = choix1
End With
End Sub
 
 
'Pour la liste déroulante CAB
Private Sub ComboBox1_Change()
Dim Dcel As Range
With Sheets("Liste d'émargement électronique")
  Set Dcel = .Range("A" & .Rows.Count).End(xlUp)
  If Dcel.Address = .Range("A13").Address Then MsgBox "pas de données": Exit Sub 'ou Unload Me
  Me.ComboBox1.List = faire_tableau(.Range("A14", Dcel))
End With
End Sub

Le test de mon côté n'est pas concluant : erreur d'éxecution '381'

Peut-être ai-je mal reproduit vos instructions ...:(

Dans tous les cas, je vous remercie pour vos réponses, le projet a dévié et je n'ai plus besoin de la combobox comme cité précédemment.

Bonne journée !