Enregistrer les modifications du Textbox relié à une Combobox

Version imprimable

25/03/2015, 19h50
foular

1 pièce(s) jointe(s)

Enregistrer les modifications du Textbox relié à une Combobox

Salut,
comment peu éditer un code qui permet d’enregistrer les modifications du textbox qui relier avec des combobox
dans la page de stocks
je joindre un fichier d'exemple
28/03/2015, 15h48
foular

1 pièce(s) jointe(s)

Bonjour
Je vais essayer d' expliquer le nécessaire ci-dessous:
Je veux insérer un code pour le bouton Enregistrer qui enregistre dans la page des Stocks les valeurs du TextBox selon l'item qui est affiché dans le ComboBox (les TextBox concernés sont numérisés à partir de 147 jusqu'à 155 et colorés en jaune).
28/03/2015, 16h51
gnain

Citation:

Envoyé par foular

enregistre dans la page des Stocks les valeurs du TextBox selon l'item qui est affiché dans le ComboBox

Bonjour,
Dans quel colonne que tu veux mettre les textbox
28/03/2015, 17h06
foular

bonjour,
gnain je vous remercié de votre intérêt pour cette sujet.
Je veux mettre les textbox dans le colonne "D".
28/03/2015, 17h48
gnain

Bonjour,
en regardant vos codes, je constate que vous débrouillé assez bien en vba,

Ce que je ferais, puisqu'en choisissant un item dans vos combobox vous êtes capable
de trouver sa quantité et son prix, il faudrait ajouter le numéro de ligne dans un autre textbox ou label caché
pour chaque combobox.

maintenant dans votre bouton enregistrer, il sera facile d'aller mettre la nouvelle quantité.

Code:

cells(nouveau textbox ou label,4) = textbox147.text
28/03/2015, 18h26
foular

Bonjour,
gnain merci pour l'idée mais je vous demande d'appliquer l'idée sur la piéce jointe SVP

Bonjour,
je pensais avoir été suffisamment clair.

d'abor il faut ajouter un textbox pour chaque choix
il faut ajouter une variable à votre sub Sher

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Sub Sher(sShr As String, sText As String, Ligne As String)
Dim cc
Dim n: n = 11
    Me(sText).Value = ""
    Me(Ligne).Value = ""    
      Me.TextBox131.Value = ""
      MyStr = sShr & "*"
      For Each ii In Ary
      n = n + 1
        If ii = sShr Then Exit For
      Next ii
    If sShr = "" Then
        Me(sText).Value = ""
        Else
     
        Me(sText).Value = ws.Cells(n, 3).Value
        Me(Ligne).Value = n    
    End If
    Me.TextBox131.Value = (Val(TextBox122.Value) + Val(TextBox123.Value) + Val(TextBox124.Value) + Val(TextBox125.Value) + Val(TextBox126.Value) + Val(TextBox127.Value) + (Val(TextBox128.Value) * Val(TextBox121.Value)) + Val(TextBox129.Value) + Val(TextBox130.Value)) * Val(TextBox133.Value)
    Me.TextBox136.Value = Val(TextBox122.Value) + Val(TextBox123.Value) + Val(TextBox124.Value) + Val(TextBox125.Value) + Val(TextBox126.Value) + Val(TextBox127.Value) + (Val(TextBox128.Value) * Val(TextBox121.Value)) + Val(TextBox129.Value) + Val(TextBox130.Value)
    End Sub

à chaque fois que vous appelez votre sub Sher il faut ajouter le textbox assiocié
Sher Me.ComboBox14, "TextBox129", "textbox981"

dans votre bouton enregistrer
ajouter les lignes de code pour mettre les valeurs des textbox jaune dans la colonne D

Code:

1
2
3
cells(textbox981.text,4) = textbox147.text
cells(nouveau textbox.text,4) = textbox148.text 'remplacer nouveau textbox par le textbox associé au textbox148
'ainsi de suite ...

29/03/2015, 19h12
foular

Bonjour,
Gnain merci beaucoup ce est la solution.
Mais il ya un point important: lorsque ignoré L'un des TextBox ce qui signifie qu'aucune modification dans les TextBox alors garder les valeurs actuelles sans changement.
Comment peu editer le code dans ce cas.
29/03/2015, 22h35
gnain
Citation:

Envoyé par foular

lorsque ignoré L'un des TextBox ce qui signifie qu'aucune modification dans les TextBox alors garder les valeurs actuelles sans changement.

si tu veut dire vide pour "lorsque ignoré" alors
Code:

1 2 3 If textbox147.text <> "" then cells(textbox981.text,4) = textbox147.text End If
31/03/2015, 12h38
foular

gnain je vous remercie beaucoup pour la solution