Création d'une macro pour modifier la base de données

[pibes]

Bonsoir à tous,
J'ai eu la chance d'être aidé pour le programme par plusieurs personnes du forum, mais je voudrais apporter, une macro pour modifier dans userform la base de données.
Quelqu'un pourrait il m'aider S.V.P, merci d'avance.
Pibes

 

[BOISGONTIER]

Bonsoir,

Essai avec pgm générique.

jb

 

[BOISGONTIER]

Bonjour,

Avec une colonne calcul dans la BD.

jb

 

[pibes]

Bonjour,
Je vous remercie pour ce que vous avez eu la gentillesse de faire, mais est il possible que l' age et la catégorie et la cotisation, s'affiche automatiquement dès que l'on a mis la date de naissance.
Et que si je coche réduction famille et réduction payement avant date, il déduise la somme de la cotisation brute.
J'espère que ne pas trop abuser, mais je demande cela pour que des personnes débutantes sachent se servir du programme sans devoir remplir des pages.
Je vous remercie d'avance de votre gentillesse.
Pibes

 

[BOISGONTIER]

Bonsoir,

Ce qui est en bleu correspond à ce qui a été ajouté par rapport au programme générique.

http://boisgontierjacques.free.fr/f...mFiltreListBox6ComboBoxsMultiPagesCalculs.xls

Me.textbox4.List = Array("H", "F")
Me.textbox24.List = Array("oui", "non")
Me.textbox25.List = Array("oui", "non")
Me.textbox26.List = Array("oui", "non")

Private Sub TextBox5_Change()
  If IsDate(TextBox5) Then
  dnaiss = CDate(TextBox5)
  age = Year(Date) - Year(dnaiss)
  If (Month(dnaiss) >= Month(Date)) Or (Month(dnaiss) = Month(Date) And Month(dnaiss) > Day(Date)) Then age = age - 1
  TextBox19 = age
  temp = Application.VLookup(age, [caté], 2, True)
  If Not IsError(temp) Then TextBox20 = temp Else TextBox20 = ""
  temp = Application.VLookup(age, [caté], 3, True)
  If Not IsError(temp) Then TextBox21 = temp Else TextBox21 = ""
  End If
End Sub

Private Sub textbox12_Click()
  Me.TextBox15 = IIf(Me.textbox12 = True, 10, 0)
  CalculTarif
End Sub

Private Sub textbox13_Click()
  Me.TextBox16 = IIf(Me.textbox13 = True, 10, 0)
  CalculTarif
End Sub

Private Sub TextBox17_Change()
  CalculTarif
End Sub

Private Sub TextBox21_Change()
  CalculTarif
End Sub

Sub CalculTarif()
  Me.TextBox22 = (val(Me.TextBox21) - CDbl(Me.TextBox15) - val(TextBox16)) * (1 - val(TextBox17) / 100)
End Sub

jb

 

[pibes]

Bonsoir,
Merci pour votre gentillesse, mais je n'ai vu que l'age de la personne qui se mettait automatiquement, je suppose que tout ne fonctionne pas avec la version excel 2007, car j'ai eu le "code postal " et " ville" les zones de texte avaient disparus et le résultat ne se met pas à jour quand je fais des changements dans l'userform, je ne sais pas tester le programme a 100 %.
Que puis-je faire pour remédier à cela ?
Je vous remercie d'avance.
Pibes