Discussion :

[lemerite]

j'utilise excel 2003, je souhaite utiliser un combobox pour sélectionner 1 élément parmi 5. lorsque j'ouvre le feuille le combobox ne contient pas les informations programmées lors de l'initialisation.
merci d'avance.

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
34
35
36
37
38
39
40
41
42
43
44
45
Private Sub UserForm_Initialize()
 
 
ComboBox1.Clear
 
    ComboBox1.AddItem "TCH Cong"      'ListIndex = 0
    ComboBox1.AddItem "TCH Drop"      'ListIndex = 1
    ComboBox1.AddItem "SDCCH Cong"    'ListIndex = 2
    ComboBox1.AddItem "SDCCH Drop"    'ListIndex = 3
    ComboBox1.AddItem "Outgoing HO"   'ListIndex = 4
    ComboBox1.AddItem "Incoming HO"   'ListIndex = 5
'combobox1.
'ComboBox1.ListIndex = 0
 
End Sub
Private Sub interim()
Dim indx, indx1 As Integer
Dim cellname, cellname1 As String
 
Select Case ComboBox1.Value
'=====================================================================================
 
    Case 0   'TCH Cong
      For indx = 2 To 33
        cellname = Worksheets("Neighbor_KPI").Range("C" & indx).Value
 
        If cellname = "" Then
          GoTo line2
        End If
 
          For indx1 = 2 To 949
            cellname1 = Worksheets("TCH_CONG").Range("E" & indx1).Value
 
            If cellname = cellname1 Then
              Sheets("TCH_CONG").Range("F" & indx1 & ":P" & indx1).Copy
              Sheets("Neighbor_KPI").Select
              Range("D" & indx).Select
               Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
              :=False, Transpose:=False
              GoTo line
             End If
 
          Next indx1
line:
      Next indx

[ouskel'n'or]

Le problème est ailleurs : Supprime tous ton code placé dans l'userform à l'exception de la sub Userform_Initialize, tu verras que ton combo est renseigné.
A+

[lemerite]

c'est justement ce que je ne comprends pas. la feuille contient seulement le Userform_Initialize, et j'ai besoin d'entrer dans le code et l' exécuter avant que mon combobox soit renseigné. n'y a t'il pas un moyen pour qu'il soit renseigné dès l'ouverture de la feuille?
merci encore une fois.

[ouskel'n'or]

Ok, je crois comprendre ton problème... mécépasûr.
Quand souhaites-tu afficher l'userform ?
- à l'ouverture du classeur ?
- à la sélection d'un feuille de calculs déterminée
- grâce à un bouton placé sur une feuille de calculs ?
Distingue bien Classeur, Feuille et Formulaire (userform)
A+

[bepbep]

Pourquoi ne pas utiliser ton code a l'ouverture du workbook plutôt ?

Private Sub Workbook_Open()

[lemerite]

j'aimerai que la combobox soit renseignée dès que je suis dans la feuille en question. comme ça je peux directement sélectionner mon option et clické sur un bouton ok, ainsi une procedure poura utiliser mon option pour s'exécuter.
merci encore