remplissage auto des champs userform

Pierrot93

XLDnaute Barbatruc

• 30 Décembre 2009

• #2

Re : remplissage auto des champs userform

Bonjour Ktran

le message signifie que la propriété "listindex" n'est pas valide pour un "testbox", ce qui est vrai.... maintenant vois pas trop ce que tu veux faire...

bonne fin d'après midi
@+

 

Vote positif 0 Vote négatif

K

ktran

Guest

• 30 Décembre 2009

• #3

Re : remplissage auto des champs userform

Pierrot93 à dit:

Bonjour Ktran

le message signifie que la propriété "listindex" n'est pas valide pour un "testbox", ce qui est vrai.... maintenant vois pas trop ce que tu veux faire...

bonne fin d'après midi
@+

Cliquez pour agrandir...

ce que je souhaite faire, c est quand je remplis la case A/C dans mon userform, automatiquement, la macro recherche le fichier database customer le nom correspondant a ce A/C et me remplis automatiquement la case name dans mon userform

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 31 Décembre 2009

• #4

Re : remplissage auto des champs userform

Bonjour,

le mieux serait de nous joindre un tout petit fichier avec code et usf, le modèle de données et le résultat attendu. Pas facile de travailler sur des photos, et pas trop envie de tout recontruire...

bonne journée
@+

 

Vote positif 0 Vote négatif

K

ktran

Guest

• 31 Décembre 2009

• #5

Re : remplissage auto des champs userform

Pierrot93 à dit:

Bonjour,

le mieux serait de nous joindre un tout petit fichier avec code et usf, le modèle de données et le résultat attendu. Pas facile de travailler sur des photos, et pas trop envie de tout recontruire...

bonne journée
@+

Cliquez pour agrandir...

oui j ete en train de le faire 🙂

donc quan je rentre un no de compte dans le userform, la macro me remplit automatiquement le champs "name"

voici le code ecris :

Public database_customer As Workbook
Private Sub UserForm1_Initialize()
Call updating_name
ComboBox2.SetFocus
End Sub
Private Sub updating_name()
Dim compteur As Long
Dim addname As String
For compteur = 2 To database_customer.customer.Range("A1").End(xlDown).Row
addname = database_customer.customer.Range("A" & compteur).Value
ComboBox2.AddItem (addname)
Next compteur
End Sub
Private Sub ComboBox1_change()
Dim LigneSel As Long
LigneSel = ComboBox1.ListIndex + 2
ComboBox2 = database_customer.customer.Range("b" & LigneSel).Value
End Sub

 

Pièces jointes

• database customer.xls

  27 KB · Affichages: 138
• usf.jpg

  49.1 KB · Affichages: 156
• usf.jpg

  49.1 KB · Affichages: 174
• usf.jpg

  49.1 KB · Affichages: 175

Dernière modification par un modérateur: 31 Décembre 2009

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 31 Décembre 2009

• #6

Re : remplissage auto des champs userform

Re

je ne vois pas l'usf dans ton fichier...

 

Vote positif 0 Vote négatif

phlaurent55

Nous a quittés en 2020

Repose en paix

• 31 Décembre 2009

• #7

Re : remplissage auto des champs userform

Bonjour à tous,

Pierrot93 à dit:

Re

je ne vois pas l'usf dans ton fichier...

Cliquez pour agrandir...

et point de code non-plus 😡

Bonne fêtes à tous
à+
Philippe

 

Vote positif 0 Vote négatif

K

ktran

Guest

• 1 Janvier 2010

• #8

Re : remplissage auto des champs userform

pardon le forum, j ai du faire une mauvaise manip. donc voici les 2 fichiers :
la base de donnees (dans un workbook a part sauvegarde dans C/Mes documents)
le userform

Cijoint.fr - Service gratuit de dépôt de fichiers

Cijoint.fr - Service gratuit de dépôt de fichiers


merci d avance

 

Vote positif 0 Vote négatif

K

ktran

Guest

• 2 Janvier 2010

• #9

Re : remplissage auto des champs userform

un peu d aide le forum, merci d avance

 

Vote positif 0 Vote négatif

K

ktran

Guest

• 4 Janvier 2010

• #10

Re : remplissage auto des champs userform

j ai vraiment besoin de votre aide le forum

merci d avance

 

Vote positif 0 Vote négatif