Discussion :

[calvi2002]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[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 :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Dim Cel as range
    For Each Cel In Range("A2:C2")
        cbxprix.AddItem Cel
    Next Cel

A+

[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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 
Private Sub cbxprix_Change()
txtprix.Text = cbxprix

j'ai trouvé une méthode

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[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.

[calvi2002]

Donc j'ai ce code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[LeForestier]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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+

[calvi2002]

ça marche pas mais merci comme même.

[LeForestier]

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

[Krovax]

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

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 :

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
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 ) du coup je ne peux que imaginer les souci que cela occasionne

[LeForestier]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 )
A+

[calvi2002]

merci à tous les deux j'ai trouvé

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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