Modif sur USF...pour saisie intuitive

[Christian0258]

Bonjour à tout le forum,

Je souhaiterais votre aide afin d'ajouter, sur un USF, un textbox pour pouvoir faire une saisie intuitive en tapant les premières lettres ...

voir fichier

Je vous remercie pour le temps que vous voudrez bien m'accorder.

Bien à vous,
Christian

 

[CHALET53]

Re : Modif sur USF...pour saisie intuitive

Re,

C'est beau : ça plante sur les lettres non présentes dans la feuille Articles

Sans doute pas compliqué à corriger Numidia
A toi de jouer

 

[pierrejean]

Re : Modif sur USF...pour saisie intuitive

Bonjour a tous

@ Numidia

j'ai eu une mauvaise surprise avec ton fichier !!!! (generation d'un tas de fichiers)

@ Christian
a tester:

Private Sub TextBox1_Change()
Dim ldeb As Long
Dim n As Long
  ListBox1.Clear
   ldeb = Len(TextBox1)
   For n = 2 To Sheets("Articles").Range("A65536").End(xlUp).Row
      If Left(Sheets("Articles").Range("A" & n), ldeb) = TextBox1 Then
        Me.ListBox1.AddItem Sheets("Articles").Range("A" & n)
      End If
   Next n
End Sub

Apres avoir supprimé

'ListBox1.RowSource = "Articles!" & VarPlageList
de
Private Sub UserForm_Initialize()

 

[Numidia]

Re : Modif sur USF...pour saisie intuitive

theirry rebonsoir,

en attendant de l'ameliorer,tu peux travailler avec celle ci car elle est fonctionnelle.
bonne soirée et bonne reception
Numidia
a+

 

[Numidia]

Re : Modif sur USF...pour saisie intuitive

derniere version pour aujourd'hui
bonne soiree bonne reception
numidia

 

[Christian0258]

Re : Modif sur USF...pour saisie intuitive

Re, le forum,

Un grand merci à vous tous pour le boulot...

Pour l'instant aucune solution ne fonctionne correctement.
C'est la solution de CHALET53 qui fonctionne presque...lol
en effet après avoir taper les premières lettres les articles apparaissent dans la combo mais lorsque l'on valide une fourniture
la désignation qui doit se placer col C feuille facture ne s'inscrit pas ?

à vous lire.

Encore merci,
Christian

 

[CHALET53]

Re : Modif sur USF...pour saisie intuitive

Bonjour,


Pour tout dire, je ne me suis pas casser la tête : dans la procédure combobox1_change, j'ai recopié le code qui était présent dans LIstbox_click avec quelques corrections (notamment UserForm1.ListBox1.ListIndex par UserForm1.ComboBox1.ListIndex)

Dans la procédure CommandButton1_click faire la modif listbox1 par combobox1 comme ceci

With Sheets("Facture")
.Range("B" & VarDerL) = LabelCode
.Range("C" & VarDerL) = ComboBox1
.Range("D" & VarDerL) = TextBoxQuantite
.Range("E" & VarDerL) = Format(LabelPrixUnit, 0#)
.Range("F" & VarDerL) = Format(LabelPrixTotal, 0#)
End With

et

Sheets("Articles").Range("D" & VarSelectedArticle).Value = _
Sheets("Articles").Range("D" & VarSelectedArticle).Value - TextBoxQuantite
Combobox1 = ""

 

[Numidia]

Re : Modif sur USF...pour saisie intuitive

Derniere modefication
aurevoir l'equipe