Combobox et listindex : erreur 380

Version imprimable

Bonjour, j'ai une erreur lorsque je charge un combobox avec le code suivant :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
 
 
 
       derLigne = Worksheets("Parametres").Range("e65536").End(xlUp).Row
       For j = 3 To derLigne
                 If ActiveWorkbook.Sheets("Parametres").Cells(j, 5).Value = Me.ListView1.ListItems(i).ListSubItems(4).Text Then
 
               if ActiveWorkbook.Sheets("Parametres").Cells(j, 6).Value - 1= 0 then
                            frmEcranSaisie.ComboBox1.ListIndex = 0
                            Else
                                frmEcranSaisie.comboBox1.ListIndex = ActiveWorkbook.Sheets("Parametres").Cells(j, 6).Value - 1
                        End If
                 End If
       Next j
    End If
Next

J'ai alors une erreur d'exécution 380 : impossible de définir la propriété ListIndex. Valeur de propriété non valide.

A quoi cela est-il du ? Quelqu'un peut-il m'aiguiller ? Par avance merci

05/02/2008, 18h51
ouskel'n'or

Je crois (!!!) que ListIndex permet de connaître l'élément sélectionné, pas de recevoir une valeur

Citation:

Envoyé par l'aide en ligne

La propriété ListIndex contient un index de la ligne sélectionnée dans la liste. Les valeurs de la propriété ListIndex sont comprises entre –1 et le nombre total de lignes de la liste moins 1 (c'est-à-dire, ListCount – 1). Lorsqu'aucune ligne n'est sélectionnée, la propriété ListIndex renvoie la valeur –1.

Que veux-tu faire ?
06/02/2008, 10h02
sat478

J'alimente mon combo à partir d'une liste de valeurs qui se trouvent dans une feuille paramètres.

J'ai ensuite un listview. Lorsque je sélectionne une ligne dans le listview celui-ci possède parmi toutes ses colonnes une des valeurs du combo.

Dans ma feuille excel j'ai une correspondance entre les valeurs du combo et son emplacement dans la liste

Exemple :
1 - toto
2 - tata
3 - titi

Mon listview peut avoir la valeur "tata" dans ses données.

Quand je clique sur l'élément du listview je souhaite que le combo s'initialise directement sur la seconde ligne.

C'est peut etre pas très très clair :-( mais là j'avoue que je suis coincé et c'est très ennuyeux
06/02/2008, 11h46
ouskel'n'or
ListIndex te donne le N° de la ligne sélectionnée -1
Si les données de ta feuille se suivent, tu as le N° de ligne -1 dans ListIndex.
Je reprends ton exemple
1 - toto
2 - tata
3 - titi
Si tu sélectionnes tata, tu as Listindex = 1
Pour le N° de ligne, c'est donc ListIndex + 1 = 2

Pour renseigner ton combo, ou tu utilises Additem pour ajouter les données de la ligne, ou tu crées un tableau des données de ta ligne et tu utilises alors List
Dans l'événement Change de ta listview, tu mets
Avec Additem :
Code:

1 2 3 4 5 6 Dim NoLigne Dim NoCol NoLigne = ComboBox1.ListIndex + 1 For NoCol = 1 To 5 Me.ComboBox2.AddItem Cells(NoLigne, NoCol) Next
Avec List :
Code:

1 2 3 4 5 6 7 Dim NoLigne Dim NoCol, Tablo(5) NoLigne = ComboBox1.ListIndex + 1 For NoCol = 1 To 5 Tablo(NoCol) = Cells(NoLigne, NoCol) Next Me.ComboBox2.List() = Tablo
A+