Combobox vide au démarrage(?) [Résolu]

[chrystobale]

Bonjour le Forum je viens vers vous car j'ai eu beau chercher mais malheureusement je n'ai pas trouvé sur le forum ...

A l'ouverture de mon fichier Excel "test.xls" mon combobox est vide - pour pouvoir "charger" le contenu du combobox, je dois mettre ma souris dans le combobox et taper une touche quelconque, là ma liste (reference colonne A) est chargée ...
Que manque t il a mon code pour démarrer avec par exemple "select Chiffre" dans le combobox et surtout avoir la liste dans le combobox ...?

Voici le code:

Code :

1
2
3
4
5
6
7
8
Private Sub ComboBox1_Click()
Dim Cell As Range
ligne = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row
For i = 1 To ligne
If ComboBox1.ListIndex = -1 Then _
        Me.ComboBox1.AddItem ActiveSheet.Range("A" & i).Value
Next
End Sub

MErci de votre aide,
Chris

[bbil]

Ta procédure événementielle :

Code :

ComboBox1_Click

s'exécute lorsque tu clique sur ton combobox ....

utilise un autre événement..

par exemple :

Code :

Private Sub UserForm_Activate()

[chrystobale]

hello, j'ai changé par

Code :

Private Sub ComboBox1_Change()

mais ca nemarche pas ..

[bbil]

Envoyé par chrystobale

hello, j'ai changé par


mais ca ne marche pas ..

Et pourquoi change ?

[chrystobale]

j'ai tenté par "activate" mais cela ne marche pas non plus ... en fait je ne comprends pas la suggestion et d'ailleurs me demande si elle mène vers quelque chose ...
cordialement,
C

[bbil]

Envoyé par chrystobale

j'ai tenté par "activate" mais cela ne marche pas non plus ... en fait je ne comprends pas la suggestion et d'ailleurs me demande si elle mène vers quelque chose ...
cordialement,
C

??


tu la mis ou ton activate ??

[chrystobale]

voilà ce que j'ai mis

Code :

1
2
3
4
5
6
7
8
9
10
11
Private Sub UserForm_Activate()
End Sub
 
Private Sub ComboBox1_Change()
Dim Cell As Range
    ligne = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row
    For i = 1 To ligne
    If ComboBox1.ListIndex = -1 Then _
        Me.ComboBox1.AddItem ActiveSheet.Range("A" & i).Value
    Next
End Sub

soit je mis prends comme un manche ou alors j'ai rien compris ...

cdt,
chris

[chrystobale]

Hello,
Je viens de dénicher sur un autre lien une solution provisoire ...

Afin que le Combobox soit "rafraîchit" il faut ajouter un bouton. On obtient alors:

Ajouter un bouton sur la feuille Excel:

Code :

1
2
3
Private Sub CommandButton1_Click()
Call ComboBox1_Change
End Sub

Puis dans le Comobox1, mettre le code suivant:

Code :

1
2
3
4
5
6
7
8
9
10
11
Private Sub ComboBox1_Change()
Dim Cell As Range
Dim i As Integer
Dim ligne As Integer
ComboBox1.Clear
    ligne = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row
    For i = 1 To ligne
    If ComboBox1.ListIndex = -1 Then _
        Me.ComboBox1.AddItem ActiveSheet.Range("A" & i).Value
    Next
End Sub

J'avoue que je préférerai me passer d'un bouton pour rafraîchir le contenu de mon combobox1 ...
Si quelqu'un a une autre idée ...?

Cdt,
Chris

[gFZT82]

Bonjour,

Ta ComboBox peut-elle être alimentée à l’activation de l’Userform ou doit-elle être mise à jour régulièrement ou occasionnellement (liste évolutive) ?
Si elle peut être alimentée à l’activation de l’Userform, la solution de bbil doit pouvoir te convenir

Code :

1
2
3
4
5
6
7
8
9
Option Explicit
Private Sub UserForm_Activate()
Dim Ligne As Long, i As Long
    Ligne = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row
    For i = 1 To Ligne
    If ComboBox1.ListIndex = -1 Then _
        Me.ComboBox1.AddItem ActiveSheet.Range("A" & i).Value
    Next
End Sub

Tu peux trouver des compléments utiles dans
http://silkyroad.developpez.com/VBA/ControlesUserForm/

Cordialement.

[chrystobale]

Bonjour gFZT82 et merci pour ta proposition.
Malheureusement je ne souhaite pas utiliser un userform ... pour certaines raisons (mes utilisateurs ...)

[gFZT82]

As-tu essayé avec l'évènement Worksheet.Activate ?

Code :

1
2
3
4
5
6
7
8
9
10
Option Explicit
Private Sub Worksheet_Activate()
Dim Ligne As Long, i As Long
    ComboBox1.Clear
    Ligne = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row
    For i = 1 To Ligne
    If ComboBox1.ListIndex = -1 Then _
        Me.ComboBox1.AddItem ActiveSheet.Range("A" & i).Value
    Next
End Sub

Cordialement.

[chrystobale]

Bonjour gFZT82,
Je viens de tester ta proposition, hélas cela ne fonctionne pas ... y a t il quelque chose à activer pour que le Worksheet s'active ou un autre truc qui ne serait "allumer" sur mon PC

[gFZT82]

Il semble effectivement que l'événement Activate concernant le classeur ne se produit pas.
Essaie de placer ce code dans le module ThisWorkbook.
La ComboBox sera alimentée à l’ouverture du classeur.

Code :

1
2
3
4
5
6
7
8
9
10
11
Private Sub Workbook_Open()
Dim Ligne As Long, i As Long
With Worksheets("Feuil1") 'A adapter
    .ComboBox1.Clear
    Ligne = .Cells(.Rows.Count, 1).End(xlUp).Row
    For i = 1 To Ligne
    If .ComboBox1.ListIndex = -1 Then _
        .ComboBox1.AddItem ActiveSheet.Range("A" & i).Value
    Next
End With
End Sub

(Penses à adapter le nom de ta feuille).

[chrystobale]

J'ai le même résultat, voir pire la liste ne se charge pas dans le Combobox.
J'ai testé avec MS 2003 et 2010

[gFZT82]

Et en rajoutant Worksheets("Feuil1").Select ?

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
 
Private Sub Workbook_Open()
Dim Ligne As Long, i As Long
With Worksheets("Feuil1") 'A adapter
    Worksheets("Feuil1").Select
    .ComboBox1.Clear
    Ligne = .Cells(.Rows.Count, 1).End(xlUp).Row
    For i = 1 To Ligne
    If .ComboBox1.ListIndex = -1 Then _
        .ComboBox1.AddItem ActiveSheet.Range("A" & i).Value
    Next
End With
End Sub

[chrystobale]

j'avais testé cette hypothèse mais j'avais mis le Worksheets("Feuil1").Select ailleurs...
Malheureusement c'est le même résultat. Comme je l'indiquais, le combobox n'est même plus chargé ... c'est à croire que la fonction Workbook_Open n'est pas reconnu chez moi, une idée ?

[gFZT82]

Non, dans l'instant je n'ai pas d'idée .
Peux-tu faire passer ton classeur épuré ?

[chrystobale]

salut gFZT82,
J'ai une bonne nouvelle et une mauvaise (pour moi)

La bonne: Je ne mettais la partie de ton code au bon endroit - en effet je mettais cela dans la Feuil-x de Microsoft Excel Objects au lieu de le mettre dans "ThisWorkbook" ...
Maintenant cela marche très très très bien !

La mauvaise: JE suis une quiche c'est confirmé mais j'accepte!

Merci pour ton supportet celui de bbil !!

Cordialement,
Chris