remplir une combobox avec un tableau

Version imprimable

21/07/2009, 19h07
calvi2002

remplir une combobox avec un tableau
Bonjour,ja'i du mal à remplir ma combobox(cbxprix) avec les valeurs d'un tableau(prix)
Code:

1 2 3 4 5 6 7 8 Private Sub UserForm_Initialize() Dim prix As Variant Set prix = Range("a2:c2").Cells Do While i < UBound(prix) + 1 travail.cbxprix.AddItem (prix(i)) Loop End Sub
ma userform s'appelle travail.quand j'arrive à ubound j'ai un message "incompatibilité du type".je ne sais pas utiliser ubound pour un tableau à 2 dimensions.
merci de votre aide
21/07/2009, 19h15
LeForestier
Bonjour,
J'ai du mal a comprendre ce que tu veux faire, en faisant de cette façon tes prix vont êtres "mélangés" !
Mais si c'est ce que tu veux...
Code:

1 2 3 4 Dim Cel as range For Each Cel In Range("A2:C2") cbxprix.AddItem Cel Next Cel
A+
21/07/2009, 19h41
calvi2002
merci,mais j'ai pas compris pourquoi les prix seront mélanges?
en faite le but de ma manip c'est de récupérer les valeurs des cellules dans ma cbxbox et après si je sélectionne une valeurs dans ma cbxbox,cette valeur je la met dans un textbox(jusque la ça va).en modifiant la valeur dans le textbox je voudrais que ça modifie dans la cellule directement.
et le problème c'est que je ne sais pas comment récupéré ma cellule par rapport à la valeur du textbox.
Code:

1 2 3 4 5 6 7 Private Sub UserForm_Initialize() Dim Cel As Range For Each Cel In Range("c2:g2") cbxprix.AddItem Cel Next Cel End Sub
Code:

1 2 3 Private Sub cbxprix_Change() txtprix.Text = cbxprix
j'ai trouvé une méthode
Code:

1 2 3 4 Private Sub txtprix_Change() Cells(2, cbxprix.ListIndex + 3) = txtprix.Text End Sub
ça marche mais peut être existe une autre solution.
21/07/2009, 21h50
LeForestier

CA NE SAIT PAS MARCHER
Tu a des prix dans la colonne C, la colonne D, la colonne... g (c'est justement là que je veux dire que ce sera mélangé)
et tu change TOUJOURS la cellule de la colonne B ??
je ne comprend rien.
Faudrait peut être expliquer un peu mieux.

Donc j'ai ce code
Code:

1 2 3 4 5 6 7 8 9 dim cel as range Private Sub UserForm_Initialize() cbxprix.Clear For Each Cel In Range("c1:g1") cbxprix.AddItem (Cel & " son prix est de " & Cel.Offset(1, 0)) Next Cel End Sub
la je remplie ma combobox(cbxprix)avec du texte qui se trouve en Cel et avec la valeur de chaque Cel qui se trouve en Cel.Offset(1,0).
jusque la tout va bien.
Code:

1 2 3 Private Sub cbxprix_Change() txtprix.Text = Cel.Offset(1, 0)(cbxprix.ListIndex)
Ici je veux récupéré la valeur du Cel.Offset(1,0)dans un textbox(txtbox) et par la suite si je veux changer cette valeur que ça change directement dans Cel.Offset(1,0)
si quelqu'un pourrait m'aider,je bogue la dessus depuis hier.
merci

22/07/2009, 20h12
LeForestier

Pfffiiiit j'y comprend plus rien.. enfin soit.

Code:

txtprix.Text = Cel.Offset(1, 0)(cbxprix.ListIndex)

Si quelqu'un comprend ce qu'il veux faire qu'il prenne la relève.. merci.
Moi j'abandonne.
A+
22/07/2009, 21h32
calvi2002

ça marche pas mais merci comme même.
23/07/2009, 07h42
LeForestier

Aller, ont va reprendre quand même
Essaye d'expliquer ce que tu veux faire.
Quoi tu veux mettre dans ton TextBox ?

Bonjour,
Je vais essayer d'aider le forestier a t'aider :roll:

Pourquoi essaye tu d'utiliser la variable cel dans cbxprix_Change() alors quelle n'existe pas dans cette sub et ne représente absolument rien!

Ton objectif si j'ai bien compris
Tu as une combobox avec un produit et un prix. Tu veux pouvoir modifié le prix et que cela soit reporté dans ton tableau excel c'est bien ca? Je te suggère de faire un bouton indépendant du genre Modifier le Prix, la ca t'ouvre une fenêtre avec le produit (que tu récupère avec le cbxprix.ListIndex) et qui propose d'entrer un nouveau prix

Exemple
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 private sub modifPrix_click() dim rep as string dim flag as boolean flag=true do flag=false rep=inputbox("Entrer le prix en euro de " & Cells(1, cbxprix.ListIndex + 3) & " :") If rep="" then exit sub if not isnumeric(replace(rep,",",".")) then flag=true msgbox "Veuiller entrer une valeur numérique." end if loop while flag Cells(2, cbxprix.ListIndex + 3)=rep end sub
En espérant que cbxprix.ListIndex + 3 te donne bien la colonne qui corespond a la ligne selectionné

Edit j'ai toujours du mal avec les virgule pour les nombres décimaux, je ne sais jamais quand il faut utiliser un replace(saisie,",",".") pour remplacer les , par des points, la ou je suis tous les ordinateur utilise les . comme séparateur de décimale (merci les logiciel de calcul en convention anglosaxonne :ccool:) du coup je ne peux que imaginer les souci que cela occasionne :mouarf:

Bonjour Krovax,
Merci, ton intervention m'a incité à relire tout les postes à tête reposée. :(
D'après ce que j'en ai (enfin) compris il veux un UF qui lui permet de modifier ses prix. Et il n'y à que l'écriture dans la feuille qui lui manque.

calvi2002 : c'est ça ?
Si oui, faut pas mettre la modification de la feuille dans le change du TextBox mais dans d'autre événement
soit dans le KeyDown pour quand l'utilisateur tape ENTER.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
    If KeyCode = 13 Then
        'Contrôle que le texte n'est pas vide
        If TextBox1 = "" Then Exit Sub
        'Recherche la cellule  en cour de modif et vérifie qu'elle a été modifiée
        If Val(Replace(TextBox1, ",", ".")) <> Val(Replace(Cells(1, cbxprix.ListIndex + 3), ",", ".")) Then
            Cells(1, cbxprix.ListIndex + 3) = Replace(TextBox1, ".", ",")
            'Modifie le comboBox.
            cbxprix.List(cbxprix.ListIndex) = Cells(1, cbxprix.ListIndex + 3) _
                & " son prix est de " & Cells(2, cbxprix.ListIndex + 3)
        End If
    End If
End Sub

Soit dans le exit quand l'utilisateur clic sur un autre contrôle

Code:

1
2
3
4
5
6
7
8
9
10
11
Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
        'Contrôle que le texte n'est pas vide
        If TextBox1 = "" Then Exit Sub
        'Recherche la cellule en cour de modif et vérifie qu'elle a été modifiée
        If Val(Replace(TextBox1, ",", ".")) <> Val(Replace(Cells(1, cbxprix.ListIndex + 3), ",", ".")) Then
            Cells(1, cbxprix.ListIndex + 3) = Replace(TextBox1, ".", ",")
            'Modifie le comboBox.
            cbxprix.List(cbxprix.ListIndex) = Cells(1, cbxprix.ListIndex + 3) _
                & " son prix est de " & Cells(2, cbxprix.ListIndex + 3)
        End If
End Sub

Ou bien dans les deux.
Krovak : pour ta dernière remarque, je préfère ajuster le point/virgule d'office, surtout dans les cas de comparaison sur des textBox. (qui peu le plus peu le moins :P)
A+

merci à tous les deux j'ai trouvé

Code:

1
2
3
4
5
6
7
8
9
10
 
Private Sub UserForm_Initialize()
Text = " sa valeur est de => "
Dim Cel, cellule As Range
For Each Cel In Range("a1:bk1")
If Cel.Text <> "" Then
        cbxcouleur.AddItem (Cel.Offset(1, 0) & Text & Cel)
    End If
    Next Cel
next sub

ensuite quand on clique sur la combobox

Code:

1
2
3
4
5
 
UserForm1.txtprix.Visible = True
Text = " sa valeur est de => "
Tableau = Split(cbxcouleur, Text)
Me.txtprix.Text = Tableau(1)

et pour changer la valeur dans le txtbox

Code:

1
2
3
4
5
6
7
8
9
 
 
Private Sub txtprix_Change()
Dim plage As Range
Text = " sa valeur est de => "
Tableau = Split(cbxcouleur, Text)
Set plage = Range("A2:bk2").Find(What:=Tableau(0), LookIn:=xlValues)
plage.Offset(-1, 0) = txtprix.Text
End Sub

bon ici sur la 1 ligne j'ai la valeur et sur la 2 ligne le texte corespondant ,mais l'idée est la même.
merci