base de donnée

Dranreb

XLDnaute Barbatruc

• 28 Avril 2015

• #2

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.

VB:

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

 

Dernière édition: 28 Avril 2015

Vote positif 0 Vote négatif

Z

ZEPE

XLDnaute Junior

• 29 Avril 2015

• #3

Re : base de donnée

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

 

Vote positif 0 Vote négatif

gilbert_RGI

XLDnaute Barbatruc

• 29 Avril 2015

• #4

Re : base de donnée

Bonjour,

comme ceci peut-être

😎

 

Pièces jointes

• formulaire_zepe.xlsm

  76.7 KB · Affichages: 43

Vote positif 0 Vote négatif

Z

ZEPE

XLDnaute Junior

• 29 Avril 2015

• #5

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

 

Vote positif 0 Vote négatif

gilbert_RGI

XLDnaute Barbatruc

• 29 Avril 2015

• #6

Re : base de donnée

voilà un peu plus complet 😎

 

Pièces jointes

• formulaire_zepe1.xlsm

  91.3 KB · Affichages: 30

Vote positif 0 Vote négatif

Z

ZEPE

XLDnaute Junior

• 29 Avril 2015

• #7

Re : base de donnée

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

 

Vote positif 0 Vote négatif

gilbert_RGI

XLDnaute Barbatruc

• 29 Avril 2015

• #8

Re : base de donnée

pour le fun 😎

 

Pièces jointes

• formulaire_zepe2.xlsm

  94 KB · Affichages: 49
• formulaire_zepe2.xlsm

  94 KB · Affichages: 49
• formulaire_zepe2.xlsm

  94 KB · Affichages: 48

Vote positif 0 Vote négatif

Z

ZEPE

XLDnaute Junior

• 29 Avril 2015

• #9

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

 

Pièces jointes

• formulaire_zepe2.xlsm

  94.1 KB · Affichages: 30
• formulaire_zepe2.xlsm

  94.1 KB · Affichages: 41
• formulaire_zepe2.xlsm

  94.1 KB · Affichages: 41

Vote positif 0 Vote négatif

gilbert_RGI

XLDnaute Barbatruc

• 29 Avril 2015

• #10

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

 

Vote positif 0 Vote négatif

Z

ZEPE

XLDnaute Junior

• 29 Avril 2015

• #11

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

 

Dernière édition: 29 Avril 2015

Vote positif 0 Vote négatif

gilbert_RGI

XLDnaute Barbatruc

• 29 Avril 2015

• #12

Re : base de donnée

alors voilà

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

 

Pièces jointes

• formulaire_zepe2-1.xlsm

  97.4 KB · Affichages: 39

Vote positif 0 Vote négatif

gilbert_RGI

XLDnaute Barbatruc

• 29 Avril 2015

• #13

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 🙄

 

Vote positif 0 Vote négatif

gilbert_RGI

XLDnaute Barbatruc

• 29 Avril 2015

• #14

Re : base de donnée

merci de remplacer

VB:

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

VB:

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

 

Vote positif 0 Vote négatif

Z

ZEPE

XLDnaute Junior

• 29 Avril 2015

• #15

Re : base de donnée

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

 

Vote positif 0 Vote négatif