XL 2010 Affecter la valeur d'un Textbox dans un tableau

eduraiss · 2 Juin 2019

Bonjour le form
J'aimerais coder via mon Userform2 la chose suivante
J'ai une Combobox qui affiche la liSte des produis qui se trouve dans un tableau défini ("liste_produits") Sheets('Nom produit")par exemple oignons
En dessous j'ai un Textbox qui récupère la valeur du stock de sécurité dans le tableau en colonne I par exemple 50

J'aimerais pouvoir modifier ce seuil par exemple le passer à 40 dans l'Userform et que cela le mette a jour dans le tableau
là je bloque
Merci de votre aide
Cordialement

Temjeh · 2 Juin 2019

Bonjour

Sous le textbox a adapté:

VB:

Private Sub TextBox1_Change()
  Range("A1") = TextBox1
End Sub

Aussi a l'initialisation de Userform, tu peut y chargé avant la valeur de ton stock

VB:

Private Sub UserForm_Initialize()
  Textbox1= Range("A1")
End Sub

A+

eduraiss · 2 Juin 2019

Re le forum
bonjour Temjeh merci pour cette réponse
Je joins un fichier explicatif

Merci

Temjeh · 2 Juin 2019

Bonjour

Juste inversé le Range et le textbox et le mettre sus ton Textbox:

VB:

Private Sub Text_essai_Change()
Dim Liste_produits As Integer
Dim C As Range
    Set C = Sheets("Noms produits").Range("Liste_produits").Find(What:=Me.ComboBox1)
    If Not C Is Nothing Then C.Offset(, 3) = Me.Text_essai
End Sub

A+

eduraiss · 2 Juin 2019

re
J'ai mis ce code mais cela ne fonctionne pas
Désolé

Temjeh · 2 Juin 2019

Le voici

Je doit quitté

A+

eduraiss · 2 Juin 2019

Re

Parfait c'est moi qui avait positionner le code au mauvais endroit

merci beaucoup
Cordialement,

XL 2010 Affecter la valeur d'un Textbox dans un tableau

eduraiss

XLDnaute Accro

Temjeh

XLDnaute Accro

eduraiss

XLDnaute Accro

Pièces jointes

Temjeh

XLDnaute Accro

eduraiss

XLDnaute Accro

Temjeh

XLDnaute Accro

Pièces jointes

eduraiss

XLDnaute Accro

Discussions similaires