Discussion :

[toniodelavega]

Bonjour,

petit problème avec mon code :

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
Private Sub UserForm_Initialize()
 
Dim LastLig As Long
Dim i As Long
 
LastLig = Sheets("Scenario").Cells(Rows.Count, "A").End(xlUp).Row 'dernière ligne
UserForm1.ComboBox1.RowSource = "Scenario!A5:A" & LastLig
 
  With Sheets("Scenario")
 
        For i = 4 To .Range("A65000").End(xlUp).Row
              TextBox_Scenario = i
            If .Cells(i, 1) <> .Cells(i - 1, 1) Then
                CbxRecherche.AddItem .Cells(i, 1).Value
            End If
        Next
    End With
 
End Sub

J'ai mis en rouge ce qui foire... et j'ai zéro idée de ce que ça peut être...

merci !!

Je mmet en pièce jointe le fichier, je pense que ça peut aider ...

J'essai de créer un formulaire avec une liste déroulante qui me permette de visualiser des données facilement

[ESVBA]

Désolé, je ne télécharge pas...


il y a bien deux "combobox" différentes ?

Elles affichent la même chose avec ce code. Et ça fonctionne.

C'est quoi le problème ?

ESVBA

[PPz78]

Le mot scenario doit être un mot réservé (cf aide en ligne), commences donc à changer de nom.

PPz