Discussion :

[romainhugot]

Bonjour,

Je débute en VBA Excel et j'avoue galérer un peu.
Ce qui me bloque c'est que je n'arrive pas à intialiser une combobox à partir de données présentent à la fin de mon tableau de travail (il y a un espace entre).
En fait, le formulaire sert à gérer la réservation de salles.
Donc en fonction de la salle choisie dans la COMBOBOX1 je souhaite afficher les prix de références.
Voici le code que j'utilise:

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
'Pour l'initialisation du formulaire.
' les données des prix par salle se trouvent en ligne 4 colonne 32
'Chargement du nom des salles
 
Private Sub UserForm_Initialize()
 
 
Dim i As Long
Dim j As Long
Dim colonne As Integer
 
 
colonne = 32
Do While Worksheets("Feuil1").Cells(4, colonne).Value <> ""
    Reservation_de_salle.ComboBox1.AddItem Cells(4, colonne).Value
    colonne = colonne + 1
Loop
END SUB
 
 
' Puis je teste la valeur renseignée dans COMBOBOX1.VALUE pour afficher les prix
 
Private Sub ComboBox1_Change()
i = 32
Reservation_de_salle.LISTEPRIX.Clear
Do While Sheets("feuil1").Cells(4, i).Value <> ""
    If Cells(4, i).Value = ComboBox1.Value Then
       Cells(5, i).Select
       colonne = ActiveCell.Column
    End If
    i = i + 1
Loop
j = 5
Do While Cells(j, colonne).Value <> ""
    Reservation_de_salle.LISTEPRIX.AddItem Cells(j, colonne)
    j = j + 1
Loop
LISTEPRIX.ListIndex = 0
 
End Sub

Ce code me ramène une erreur

'1004' Erreur définie par l'application ou par l'objet et débogage m'indique que i et j valent tous les deux 6????

Je ne comprends pas cela et pourquoi ça ne fonctionne pas?

Pourriez-vous m'aider?

Merci d'avance

[EricDgn]

Bonjour,

Si j'ai bien compris, les salles sont sur une ligne, et plusieurs prix sont indiqués en-dessous de chacune des salles. Dans ce cas, quelque chose de ce genre devrait fonctionner:

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
Option Explicit
 
Private Sub UserForm_Initialize()
    Dim colonne As Integer
    colonne = 32
    Do While Worksheets("Feuil1").Cells(4, colonne).Value <> ""
        Reservation_de_salle.Combobox1.AddItem Cells(4, colonne).Value
        colonne = colonne + 1
    Loop
End Sub
 
 
' Puis je teste la valeur renseignée dans COMBOBOX1.VALUE pour afficher les prix
 
Private Sub ComboBox1_Change()
    Dim j As Long
    colonne = 32 + Combobox1.ListIndex
    Debug.Print "colonne="; colonne
    Reservation_de_salle.LISTEPRIX.Clear
    j = 5
    Do While Cells(j, colonne).Value <> ""
        Reservation_de_salle.LISTEPRIX.AddItem Cells(j, colonne)
        j = j + 1
    Loop
    LISTEPRIX.ListIndex = 0
End Sub

Cordialement.