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