Combobox : Liste de choix sur feuille differente...Résolu

Question

Bonjour,

J'ai dans mon classeur un Userform qui contient des Combobox avec des liste de choix définies par des zones (colonnes) de mon classeur!
Le code de ces combox est typiquement:

        Dim i As Integer
        With ComboBox1
        For i = 3 To 20
            .AddItem Range("D" & i)
        Next i
        .ListIndex = 0
    End With

Le problème est que la colonne "D" se trouve sur la "Feuil3" et donc je n'arrive pas à créer le lien...

Merci beaucoup pour votre aide
Isapel

Isapel · Accepted Answer

Il manquait le .Value maintenant ca fonctionne

Merci pour votre aide
Isapel

Dim i As Integer
With ComboBox1
   For i = 3 To 20
        .AddItem ThisWorkbook.Sheets(3).Range("D" & i).Value
   Next i
   .ListIndex = 0
End With

jrivet · Answer

Salut,
Et avec ceci?

Dim i As Integer
With ComboBox1
   For i = 3 To 20
       Call .AddItem(WorkSheets("Feuil3").Range("D" & i))
   Next i
   .ListIndex = 0
End With , ----
[code.aspx?ID=41455 By Renfield]

@+: Ju£i€n
Pensez: Réponse acceptée

Isapel · Answer

Salut Julien,

Message d'erreur : "L'indice n'appartient pas à la selection"

Private Sub UserForm_Initialize()
   
Dim i As Integer
With ComboBox1
   For i = 3 To 20
       Call .AddItem(Worksheets("Feuil3").Range("D" & i))
   Next i
   .ListIndex = 0
End With

Combobox : Liste de choix sur feuille differente...

3 réponses

Votre réponse

Discussions similaires