Alimentation d une combobox depuis une listview

[belerofon]

Bonjour All,
suite a un gros mal de crane et des heures de bidouille je m en remet a vous pour solliciter un coup de main... dans le fichief ci joint vous comprendre rapidement le but recherche... il s agit d un petit outil pour gerer une collection de pieces en euros...
je bloque sur l alimentation de la combobox appelee CobAnnee que je souhaite alimenter par les elements de la ListView1 compris dans la colonne "Année"...

J'ai bien essaye de multiples variantes de :

For L = 1 To ListView1.ListItems.Count
CobAnnee = ListView1.["Année"].Rows(L).Value
Next

... sans reussite, et la je seche
quelqu un saurais me depanner???
Merci,
J.

 

[belerofon]

Re : Alimentation d une combobox depuis une listview

Plus je bidouille et moins ca marche... Je commence a me demander si c est possible en fait...

 

[roro69]

Re : Alimentation d une combobox depuis une listview

Bonjour ;
Pourquoi ne pas remplir la combobox depuis la feuille...

Set Plage = Sheets("Base").Range("A1:A" & Der)
With CobAnnee
.Clear

For Each Cel In Plage


If Cel = CobSelPays Then
.AddItem Cel(1, 2)
End If
Next Cel
If .ListCount > 0 Then .ListIndex = 0
End With

A++

 

[belerofon]

Re : Alimentation d une combobox depuis une listview

Salut roro,
Je vais essayer ca merci , mais je serais curieux de savoir s il est possible de le faire via VBA ...
Juste par curiosite intellectuelle car je ne trouve aucune trace d un tel code sur le net...
J.

 

[roro69]

Re : Alimentation d une combobox depuis une listview

Bonjour

Je vais essayer ca merci , mais je serais curieux de savoir s il est possible de le faire via VBA ...

Le code que je t'ai mis la haut c'est bien e vba non..............
recopie ce code tout simplement

Set Plage = Sheets("Base").Range("A1:A" & Der)
With CobAnnee
.Clear

For Each Cel In Plage


If Cel = CobSelPays Then
.AddItem Cel(1, 2)
End If
Next Cel
If .ListCount > 0 Then .ListIndex = 0
End With

 

[belerofon]

Re : Alimentation d une combobox depuis une listview

Lol j raconte des conneries... Je voulais dire en utilisant une syntaxe du type que je mentionnait sans passer par la methode "Sheets("Base")"....

 

[roro69]

Re : Alimentation d une combobox depuis une listview

Re
Dans la FIN DE ta procédure : Sub Inilvw1() colle simplement ce code ci:

With CobAnnee
.Clear

For Each Cel In Plage


If Cel = CobSelPays Then
.AddItem Cel(1, 2)
End If
Next Cel
If .ListCount > 0 Then .ListIndex = 0
End With

A++

 

[belerofon]

Re : Alimentation d une combobox depuis une listview

Roro,
Ca me met une erreur a .Additem(1,2)
...

 

[belerofon]

Re : Alimentation d une combobox depuis une listview

Ok mauvaise manip, a faie trop de trucs en meme temps on fais des betises...
T es un chef Roro...
Merci bcp...

 

[belerofon]

Re : Alimentation d une combobox depuis une listview

En fait le truc c est que j aurais aime manipuler directement la listview parcequement maintenant je veux implementer la ComboBox CobValeur avec toutes les valeurs de pieces qui sont differentes de "X" et j vois pas comment le faire depuis la table "Base" sans que ce soit le bordel...

 

[belerofon]

Re : Alimentation d une combobox depuis une listview

je crois que je progresse avec ma combobox CobValeur avec ce code :

' Initialise CobValeur
Set Plage = Sheets("Base").Range("A1:A" & Der)
With CobValeur
.Clear
For Each Cel In Plage
If Cel & Cel(1, 2) = TxbPays.Text & CobAnnee Then
If Cel(1, 3) <> "" Then
.AddItem "1c"
End If
If Cel(1, 4) <> "" Then
.AddItem "2c"
End If
If Cel(1, 5) <> "" Then
.AddItem "5c"
End If
If Cel(1, 6) <> "" Then
.AddItem "10c"
End If
If Cel(1, 7) <> "" Then
.AddItem "20c"
End If
If Cel(1, 8) <> "" Then
.AddItem "50c"
End If
If Cel(1, 9) <> "" Then
.AddItem "1€"
End If
If Cel(1, 10) <> "" Then
.AddItem "2€"
End If
If Cel(1, 11) <> "" Then
.AddItem "2€ C"
End If
End If
Next Cel
If .ListCount > 0 Then .ListIndex = -1
End With

Mais ca ne marche toujours pas...
Une idée de ce qui cloche???
J.

 

[roro69]

Re : Alimentation d une combobox depuis une listview

Bonjour
Ne pourrais tu pas essayer en debut de procedure ceci:

If Cel = TxbPays.Text And Cel(1, 2) = CobAnnee Then

AU lieu de ceci

If Cel & Cel(1, 2) = TxbPays.Text & CobAnnee Then

A++
Sinon je pense qu'il faudrait mIeux passer par des select case ; la j'ai pas trop le temps de regarder; je regarderai ce soir;sinon tu peut taper dans google select case et tu verras il ya plein d'exemple
A++

 

[belerofon]

Re : Alimentation d une combobox depuis une listview

Select Case... Connais pas... Des que j ai fini ma garde je fonce me documenter sur cette instruction...
Merci du conseil, a ce soir Roro
J.

 

[laetitia90]

Re : Alimentation d une combobox depuis une listview

bonjour belerofon ,Roro
comme je comprends??
reponse sur le premier post pas ouvert le dernier

CobAnnee.Clear
 Dim i As Long
 For i = 1 To ListView1.ListItems.Count
 If ListView1.ListItems(i).ListSubItems(1).Text <> "" Then
 CobAnnee.AddItem ListView1.ListItems(i).ListSubItems(1).Text
 End If
 Next i

ps salut bqtr

 

[bqtr]

Re : Alimentation d une combobox depuis une listview

Bonjour belerofon, roro69

Sous réserve d'avoir bien compris, voici un exemple en travaillant sur la listview :

Private Sub CobAnnee_Change()

Dim i As Integer, j As Integer
CobValeur.Clear
For i = 1 To ListView1.ListItems.Count
   If ListView1.ListItems(i).ListSubItems(1).Text = CobAnnee.Text Then
      For j = 2 To ListView1.ColumnHeaders.Count - 1
         If ListView1.ListItems(i).ListSubItems(j).Text = "" Then CobValeur.AddItem ListView1.ColumnHeaders(j + 1).Text
      Next j
   End If
Next i

End Sub

Tu sélectionnes l'année et les pièces manquantes sont affichées dans la combobox "CobValeur".
Tu adapteras car tu as des "X" et des "-". Pourquoi les "-" ?

A+