Bonsoir le forum,
Je cherche depuis des heures à résoudre mon problème. J'ai un userform qui me demande d'introduire des données nécessaire pour écrire une correspondance. Je demande une date de premier impayé et une date de 2eme impayé et/ou un autre motif qui peut être repris sur 3 textbox.
Dans un deuxième temps, je demande le canton et l'adresse d'un juge de paix avec trois textbox.
Je souhaite pouvoir encoder cela uniquement si certaines conditions sont remplies: les deux dates d'impayés doivent être remplies (pas qu'une seule) et/ou un motif doit être mis dans la textbox3, première des trois textbox pour autre motif; il est nécessaire aussi que les trois textbox relatives au renseignement du juge soient remplies.
Voici une copie d'écran de mon userform et le code que j'ai essayé de pondre sans succès:
Private Sub Bout_Encod_Click()
If LIGNE_LOC = 0 Then Exit Sub
If LIGNE_BIEN = 0 Then Exit Sub
Do
If TextBox1 = "" Then TextBox2 = ""
If TextBox2 = "" Then TextBox1 = ""
If TextBox3 = "" Then
TextBox4 = ""
TextBox5 = ""
End If
Loop While TextBox1 <> "" And TextBox3 <> ""
If TextBox6 = "" Or TextBox7 = "" Or TextBox8 = "" Then
MsgBox "Précisez les renseignements du juge de paix"
End If
PREMIMPAYE = TextBox1.Value
DERNIMPAYE = TextBox2.Value
MOTIF1 = TextBox3.Value
MOTIF2 = TextBox4.Value
MOTIF3 = TextBox5.Value
CANTON = TextBox6.Value
ADRESSE1 = TextBox7.Value
ADRESSE2 = TextBox8.Value
Unload Me
End Sub
J'y perd mon latin (que je n'ai jamais appris!).
Si une bonne âme peut m'aider?
Merci d'avance