base de donnée

[ZEPE]

Bonjour,
je reviens vers vous pour un problème, je viens de créer une petite base de donnée avec du code (je débute).
Quand je génère ma macro mon formulaire apparait, mais lorsque je remplis les champs rien ne s'inscrit dans mon tableau clients, il ne se remplit. De plus, j'ai créé une liste déroulante qui n'apparait pas dans le formulaire. (Codes postaux).
Pouvez-vous m'aider.
Merci

 

[Dranreb]

Re : base de donnée

Bonjour.
Il semblerait que vous vous soyez trompé de feuille pour l'initialisation de ComboBox1: Sheets("clients") c'est la feuille Excel représentée par l'objet Workseet mentionné dans la rubrique Microsoft Excel Objets, et donc directement connu du projet VBA, sous le nom de Sheet1. Or il me semble que c'est Sheet3 qu'il faut prendre.

Me.ComboBox1.List = Sheet3.[A1].Resize(Sheet3.[A60000].End(xlUp).Row).Value

 

[ZEPE]

Re : base de donnée

merci de la réponse je vais regarder ou je dois mettre ce code

 

[gilbert_RGI]

Re : base de donnée

Bonjour,

comme ceci peut-être

 

[ZEPE]

Re : base de donnée

oui merci impeccable, mais j'ai toujours pas trouvé pour que mon tableau se remplisse quand je rempli le formulaire merci

 

[gilbert_RGI]

Re : base de donnée

voilà un peu plus complet

 

[ZEPE]

Re : base de donnée

merci beaucoup je vais pouvoir continuer et essayer d'améliorer celui-ci

 

[gilbert_RGI]

Re : base de donnée

pour le fun

 

[ZEPE]

Re : base de donnée

Merci, mais le No de police est spécifique par contre j'ai ajouté deux combox supplémentaires dans mon formulaire qui ne sont pas prises en compte , pouvez vous me dire ou le mettre dans le code ou mettre les lignes en rouge que je vois comment on fait pour ajouter cela, je souhaiterais aussi que quand je rajoute une ligne la formule de la dernière ligne se rajoute automatiquement (voir fichier)
merci de l'aide

 

[gilbert_RGI]

Re : base de donnée

mon dernier envoi ne vous intéresse pas ?

ce ne sont pas des combo qui ont été rajoutées mais des textbox

 

[ZEPE]

Re : base de donnée

Bien sur que si mais si j'ai bien compris dans le fichier pour le "FUN" le no de police c'est auto number, mais je dois mettre un No spécifique et très bien pour les dates parfait même et oui c'est bien des textbox

 

[gilbert_RGI]

Re : base de donnée

alors voilà

les deux dernières textbox déclenchent une erreur si elles ne sont pas numérique

 

[gilbert_RGI]

Re : base de donnée

le no de police c'est auto number Non c'est à vous de remplir si vous voulez une incrémentation c'est possible à voir

 

[gilbert_RGI]

Re : base de donnée

merci de remplacer

Private Sub TextBox12_Change()
    If  Not IsNumeric(Me.TextBox12.Value) Then MsgBox "Erreur": Me.TextBox12.Value = ""

End Sub

Private Sub TextBox13_Change()
    If Not IsNumeric(Me.TextBox13.Value) Then MsgBox "Erreur": Me.TextBox13.Value = ""

End Sub

par

Private Sub TextBox12_Change()
    If Me.TextBox12.Value <> "" And Not IsNumeric(Me.TextBox12.Value) Then MsgBox "Erreur": Me.TextBox12.Value = ""

End Sub

Private Sub TextBox13_Change()
    If Me.TextBox13.Value <> "" And Not IsNumeric(Me.TextBox13.Value) Then MsgBox "Erreur": Me.TextBox13.Value = ""

End Sub

 

[ZEPE]

Re : base de donnée

merci de l'aide je vais tester cela demain matin bonne soirée