Rafraichissement Automatique

bonjour,

je tiens a vous remercier avant tous de votre présence habituelle

voici mon problème

j'ai un fichier qui fonctionne correctement.

je suis sur la phase de le réaliser sous un USERFORM, le hic c'est que je n'arrive pas a faire un rafraichissement automatique des l’insertion de données

exemple si j’insère dans le textbox1 un numéros de châssis (de 8 chiffres) il ne s'ajoute pas automatiquement dans la listbox1 ( or dans la feuille ça s'ajoute) et le textbox13 ne m'affiche pas le résultat.

merci pour votre aide

Bonjour,

Dans ton USFORM à la fin de ta macro --> Private Sub CommandButton1_Click(), essai en rajoutant l'instruction ci-après avant le END SUB

Call InitListbox

Sinon j'aurais pas placé un SUB dans l'USERFORM mais plutôt dans un module.

Si ok, clique sur le V vert à coté du bouton EDITER pour cloturer le fil

Amicalement

Edit Dan : Après cette instruction tu peux aussi ajouter celle-ci pour, une fois la valeur enreistrée sur ta feuille, supprimer le contenu de la textbox -->

Me.TextBox1.Value = ""

bonjour

merci DAN

c'est extra ca fonctionne, mais je n'arriva pas a l'adapter pour

Private Sub TextBox13_Change()

Me.TextBox13 = Cells(1, 9).Value
Call InitListbox

End Sub

le TextBox13 ne se rafraichi pas

merci pour l'aide

bonsoir

quelqu'un poura-t-il m'aider sur le rafraichissement du textbox13

merci

Bonsoir

A ta place je supprimerai la macro TextBox13_Change, et le code je le placerai dans ma macro InitListbox

Sub InitListbox()
Dim J As Long

  Me.ListBox1.Clear
  With Sheets("2013")
    For J = 8 To .Range("B" & Rows.Count).End(xlUp).Row
      If .Range("B" & J) <> "" And .Range("B" & J) Like Me.TextBox2 & "*" Then Me.ListBox1.AddItem .Range("B" & J)
    Next J
  End With
  Me.TextBox13 = Cells(1, 9).Value
End Sub

merciiiiiii

ca fonctionne