Discussion :

[calvi2002]

bonjour j'ai ce code

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
Private Sub UserForm_Initialize()
Dim plage As Range
cbxprix.Clear
 Range("a1").CurrentRegion.Select
 Set plage = Selection.Offset(0).Resize(1)
Text = " son prix est de "
Dim Cel As Range
For Each Cel In plage
If Cel.Text <> "" Then
        cbxprix.AddItem (Cel & Text & Cel.Offset(1, 0))
 End If
    Next Cel
End Sub

Je remplie ma combobox(cbxprix)avec les valeurs de la 1 et 2 ligne,quand les cellule ne sont pas vide.

Code :

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

1
2
3
4
5
6
 
Private Sub cbxprix_Change()
Text = " son prix est de "
Tableau = Split(cbxprix, Text)
txtprix.Text = Tableau(1)
End Sub

Quand je clique sur le text qu'il ya dans ma combobox,je prends la valeur qui est dans la 2_ème ligne et je la mets dans le txtbox.
juque la tout va bien.
le problème c'est quand je change la valeur dans le txtbox,je veux que cette valeur change la cellule d'ou elle fait partie et ça j'arrive pas a faire.
peut être quelq'un a une solution.
merci d'avance

[PMO2017]

Bonjour,

Une piste avec les codes suivants.

J'ai supposé, d'après vos explications, que votre liste se situe en colonne A et commence en A1 et chaque ligne de la ComboBox
correspond à 2 lignes de la feuille source (ce n'est pas de cette façon que j'aurais procédé mais vous devez avoir vos raisons).

DEMARCHE
1) créez une feuille nommée "test" et dans sa colonne A (à partir de A1) inscrivez des données (voir pièce jointe)
2) créez un UserForm (Name = UserForm1) et une ComboBox (Name = cbxprix) ainsi qu'une TextBox (Name = txtPrix)
3) copiez le code suivant dans la fenêtre de code du UserForm

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
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
 
Private Sub txtPrix_AfterUpdate()
If IsNumeric(txtPrix) Then
  S.Range("a" & 2 + (cbxprix.ListIndex * 2) & "") = CDbl(txtPrix)
Else
  S.Range("a" & 2 + (cbxprix.ListIndex * 2) & "") = txtPrix
End If
Call chargeComboBox
txtPrix = ""
End Sub
 
Private Sub UserForm_Initialize()
If S Is Nothing Then Set S = Sheets(MA_FEUILLE)
Call chargeComboBox
End Sub
 
Private Sub cbxprix_Change()
Dim A$
Dim Tableau
A$ = " son prix est de "
Tableau = Split(cbxprix, A$)
On Error Resume Next
txtPrix.Text = Tableau(1)
End Sub
 
Private Sub chargeComboBox()
Dim Plage As Range
Dim Cel As Range
Dim A$
Dim i&
cbxprix.Clear
Set Plage = S.Range("a1").CurrentRegion
A$ = " son prix est de "
For i& = 1 To Plage.Rows.Count Step 2
  Set Cel = Plage.Cells(i&, 1)
  cbxprix.AddItem (Cel & A$ & Cel.Offset(1, 0))
Next i&
End Sub

4) copiez le code suivant dans un module standard (adaptez, selon votre usage, la constante MA_FEUILLE cernée par des ###)

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
17
18
19
 
'### Constante à adapter ###
Public Const MA_FEUILLE As String = "test"
'###########################
 
Public S As Worksheet
 
Sub Launch_UserForm()
'--- Vérification de l'existence de MA_FEUILLE ---
On Error Resume Next
Set S = Sheets(MA_FEUILLE)
If S Is Nothing Then
  MsgBox "La feuille ''" & MA_FEUILLE & "'' est introuvable."
  Exit Sub
End If
On Error GoTo 0
'-------------------------------------------------
UserForm1.Show
End Sub

5) pour faire un test, il n'y a plus qu'à lancer la macro Launch_UserForm et changer la valeur de la TextBox qui se répercutera dans la feuille et la ComboBox

Cordialement.

PMO
Patrick Morange