Discussion :

[hakkio]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[casefayere]

Bonjour,

essayes ces codes

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[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 !

[casefayere]

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

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

[pijaku]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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...

[hakkio]

Bonjour,

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 !