Discussion :

[foular]

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

[foular]

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

[gnain]

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

[foular]

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

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

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

cells(nouveau textbox ou label,4) = textbox147.text

[foular]

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

[gnain]

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 :

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

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

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

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

[gnain]

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 :

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

1
2
3
If textbox147.text <> "" then
    cells(textbox981.text,4) = textbox147.text
End If

[foular]

gnain je vous remercie beaucoup pour la solution