Excel crashing when entering date in userform

jptaz

New Member
Joined
May 1, 2020
Messages
33
Office Version
  1. 2010
Platform
  1. Windows
Hello everyone, here's my issue.
Since monday, for no apparent reason, when I enter a date in my userform, excel crashes and need to be restarted. I have multiple backup files (even really old files) that share the same problem and last friday, everything worked flawlessly.

The problem seems to occur when I'm doing these steps :
1- opening the file and entering a date in one of the textbox (birthdate for example) (no crash at this point)
2- closing the document after saving
3- opening the same file again and entering a date will make it crash
4- it can happen at beginning or a the end of the entry.
5- it will continue until a change minor thing in the code or if I save the file under a new name, then back to step 1

- My userform contains textboxes fomatted with this date format "yyyy/mm/dd" with a maximum number of caracter allowed
- If I delete the formating code for dates, it seems to work, but you can imagine I hope to keep it the way it was.
- There was no issue until this week and did no change I can think of, specially on older files.
- There is no vba error, just excel crashing
- strangely, I have to date textboxes that never crash, but the code is exactly the same as the others...
- The issue can be reproduce on excel 2010 and 2013 and on other computers

I've researched this issue and came by some code cleaner app. I can't use it at work, but could find a way. Do you think this could work?

Here is my code for adding new file

VBA Code:
Option Explicit
Private oldLength As Integer


Private Sub Combo_dominance_Change()
Combo_dom_preh_ini.Text = Combo_dominance.Text
End Sub




'date de l'évaluation initiale
Private Sub Text_date_eval_ini_Change()
     If (oldLength > Text_date_eval_ini.TextLength) Then
         oldLength = Text_date_eval_ini.TextLength
         Exit Sub
     End If
    Text_date_eval_ini.MaxLength = 10    'nb caractères maxi autorisé dans le textbox mettre 8 si tu veux l'année à 2 chiffres
     If Text_date_eval_ini.TextLength = 4 Or Text_date_eval_ini.TextLength = 7 Then
    Text_date_eval_ini.Text = Text_date_eval_ini.Text + "/"
     End If
     oldLength = Text_date_eval_ini.TextLength
End Sub

'date de l'évaluation finale
Private Sub Text_date_eval_fin_Change()
If (oldLength > Text_date_eval_fin.TextLength) Then
         oldLength = Text_date_eval_fin.TextLength
         Exit Sub
     End If
    Text_date_eval_fin.MaxLength = 10    'nb caractères maxi autorisé dans le textbox mettre 8 si tu veux l'année à 2 chiffres
     If Text_date_eval_fin.TextLength = 4 Or Text_date_eval_fin.TextLength = 7 Then
    Text_date_eval_fin.Text = Text_date_eval_fin.Text + "/"
     End If
     oldLength = Text_date_eval_fin.TextLength
End Sub

'birthdate


Private Function DiffDateAMJ(DateDebut As Date, DateFin As Date) As String
Dim NbAns As Long, NbMois As Long, NbJours As Long
Dim Tmp As Date, sA As String, sM As String, sJ As String
 
    Tmp = DateSerial(Year(DateFin), Month(DateDebut), Day(DateDebut))
    NbAns = Year(DateFin) - Year(DateDebut) + (Tmp > DateFin)
    NbMois = Month(DateFin) - Month(DateDebut) - (12 * (Tmp > DateFin))
    NbJours = Day(DateFin) - Day(DateDebut) + 1
 
    If NbJours < 0 Then
        NbMois = NbMois - 1
        NbJours = Day(DateSerial(Year(DateFin), Month(DateFin), 0)) + NbJours
    End If
 
    If NbAns = 0 Then sA = "" Else sA = NbAns & " ans "
    If NbMois = 0 Then sM = "" Else sM = NbMois & "mois "
    If NbJours = 0 Then sJ = "" Else sJ = NbJours & "jours"
 
    DiffDateAMJ = Trim$(sA)
    'DiffDateAMJ = Trim$(sA & sM & sJ) pour avoir ans mois jours
End Function
 


Private Sub Text_ddn_Change()

If (oldLength > Text_ddn.TextLength) Then
         oldLength = Text_ddn.TextLength
         Exit Sub
End If
Text_ddn.MaxLength = 10    'nb caractères maxi autorisé dans le textbox mettre 8 si tu veux l'année à 2 chiffres
     If Text_ddn.TextLength = 4 Or Text_ddn.TextLength = 7 Then
    Text_ddn.Text = Text_ddn.Text + "/"
     End If
     oldLength = Text_ddn.TextLength
     
     If IsDate(Text_ddn.Text) Then
        Text_age.Text = DiffDateAMJ(Text_ddn.Text, Date)
    End If
    

    
End Sub




'date de LEAPA initial
Private Sub Text_date_leapa_ini_Change()
If (oldLength > Text_date_leapa_ini.TextLength) Then
         oldLength = Text_date_leapa_ini.TextLength
         Exit Sub
     End If
    Text_date_leapa_ini.MaxLength = 10    'nb caractères maxi autorisé dans le textbox mettre 8 si tu veux l'année à 2 chiffres
     If Text_date_leapa_ini.TextLength = 4 Or Text_date_leapa_ini.TextLength = 7 Then
    Text_date_leapa_ini.Text = Text_date_leapa_ini.Text + "/"
     End If
     oldLength = Text_date_leapa_ini.TextLength
End Sub


'date de LEAPA final
Private Sub Text_date_leapa_fin_Change()
If (oldLength > Text_date_leapa_fin.TextLength) Then
         oldLength = Text_date_leapa_fin.TextLength
         Exit Sub
     End If
    Text_date_leapa_fin.MaxLength = 10    'nb caractères maxi autorisé dans le textbox mettre 8 si tu veux l'année à 2 chiffres
     If Text_date_leapa_fin.TextLength = 4 Or Text_date_leapa_fin.TextLength = 7 Then
    Text_date_leapa_fin.Text = Text_date_leapa_fin.Text + "/"
     End If
     oldLength = Text_date_leapa_fin.TextLength
End Sub





'date de podométrie

Private Sub Text_date_pod_1_ini_Change()
        If (oldLength > Text_date_pod_1_ini.TextLength) Then
         oldLength = Text_date_pod_1_ini.TextLength
         Exit Sub
     End If
    Text_date_pod_1_ini.MaxLength = 10    'nb caractères maxi autorisé dans le textbox mettre 8 si tu veux l'année à 2 chiffres
     If Text_date_pod_1_ini.TextLength = 4 Or Text_date_pod_1_ini.TextLength = 7 Then
    Text_date_pod_1_ini.Text = Text_date_pod_1_ini.Text + "/"
     End If
     oldLength = Text_date_pod_1_ini.TextLength
   
   End Sub

Private Sub Text_date_pod_2_ini_Change()
     If (oldLength > Text_date_pod_2_ini.TextLength) Then
         oldLength = Text_date_pod_2_ini.TextLength
         Exit Sub
     End If
    Text_date_pod_2_ini.MaxLength = 10    'nb caractères maxi autorisé dans le textbox mettre 8 si tu veux l'année à 2 chiffres
     If Text_date_pod_2_ini.TextLength = 4 Or Text_date_pod_2_ini.TextLength = 7 Then
    Text_date_pod_2_ini.Text = Text_date_pod_2_ini.Text + "/"
     End If
     oldLength = Text_date_pod_2_ini.TextLength
End Sub


Private Sub Text_date_pod_3_ini_Change()
     If (oldLength > Text_date_pod_3_ini.TextLength) Then
         oldLength = Text_date_pod_3_ini.TextLength
         Exit Sub
     End If
    Text_date_pod_3_ini.MaxLength = 10    'nb caractères maxi autorisé dans le textbox mettre 8 si tu veux l'année à 2 chiffres
     If Text_date_pod_3_ini.TextLength = 4 Or Text_date_pod_3_ini.TextLength = 7 Then
    Text_date_pod_3_ini.Text = Text_date_pod_3_ini.Text + "/"
     End If
     oldLength = Text_date_pod_3_ini.TextLength
End Sub

Private Sub Text_date_pod_4_ini_Change()
     If (oldLength > Text_date_pod_4_ini.TextLength) Then
         oldLength = Text_date_pod_4_ini.TextLength
         Exit Sub
     End If
    Text_date_pod_4_ini.MaxLength = 10    'nb caractères maxi autorisé dans le textbox mettre 8 si tu veux l'année à 2 chiffres
     If Text_date_pod_4_ini.TextLength = 4 Or Text_date_pod_4_ini.TextLength = 7 Then
    Text_date_pod_4_ini.Text = Text_date_pod_4_ini.Text + "/"
     End If
     oldLength = Text_date_pod_4_ini.TextLength
End Sub

Private Sub Text_date_pod_5_ini_Change()
     If (oldLength > Text_date_pod_5_ini.TextLength) Then
         oldLength = Text_date_pod_5_ini.TextLength
         Exit Sub
     End If
    Text_date_pod_5_ini.MaxLength = 10    'nb caractères maxi autorisé dans le textbox mettre 8 si tu veux l'année à 2 chiffres
     If Text_date_pod_5_ini.TextLength = 4 Or Text_date_pod_5_ini.TextLength = 7 Then
    Text_date_pod_5_ini.Text = Text_date_pod_5_ini.Text + "/"
     End If
     oldLength = Text_date_pod_5_ini.TextLength
End Sub

Private Sub Text_date_pod_6_ini_Change()
     If (oldLength > Text_date_pod_6_ini.TextLength) Then
         oldLength = Text_date_pod_6_ini.TextLength
         Exit Sub
     End If
    Text_date_pod_6_ini.MaxLength = 10    'nb caractères maxi autorisé dans le textbox mettre 8 si tu veux l'année à 2 chiffres
     If Text_date_pod_6_ini.TextLength = 4 Or Text_date_pod_6_ini.TextLength = 7 Then
    Text_date_pod_6_ini.Text = Text_date_pod_6_ini.Text + "/"
     End If
     oldLength = Text_date_pod_6_ini.TextLength
End Sub

Private Sub Text_date_pod_7_ini_Change()
     If (oldLength > Text_date_pod_7_ini.TextLength) Then
         oldLength = Text_date_pod_7_ini.TextLength
         Exit Sub
     End If
    Text_date_pod_7_ini.MaxLength = 10    'nb caractères maxi autorisé dans le textbox mettre 8 si tu veux l'année à 2 chiffres
     If Text_date_pod_7_ini.TextLength = 4 Or Text_date_pod_7_ini.TextLength = 7 Then
    Text_date_pod_7_ini.Text = Text_date_pod_7_ini.Text + "/"
     End If
     oldLength = Text_date_pod_7_ini.TextLength
End Sub

Private Sub Text_date_pod_8_ini_Change()
     If (oldLength > Text_date_pod_8_ini.TextLength) Then
         oldLength = Text_date_pod_8_ini.TextLength
         Exit Sub
     End If
    Text_date_pod_8_ini.MaxLength = 10    'nb caractères maxi autorisé dans le textbox mettre 8 si tu veux l'année à 2 chiffres
     If Text_date_pod_8_ini.TextLength = 4 Or Text_date_pod_8_ini.TextLength = 7 Then
    Text_date_pod_8_ini.Text = Text_date_pod_8_ini.Text + "/"
     End If
     oldLength = Text_date_pod_8_ini.TextLength
End Sub

Private Sub Text_date_pod_1_fin_Change()
     If (oldLength > Text_date_pod_1_fin.TextLength) Then
         oldLength = Text_date_pod_1_fin.TextLength
         Exit Sub
     End If
    Text_date_pod_1_fin.MaxLength = 10    'nb caractères maxi autorisé dans le textbox mettre 8 si tu veux l'année à 2 chiffres
     If Text_date_pod_1_fin.TextLength = 4 Or Text_date_pod_1_fin.TextLength = 7 Then
    Text_date_pod_1_fin.Text = Text_date_pod_1_fin.Text + "/"
     End If
     oldLength = Text_date_pod_1_fin.TextLength
End Sub





Private Sub Text_date_pod_2_fin_Change()
     If (oldLength > Text_date_pod_2_fin.TextLength) Then
         oldLength = Text_date_pod_2_fin.TextLength
         Exit Sub
     End If
    Text_date_pod_2_fin.MaxLength = 10    'nb caractères maxi autorisé dans le textbox mettre 8 si tu veux l'année à 2 chiffres
     If Text_date_pod_2_fin.TextLength = 4 Or Text_date_pod_2_fin.TextLength = 7 Then
    Text_date_pod_2_fin.Text = Text_date_pod_2_fin.Text + "/"
     End If
     oldLength = Text_date_pod_2_fin.TextLength
End Sub


Private Sub Text_date_pod_3_fin_Change()
     If (oldLength > Text_date_pod_3_fin.TextLength) Then
         oldLength = Text_date_pod_3_fin.TextLength
         Exit Sub
     End If
    Text_date_pod_3_fin.MaxLength = 10    'nb caractères maxi autorisé dans le textbox mettre 8 si tu veux l'année à 2 chiffres
     If Text_date_pod_3_fin.TextLength = 4 Or Text_date_pod_3_fin.TextLength = 7 Then
    Text_date_pod_3_fin.Text = Text_date_pod_3_fin.Text + "/"
     End If
     oldLength = Text_date_pod_3_fin.TextLength
End Sub


Private Sub Text_date_pod_4_fin_Change()
     If (oldLength > Text_date_pod_4_fin.TextLength) Then
         oldLength = Text_date_pod_4_fin.TextLength
         Exit Sub
     End If
    Text_date_pod_4_fin.MaxLength = 10    'nb caractères maxi autorisé dans le textbox mettre 8 si tu veux l'année à 2 chiffres
     If Text_date_pod_4_fin.TextLength = 4 Or Text_date_pod_4_fin.TextLength = 7 Then
    Text_date_pod_4_fin.Text = Text_date_pod_4_fin.Text + "/"
     End If
     oldLength = Text_date_pod_4_fin.TextLength
End Sub

Private Sub Text_date_pod_5_fin_Change()
     If (oldLength > Text_date_pod_5_fin.TextLength) Then
         oldLength = Text_date_pod_5_fin.TextLength
         Exit Sub
     End If
    Text_date_pod_5_fin.MaxLength = 10    'nb caractères maxi autorisé dans le textbox mettre 8 si tu veux l'année à 2 chiffres
     If Text_date_pod_5_fin.TextLength = 4 Or Text_date_pod_5_fin.TextLength = 7 Then
    Text_date_pod_5_fin.Text = Text_date_pod_5_fin.Text + "/"
     End If
     oldLength = Text_date_pod_5_fin.TextLength
End Sub

Private Sub Text_date_pod_6_fin_Change()
     If (oldLength > Text_date_pod_6_fin.TextLength) Then
         oldLength = Text_date_pod_6_fin.TextLength
         Exit Sub
     End If
    Text_date_pod_6_fin.MaxLength = 10    'nb caractères maxi autorisé dans le textbox mettre 8 si tu veux l'année à 2 chiffres
     If Text_date_pod_6_fin.TextLength = 4 Or Text_date_pod_6_fin.TextLength = 7 Then
    Text_date_pod_6_fin.Text = Text_date_pod_6_fin.Text + "/"
     End If
     oldLength = Text_date_pod_6_fin.TextLength
End Sub

Private Sub Text_date_pod_7_fin_Change()
     If (oldLength > Text_date_pod_7_fin.TextLength) Then
         oldLength = Text_date_pod_7_fin.TextLength
         Exit Sub
     End If
    Text_date_pod_7_fin.MaxLength = 10    'nb caractères maxi autorisé dans le textbox mettre 8 si tu veux l'année à 2 chiffres
     If Text_date_pod_7_fin.TextLength = 4 Or Text_date_pod_7_fin.TextLength = 7 Then
    Text_date_pod_7_fin.Text = Text_date_pod_7_fin.Text + "/"
     End If
     oldLength = Text_date_pod_7_fin.TextLength
End Sub



Private Sub Text_date_pod_8_fin_Change()
     If (oldLength > Text_date_pod_8_fin.TextLength) Then
         oldLength = Text_date_pod_8_fin.TextLength
         Exit Sub
     End If
    Text_date_pod_8_fin.MaxLength = 10    'nb caractères maxi autorisé dans le textbox mettre 8 si tu veux l'année à 2 chiffres
     If Text_date_pod_8_fin.TextLength = 4 Or Text_date_pod_8_fin.TextLength = 7 Then
    Text_date_pod_8_fin.Text = Text_date_pod_8_fin.Text + "/"
     End If
     oldLength = Text_date_pod_8_fin.TextLength
End Sub










Private Sub Text_TA_repos_ini_Change()
 If (oldLength > Text_TA_repos_ini.TextLength) Then
         oldLength = Text_TA_repos_ini.TextLength
         Exit Sub
     End If
     
 Text_TA_repos_ini.MaxLength = 7    'nb caractères maxi autorisé dans le textbox mettre 8 si tu veux l'année à 2 chiffres
     If Text_TA_repos_ini.TextLength = 3 Then
    Text_TA_repos_ini.Text = Text_TA_repos_ini.Text + "/"
     End If
     oldLength = Text_TA_repos_ini.TextLength



End Sub

Private Sub Text_TA_repos_fin_Change()
 If (oldLength > Text_TA_repos_fin.TextLength) Then
         oldLength = Text_TA_repos_fin.TextLength
         Exit Sub
     End If
     
 Text_TA_repos_fin.MaxLength = 7    'nb caractères maxi autorisé dans le textbox mettre 8 si tu veux l'année à 2 chiffres
     If Text_TA_repos_fin.TextLength = 3 Then
    Text_TA_repos_fin.Text = Text_TA_repos_fin.Text + "/"
     End If
     oldLength = Text_TA_repos_fin.TextLength



End Sub








'Équilibre unipodal disable >45 sec


Private Sub Text_equi_g1_ini_Change()
If Text_equi_g1_ini.Value >= "45" Or Text_equi_g2_ini.Value >= "45" Or Text_equi_g3_ini.Value >= "45" Then
Combo_45sg_ini.Enabled = True
Combo_45sg_ini.BackColor = "&H80000005"
Else
Combo_45sg_ini.Enabled = False
Combo_45sg_ini.BackColor = "&H80000004"
End If
End Sub

Private Sub Text_equi_g2_ini_Change()
If Text_equi_g1_ini.Value >= "45" Or Text_equi_g2_ini.Value >= "45" Or Text_equi_g3_ini.Value >= "45" Then
Combo_45sg_ini.Enabled = True
Combo_45sg_ini.BackColor = "&H80000005"
Else
Combo_45sg_ini.Enabled = False
Combo_45sg_ini.BackColor = "&H80000004"
End If
End Sub

Private Sub Text_equi_g3_ini_Change()
If Text_equi_g1_ini.Value >= "45" Or Text_equi_g2_ini.Value >= "45" Or Text_equi_g3_ini.Value >= "45" Then
Combo_45sg_ini.Enabled = True
Combo_45sg_ini.BackColor = "&H80000005"
Else
Combo_45sg_ini.Enabled = False
Combo_45sg_ini.BackColor = "&H80000004"
End If
End Sub



Private Sub Text_equi_d1_ini_Change()
If Text_equi_d1_ini.Value >= "45" Or Text_equi_d2_ini.Value >= "45" Or Text_equi_d3_ini.Value >= "45" Then
Combo_45sd_ini.Enabled = True
Combo_45sd_ini.BackColor = "&H80000005"
Else
Combo_45sd_ini.Enabled = False
Combo_45sd_ini.BackColor = "&H80000004"
End If
End Sub

Private Sub Text_equi_d2_ini_Change()
If Text_equi_d1_ini.Value >= "45" Or Text_equi_d2_ini.Value >= "45" Or Text_equi_d3_ini.Value >= "45" Then
Combo_45sd_ini.Enabled = True
Combo_45sd_ini.BackColor = "&H80000005"
Else
Combo_45sd_ini.Enabled = False
Combo_45sd_ini.BackColor = "&H80000004"
End If
End Sub

Private Sub Text_equi_d3_ini_Change()
If Text_equi_d1_ini.Value >= "45" Or Text_equi_d2_ini.Value >= "45" Or Text_equi_d3_ini.Value >= "45" Then
Combo_45sd_ini.Enabled = True
Combo_45sd_ini.BackColor = "&H80000005"
Else
Combo_45sd_ini.Enabled = False
Combo_45sd_ini.BackColor = "&H80000004"
End If
End Sub

Private Sub Text_equi_g1_fin_Change()
If Text_equi_g1_fin.Value >= "45" Or Text_equi_g2_fin.Value >= "45" Or Text_equi_g3_fin.Value >= "45" Then
Combo_45sg_fin.Enabled = True
Combo_45sg_fin.BackColor = "&H80000005"
Else
Combo_45sg_fin.Enabled = False
Combo_45sg_fin.BackColor = "&H80000004"
End If
End Sub

Private Sub Text_equi_g2_fin_Change()
If Text_equi_g1_fin.Value >= "45" Or Text_equi_g2_fin.Value >= "45" Or Text_equi_g3_fin.Value >= "45" Then
Combo_45sg_fin.Enabled = True
Combo_45sg_fin.BackColor = "&H80000005"
Else
Combo_45sg_fin.Enabled = False
Combo_45sg_fin.BackColor = "&H80000004"
End If
End Sub


Private Sub Text_equi_g3_fin_Change()
If Text_equi_g1_fin.Value >= "45" Or Text_equi_g2_fin.Value >= "45" Or Text_equi_g3_fin.Value >= "45" Then
Combo_45sg_fin.Enabled = True
Combo_45sg_fin.BackColor = "&H80000005"
Else
Combo_45sg_fin.Enabled = False
Combo_45sg_fin.BackColor = "&H80000004"
End If
End Sub

Private Sub Text_equi_d1_fin_Change()
If Text_equi_d1_fin.Value >= "45" Or Text_equi_d2_fin.Value >= "45" Or Text_equi_d3_fin.Value >= "45" Then
Combo_45sd_fin.Enabled = True
Combo_45sd_fin.BackColor = "&H80000005"
Else
Combo_45sd_fin.Enabled = False
Combo_45sd_fin.BackColor = "&H80000004"
End If
End Sub
Private Sub Text_equi_d2_fin_Change()
If Text_equi_d1_fin.Value >= "45" Or Text_equi_d2_fin.Value >= "45" Or Text_equi_d3_fin.Value >= "45" Then
Combo_45sd_fin.Enabled = True
Combo_45sd_fin.BackColor = "&H80000005"
Else
Combo_45sd_fin.Enabled = False
Combo_45sd_fin.BackColor = "&H80000004"
End If
End Sub
Private Sub Text_equi_d3_fin_Change()
If Text_equi_d1_fin.Value >= "45" Or Text_equi_d2_fin.Value >= "45" Or Text_equi_d3_fin.Value >= "45" Then
Combo_45sd_fin.Enabled = True
Combo_45sd_fin.BackColor = "&H80000005"
Else
Combo_45sd_fin.Enabled = False
Combo_45sd_fin.BackColor = "&H80000004"
End If
End Sub



'conversion

Private Sub Text_kg2_Change()
On Error Resume Next
OnlyNumbersconvert
If Text_kg2.Text = "" Then
Text_livres2.Text = ""
Else
Text_livres2.Text = (Text_kg2 * 2.2)
Text_livres2.Value = Format(Text_livres2.Value, "###.##")
End If
End Sub

Private Sub Text_livres1_Change()
On Error Resume Next
OnlyNumbersconvert
If Text_livres1.Value = "" Then
Text_kg1.Text = ""
Else
Text_kg1.Text = (Text_livres1 / 2.2)
Text_kg1.Value = Format(Text_kg1.Value, "###.##")
End If
End Sub






'Date signature rapport initial
Private Sub Text_sign_ini_Change()
If (oldLength > Text_sign_ini.TextLength) Then
         oldLength = Text_sign_ini.TextLength
         Exit Sub
     End If
    Text_sign_ini.MaxLength = 10    'nb caractères maxi autorisé dans le textbox mettre 8 si tu veux l'année à 2 chiffres
     If Text_sign_ini.TextLength = 4 Or Text_sign_ini.TextLength = 7 Then
    Text_sign_ini.Text = Text_sign_ini.Text + "/"
     End If
     oldLength = Text_sign_ini.TextLength
End Sub

'Date signature rapport final
Private Sub Text_sign_fin_Change()
If (oldLength > Text_sign_fin.TextLength) Then
         oldLength = Text_sign_fin.TextLength
         Exit Sub
     End If
    Text_sign_fin.MaxLength = 10    'nb caractères maxi autorisé dans le textbox mettre 8 si tu veux l'année à 2 chiffres
     If Text_sign_fin.TextLength = 4 Or Text_sign_fin.TextLength = 7 Then
   Text_sign_fin.Text = Text_sign_fin.Text + "/"
     End If
     oldLength = Text_sign_fin.TextLength
End Sub

'Changer couleur de fond et vérouiller choix ménopause

Private Sub combo_gender_change()
If Combo_Gender.Text = "Homme" Then
Combo_menopause.BackColor = "&H8000000F"
Combo_menopause.Enabled = False
Combo_menopause.Text = ""
Else: Combo_menopause.BackColor = "&H80000005"
Combo_menopause.Enabled = True
End If
If ((Combo_Gender.Text = "Femme") And (Combo_menopause.Text = "Oui")) Or ((Combo_Gender.Text = "Femme") And (Text_age.Text >= "55 ans") And ((Combo_menopause.Text = "Non") Or (Combo_menopause.Text = ""))) Then
Text_fr_age_ini.Text = "Femme de plus de 55 ans ou ménopausée"
Text_fr_age_fin.Text = "Femme de plus de 55 ans ou ménopausée"
Else
If (Combo_Gender.Text = "Homme") And (Text_age.Text >= "45 ans") Then
Text_fr_age_ini.Text = "Homme de plus de 45 ans"
Text_fr_age_fin.Text = "Homme de plus de 45 ans"
Else
Text_fr_age_ini.Text = ""
Text_fr_age_fin.Text = ""
End If

End If


End Sub




Private Sub Combo_menopause_Change()

If ((Combo_Gender.Text = "Femme") And (Combo_menopause.Text = "Oui")) Or ((Combo_Gender.Text = "Femme") And (Text_age.Text >= "55 ans") And ((Combo_menopause.Text = "Non") Or (Combo_menopause.Text = ""))) Then
Text_fr_age_ini.Text = "Femme de plus de 55 ans ou ménopausée"
Text_fr_age_fin.Text = "Femme de plus de 55 ans ou ménopausée"
Else
If (Combo_Gender.Text = "Homme") And (Text_age.Text >= "45 ans") Then
Text_fr_age_ini.Text = "Homme de plus de 45 ans"
Text_fr_age_fin.Text = "Homme de plus de 45 ans"
Else
Text_fr_age_ini.Text = ""
Text_fr_age_fin.Text = ""
End If


End If


End Sub

'début calcul IMC

Private Sub text_age_change()

If ((Combo_Gender.Text = "Femme") And (Combo_menopause.Text = "Oui")) Or ((Combo_Gender.Text = "Femme") And (Text_age.Text >= "55 ans") And ((Combo_menopause.Text = "Non") Or (Combo_menopause.Text = ""))) Then
Text_fr_age_ini.Text = "Femme de plus de 55 ans ou ménopausée"
Text_fr_age_fin.Text = "Femme de plus de 55 ans ou ménopausée"
Else
If (Combo_Gender.Text = "Homme") And (Text_age.Text >= "45 ans") Then
Text_fr_age_ini.Text = "Homme de plus de 45 ans"
Text_fr_age_fin.Text = "Homme de plus de 45 ans"
Else
Text_fr_age_ini.Text = ""
Text_fr_age_fin.Text = ""
End If


End If

End Sub


Private Sub OnlyNumbers()
'Ensures only numbers are entered in the TextBoxes on the UserForm. This does not affect the TextBoxes on the MultiPage control
   If TypeName(Me.Frame2.ActiveControl) = "TextBox" Then
       With Me.Frame2.ActiveControl
           If Not IsNumeric(.Value) And .Value <> vbNullString Then
               MsgBox "Chiffres et virgule seulement"
               .Value = vbNullString
           End If
       End With
   End If
End Sub
Private Sub OnlyNumbersfin()
'Ensures only numbers are entered in the TextBoxes on the UserForm. This does not affect the TextBoxes on the MultiPage control
   If TypeName(Me.Frame40.ActiveControl) = "TextBox" Then
       With Me.Frame40.ActiveControl
           If Not IsNumeric(.Value) And .Value <> vbNullString Then
               MsgBox "Chiffres et virgule seulement"
               .Value = vbNullString
           End If
       End With
   End If
End Sub

Private Sub OnlyNumbersconvert()
'Ensures only numbers are entered in the TextBoxes on the UserForm. This does not affect the TextBoxes on the MultiPage control
   If TypeName(Me.Frame51.ActiveControl) = "TextBox" Then
       With Me.Frame51.ActiveControl
           If Not IsNumeric(.Value) And .Value <> vbNullString Then
               MsgBox "Chiffres et virgule seulement"
               .Value = vbNullString
           End If
       End With
   End If
End Sub







Private Sub Text_taille_ini_Change()

OnlyNumbers

If (Text_taille_ini.Text) = "" Or (Text_poids_ini.Text) = "" Then
Text_imc_ini.Text = ""
End If

If Text_taille_ini.Value = 0 Then
Text_taille_ini.Value = ""

End If

If Text_taille_ini = "" Or Text_poids_ini = "" Then Exit Sub
Text_imc_ini.Value = ((Text_poids_ini) / (((Text_taille_ini) / 100) ^ 2))
Text_imc_ini.Value = Format(Text_imc_ini.Value, "##.#")
If (Text_taille_ini.Text) = "" And (Text_poids_ini.Text) = "" Then
Text_imc_ini.Text = ""
End If



End Sub

Private Sub Text_poids_ini_Change()
OnlyNumbers

If (Text_taille_ini.Text) = "" Or (Text_poids_ini.Text) = "" Then
Text_imc_ini.Text = ""
End If

If Text_taille_ini = "" Or Text_poids_ini = "" Then Exit Sub
Text_imc_ini.Value = ((Text_poids_ini) / (((Text_taille_ini) / 100) ^ 2))
Text_imc_ini.Value = Format(Text_imc_ini.Value, "##.#")


 
End Sub

Private Sub Text_imc_ini_Change()
If Text_imc_ini.Value = "" Then
Text_fr_obesite_ini.Text = ""
End If

If Len(Text_imc_ini.Text) >= 2 Then
     On Error Resume Next
    Text_fr_obesite_ini.Text = Application.WorksheetFunction. _
        VLookup(CLng(Text_imc_ini.Text), Worksheets("lists.vba").Range("F2:g61"), 2, True)


End If

If Text_imc_ini.Value <= "30" Then
Text_fr_obesite_ini.Text = ""
End If

End Sub

Private Sub Text_taille_fin_Change()
OnlyNumbersfin
If (Text_taille_fin.Text) = "" Or (Text_poids_fin.Text) = "" Then
Text_imc_fin.Text = ""
End If

If Text_taille_fin.Value = 0 Then
Text_taille_fin.Value = ""

End If

If Text_taille_fin = "" Or Text_poids_fin = "" Then Exit Sub
Text_imc_fin.Value = ((Text_poids_fin) / (((Text_taille_fin) / 100) ^ 2))
Text_imc_fin.Value = Format(Text_imc_fin.Value, "##.#")
If (Text_taille_fin.Text) = "" And (Text_poids_fin.Text) = "" Then
Text_imc_fin.Text = ""
End If
End Sub
Private Sub Text_poids_fin_Change()
OnlyNumbersfin
If (Text_taille_fin.Text) = "" Or (Text_poids_fin.Text) = "" Then
Text_imc_fin.Text = ""
End If

If Text_taille_fin = "" Or Text_poids_fin = "" Then Exit Sub
Text_imc_fin.Value = ((Text_poids_fin) / (((Text_taille_fin) / 100) ^ 2))
Text_imc_fin.Value = Format(Text_imc_fin.Value, "##.#")
End Sub

Private Sub Text_imc_fin_Change()
If Text_imc_fin.Value = "" Then
Text_fr_obesite_fin.Text = ""
End If

If Len(Text_imc_fin.Text) >= 2 Then
     On Error Resume Next
    Text_fr_obesite_fin.Text = Application.WorksheetFunction. _
        VLookup(CLng(Text_imc_fin.Text), Worksheets("lists.vba").Range("F2:g61"), 2, True)
End If
If Text_imc_fin.Value <= "30" Then
Text_fr_obesite_fin.Text = ""
End If


End Sub

'fin calcul IMC






'protocole adapté

'protocole adapté
Private Sub Combo_prot_ini_Change()
Dim i As Long
   For i = 1 To 16
      Controls("Text_vit" & i & "_ini").Enabled = Combo_prot_ini.Text = "Protocole adapté"
      Controls("Text_pente" & i & "_ini").Enabled = Combo_prot_ini.Text = "Protocole adapté"
      Controls("Text_vit" & i & "_ini").BackColor = IIf(Combo_prot_ini.Text = "Protocole adapté", "&H80000005", "&H80000004")
      Controls("Text_pente" & i & "_ini").BackColor = IIf(Combo_prot_ini.Text = "Protocole adapté", "&H80000005", "&H80000004")
   Next i
End Sub

Private Sub Combo_prot_fin_Change()
Dim i As Long
   For i = 1 To 16
      Controls("Text_vit" & i & "_fin").Enabled = Combo_prot_fin.Text = "Protocole adapté"
      Controls("Text_pente" & i & "_fin").Enabled = Combo_prot_fin.Text = "Protocole adapté"
      Controls("Text_vit" & i & "_fin").BackColor = IIf(Combo_prot_fin.Text = "Protocole adapté", "&H80000005", "&H80000004")
      Controls("Text_pente" & i & "_fin").BackColor = IIf(Combo_prot_fin.Text = "Protocole adapté", "&H80000005", "&H80000004")
   Next i
End Sub
'fin protocole adapté



'Tapis roulant vs ergomètre


Private Sub Combo_app_fin_Change()
If Combo_app_fin.Text = "Tapis roulant" Then
Text_vit_ergo_max_fin.Enabled = False
Text_vit_ergo_max_fin.BackColor = "&H80000004"
Text_charge_ergo_max_fin.Enabled = False
Text_charge_ergo_max_fin.BackColor = "&H80000004"
Text_vit_tapis_max_fin.Enabled = True
Text_vit_tapis_max_fin.BackColor = "&H80000005"
Text_pente_max_fin.Enabled = True
Text_pente_max_fin.BackColor = "&H80000005"
Label323.Caption = "Pente"
Else
Text_vit_ergo_max_fin.Enabled = True
Text_vit_ergo_max_fin.BackColor = "&H80000005"
Text_charge_ergo_max_fin.Enabled = True
Text_charge_ergo_max_fin.BackColor = "&H80000005"
Text_vit_tapis_max_fin.Enabled = False
Text_vit_tapis_max_fin.BackColor = "&H80000004"
Text_pente_max_fin.Enabled = False
Text_pente_max_fin.BackColor = "&H80000004"
Label323.Caption = "Watt"
End If
If Combo_app_fin.Text = "" Then
Text_vit_ergo_max_fin.Enabled = True
Text_vit_ergo_max_fin.BackColor = "&H80000005"
Text_charge_ergo_max_fin.BackColor = "&H80000005"
Text_vit_tapis_max_fin.Enabled = False
Text_vit_tapis_max_fin.Enabled = True
Text_vit_tapis_max_fin.BackColor = "&H80000005"
Text_pente_max_fin.Enabled = True
Text_pente_max_fin.BackColor = "&H80000005"
Label323.Caption = "Pente / Watt"
End If
End Sub

Private Sub Combo_app_ini_Change()
If Combo_app_ini.Text = "Tapis roulant" Then
Text_vit_ergo_max_ini.Enabled = False
Text_vit_ergo_max_ini.BackColor = "&H80000004"
Text_charge_ergo_max_ini.Enabled = False
Text_charge_ergo_max_ini.BackColor = "&H80000004"
Text_vit_tapis_max_ini.Enabled = True
Text_vit_tapis_max_ini.BackColor = "&H80000005"
Text_pente_max_ini.Enabled = True
Text_pente_max_ini.BackColor = "&H80000005"
Label114.Caption = "Pente"
Else
Text_vit_ergo_max_ini.Enabled = True
Text_vit_ergo_max_ini.BackColor = "&H80000005"
Text_charge_ergo_max_ini.Enabled = True
Text_charge_ergo_max_ini.BackColor = "&H80000005"
Text_vit_tapis_max_ini.Enabled = False
Text_vit_tapis_max_ini.BackColor = "&H80000004"
Text_pente_max_ini.Enabled = False
Text_pente_max_ini.BackColor = "&H80000004"
Label114.Caption = "Watt"
End If
If Combo_app_ini.Text = "" Then
Text_vit_ergo_max_ini.Enabled = True
Text_vit_ergo_max_ini.BackColor = "&H80000005"
Text_charge_ergo_max_ini.BackColor = "&H80000005"
Text_vit_tapis_max_ini.Enabled = False
Text_vit_tapis_max_ini.Enabled = True
Text_vit_tapis_max_ini.BackColor = "&H80000005"
Text_pente_max_ini.Enabled = True
Text_pente_max_ini.BackColor = "&H80000005"
Label114.Caption = "Pente / Watt"
End If

End Sub

'Tapis roulant vs ergomètre fin




'convertir cm en pouces

Private Sub Text_cm_Change()
OnlyNumbersconvert
If Text_cm.Text = "" Then
Text_pouces.Text = ""
Else
Text_pouces.Text = (Text_cm / 2.54)
Text_pouces.Value = Format(Text_pouces.Value, "##.#")
End If
End Sub



















Private Sub CommandButton1_Click()
'when we click the 'continue' button

Dim TargetRow As Integer 'variable for position control
Dim FullName As String 'full name
Dim UserMessage As String 'variable to configure user message at the end


Dim i As Long



FullName = Txt_Surname & " " & Txt_First 'concatenate first and surname for use in code below

'begin check if in 'edit' or 'add new' mode
If Sheets("Engine").Range("B4").Value = "NEW" Then 'in 'new' mode

    'begin validation check 'check if name already exists
    If Application.WorksheetFunction.CountIf(Sheets("Data").Range("E8:E10008"), FullName) > 0 Then
    
    MsgBox "Name already exists", 0, "Check"
    Exit Sub 'notify user and exit the routine
    
    End If
    'end validation check
    
TargetRow = Sheets("Engine").Range("B3").Value + 1 'make variable equal to COUNTA formula on worksheet + 1
UserMessage = " a été ajouté à la base de données" 'configure user message for add new entry

Else 'in 'edit' mode
 
TargetRow = Sheets("Engine").Range("B5").Value 'make variable equal to the value saved in the engine
UserMessage = " a été modifié" 'configure user message for edit entry

End If
'end check if in 'edit' or 'add new mode'

'''BEGIN INPUT DATA INTO DATABASE'''
Sheets("Data").Range("Data_Start").Offset(TargetRow, 0).Value = TargetRow 'ref
Sheets("Data").Range("Data_Start").Offset(TargetRow, 1).Value = Txt_First 'first name
Sheets("Data").Range("Data_Start").Offset(TargetRow, 2).Value = (Text_Dossier) '# dossier
Sheets("Data").Range("Data_Start").Offset(TargetRow, 3).Value = UCase(Txt_Surname) & " " & Txt_First 'full name 'concatenate
Sheets("Data").Range("Data_Start").Offset(TargetRow, 4).Value = Txt_Surname 'surname
Sheets("Data").Range("Data_Start").Offset(TargetRow, 5).Value = (Text_ddn) 'DDN
Sheets("Data").Range("Data_Start").Offset(TargetRow, 6).Value = Combo_Gender 'Sexe
Sheets("Data").Range("Data_Start").Offset(TargetRow, 7).Value = Combo_dominance 'Dominance
Sheets("Data").Range("Data_Start").Offset(TargetRow, 8).Value = Text_Kin 'kinésiologue
Sheets("Data").Range("Data_Start").Offset(TargetRow, 9).Value = Combo_Programme ' Programme
Sheets("Data").Range("Data_Start").Offset(TargetRow, 10).Value = Text_date_eval_ini 'Date éval initiale
Sheets("Data").Range("Data_Start").Offset(TargetRow, 11).Value = Combo_menopause 'Ménopause
Sheets("Data").Range("Data_Start").Offset(TargetRow, 12).Value = (Text_taille_ini) 'Taille
Sheets("Data").Range("Data_Start").Offset(TargetRow, 13).Value = (Text_poids_ini) 'Poids
Sheets("Data").Range("Data_Start").Offset(TargetRow, 14).Value = (Text_ct_ini) 'Tour de taille
Sheets("Data").Range("Data_Start").Offset(TargetRow, 15).Value = Text_com_pds_ini 'commentaires poids
Sheets("Data").Range("Data_Start").Offset(TargetRow, 16).Value = (Text_tas_ini) 'tension systolique repos
Sheets("Data").Range("Data_Start").Offset(TargetRow, 17).Value = (Text_tad_ini) 'tension diastolique repos
Sheets("Data").Range("Data_Start").Offset(TargetRow, 18).Value = (Text_fc_ini) 'fc couché
Sheets("Data").Range("Data_Start").Offset(TargetRow, 19).Value = (Text_gly_ini) 'glycémie
Sheets("Data").Range("Data_Start").Offset(TargetRow, 20).Value = (Text_mg_ini) 'masse grasse
Sheets("Data").Range("Data_Start").Offset(TargetRow, 21).Value = (Text_mm_ini) 'masse maigre
Sheets("Data").Range("Data_Start").Offset(TargetRow, 22).Value = (Text_mh_ini) 'masse hydrique
Sheets("Data").Range("Data_Start").Offset(TargetRow, 23).Value = (Text_pg_ini) '% de gras
Sheets("Data").Range("Data_Start").Offset(TargetRow, 24).Value = Text_dx 'diagnostic



    For i = 1 To 8
      Sheets("Data").Range("Data_Start").Offset(TargetRow, 24 + i).Value = Controls("Txt_condasso" & i) 'conditions associées
      Next i
      
     
    For i = 1 To 24
      Sheets("Data").Range("Data_Start").Offset(TargetRow, 32 + i).Value = Controls("Text_rx" & i) 'Rx
      Next i




Sheets("Data").Range("Data_Start").Offset(TargetRow, 57).Value = Text_fr_age_ini ' facteur risque
Sheets("Data").Range("Data_Start").Offset(TargetRow, 58).Value = Text_fr_obesite_ini ' facteur risque


    For i = 1 To 7
      Sheets("Data").Range("Data_Start").Offset(TargetRow, 58 + i).Value = Controls("Combo_fr" & i & "_ini") ' facteur risque
      Next i





Sheets("Data").Range("Data_Start").Offset(TargetRow, 66).Value = Combo_malconnu1_ini ' facteur risque
Sheets("Data").Range("Data_Start").Offset(TargetRow, 67).Value = Combo_malconnu2_ini ' facteur risque
Sheets("Data").Range("Data_Start").Offset(TargetRow, 68).Value = Text_passe_sportif 'titre passé sportif


  For i = 1 To 9
      Sheets("Data").Range("Data_Start").Offset(TargetRow, 68 + i).Value = Controls("Text_ps" & i) ' passé sportif ini
      Next i

Sheets("Data").Range("Data_Start").Offset(TargetRow, 78).Value = Text_passe_actif 'Titre passé actif

 For i = 1 To 9
      Sheets("Data").Range("Data_Start").Offset(TargetRow, 78 + i).Value = Controls("Text_pa" & i) ' passé actif ini
      Next i



Sheets("Data").Range("Data_Start").Offset(TargetRow, 88).Value = Text_apactuelle 'Titre act actuelle

 For i = 1 To 9
      Sheets("Data").Range("Data_Start").Offset(TargetRow, 88 + i).Value = Controls("Text_ap" & i) 'ap actuelle
      Next i



Sheets("Data").Range("Data_Start").Offset(TargetRow, 98).Value = Text_materiel 'matériel disponible
Sheets("Data").Range("Data_Start").Offset(TargetRow, 99).Value = Text_AP_commentaires 'commentaires AP
Sheets("Data").Range("Data_Start").Offset(TargetRow, 100).Value = (Text_nbrepas) 'Alim
Sheets("Data").Range("Data_Start").Offset(TargetRow, 101).Value = (Text_nbcoll) 'Alim
Sheets("Data").Range("Data_Start").Offset(TargetRow, 102).Value = Text_hydra 'Alim
Sheets("Data").Range("Data_Start").Offset(TargetRow, 103).Value = Text_alcool 'Alim
Sheets("Data").Range("Data_Start").Offset(TargetRow, 104).Value = Text_cafe 'Alim
Sheets("Data").Range("Data_Start").Offset(TargetRow, 105).Value = Text_boisson_sucrees 'Alim
Sheets("Data").Range("Data_Start").Offset(TargetRow, 106).Value = Text_dej 'Alim
Sheets("Data").Range("Data_Start").Offset(TargetRow, 107).Value = TextBox_diner 'Alim
Sheets("Data").Range("Data_Start").Offset(TargetRow, 108).Value = Text_souper 'Alim
Sheets("Data").Range("Data_Start").Offset(TargetRow, 109).Value = Text_alim_comment 'Alim
Sheets("Data").Range("Data_Start").Offset(TargetRow, 110).Value = Text_alim_remplacement 'Alim
Sheets("Data").Range("Data_Start").Offset(TargetRow, 111).Value = Text_tabac 'Alim


For i = 1 To 5
      Sheets("Data").Range("Data_Start").Offset(TargetRow, 111 + i).Value = Controls("Text_attente" & i) 'attente usager
      Next i

For i = 1 To 4
      Sheets("Data").Range("Data_Start").Offset(TargetRow, 116 + i).Value = Controls("Text_obj_kin" & i) 'obj kin
      Next i


Sheets("Data").Range("Data_Start").Offset(TargetRow, 121).Value = Text_conclu_ini 'conclusion rapport initial


'leapa initial
Sheets("Data").Range("Data_Start").Offset(TargetRow, 122).Value = Text_date_leapa_ini 'Date test initial
Sheets("Data").Range("Data_Start").Offset(TargetRow, 123).Value = Combo_rapport_leapa_ini 'Tableau LEAPA présent dans le rapport
Sheets("Data").Range("Data_Start").Offset(TargetRow, 124).Value = Combo_app_ini 'appareil
Sheets("Data").Range("Data_Start").Offset(TargetRow, 125).Value = Combo_prot_ini 'protocole
Sheets("Data").Range("Data_Start").Offset(TargetRow, 126).Value = Text_EPE_fin_ini 'EPE fin
Sheets("Data").Range("Data_Start").Offset(TargetRow, 127).Value = (Text_fc_repos_ini) 'fc max
Sheets("Data").Range("Data_Start").Offset(TargetRow, 128).Value = (Text_TA_repos_ini) 'TA max
Sheets("Data").Range("Data_Start").Offset(TargetRow, 129).Value = (Text_vit_tapis_max_ini) 'vitesse tapis max
Sheets("Data").Range("Data_Start").Offset(TargetRow, 130).Value = (Text_vit_ergo_max_ini) 'vitesse ergomètre max
Sheets("Data").Range("Data_Start").Offset(TargetRow, 131).Value = (Text_pente_max_ini) ' pente fin
Sheets("Data").Range("Data_Start").Offset(TargetRow, 132).Value = (Text_charge_ergo_max_ini) 'charge ergo fin
Sheets("Data").Range("Data_Start").Offset(TargetRow, 133).Value = (Text_duree_test_ini) 'durée test
Sheets("Data").Range("Data_Start").Offset(TargetRow, 134).Value = (Text_dlr_pre_ini) 'dlr pré
Sheets("Data").Range("Data_Start").Offset(TargetRow, 135).Value = (Text_dlr_post_ini) 'dlr post
Sheets("Data").Range("Data_Start").Offset(TargetRow, 136).Value = Text_raison_arret_ini 'raison d'arrêt test

Sheets("Data").Range("Data_Start").Offset(TargetRow, 137).Value = (Text_FCRmin_ini) 'fc réserve % min
Sheets("Data").Range("Data_Start").Offset(TargetRow, 138).Value = (Text_FCRmax_ini) 'fc réserve % max


Sheets("Data").Range("Data_Start").Offset(TargetRow, 139).Value = Combo_cardio_ini 'cardiologue
Sheets("Data").Range("Data_Start").Offset(TargetRow, 140).Value = Combo_inf_ini 'infirmière
Sheets("Data").Range("Data_Start").Offset(TargetRow, 141).Value = Text_com_cardio_ini 'commentaire cardiologue
Sheets("Data").Range("Data_Start").Offset(TargetRow, 142).Value = Text_evol_fc_ini 'évolution fc
Sheets("Data").Range("Data_Start").Offset(TargetRow, 143).Value = Text_recup_ini 'récupération
Sheets("Data").Range("Data_Start").Offset(TargetRow, 144).Value = Text_dlr_text_ini 'text dlr remplacement
Sheets("Data").Range("Data_Start").Offset(TargetRow, 145).Value = Text_obs_effort_ini 'observation
Sheets("Data").Range("Data_Start").Offset(TargetRow, 146).Value = Text_leapa_text_perso_ini 'texte de remplacement
Sheets("Data").Range("Data_Start").Offset(TargetRow, 147).Value = Text_descri_ini 'description protocole adapté


    For i = 1 To 16
      Sheets("Data").Range("Data_Start").Offset(TargetRow, 147 + i).Value = Controls("Text_fc_" & i & "_ini") ' fc ini
      Next i




'Sheets("Data").Range("Data_Start").Offset(TargetRow, 164).Value = Text_fc_17_ini
'Sheets("Data").Range("Data_Start").Offset(TargetRow, 165).Value = Text_fc_18_ini
'Sheets("Data").Range("Data_Start").Offset(TargetRow, 166).Value = Text_fc_19_ini
'Sheets("Data").Range("Data_Start").Offset(TargetRow, 167).Value = Text_fc_20_ini

For i = 1 To 8
      Sheets("Data").Range("Data_Start").Offset(TargetRow, 167 + i).Value = Controls("Text_TAS" & i & "_ini") ' TAS ini
      Next i



'Sheets("Data").Range("Data_Start").Offset(TargetRow, 176).Value = Text_TAS9_ini
'Sheets("Data").Range("Data_Start").Offset(TargetRow, 177).Value = Text_TAS10_ini

For i = 1 To 8
      Sheets("Data").Range("Data_Start").Offset(TargetRow, 177 + i).Value = Controls("Text_TAD" & i & "_ini") ' TAD ini
      Next i



'Sheets("Data").Range("Data_Start").Offset(TargetRow, 186).Value = Text_TAD9_ini
'Sheets("Data").Range("Data_Start").Offset(TargetRow, 187).Value = Text_TAD10_ini

For i = 1 To 16
      Sheets("Data").Range("Data_Start").Offset(TargetRow, 187 + i).Value = Controls("Text_epe" & i & "_ini") ' epe ini
      Next i


'Sheets("Data").Range("Data_Start").Offset(TargetRow, 204).Value = Text_epe17_ini
'Sheets("Data").Range("Data_Start").Offset(TargetRow, 205).Value = Text_epe18_ini
'Sheets("Data").Range("Data_Start").Offset(TargetRow, 206).Value = Text_epe19_ini
'Sheets("Data").Range("Data_Start").Offset(TargetRow, 207).Value = Text_epe20_ini

For i = 1 To 16
      Sheets("Data").Range("Data_Start").Offset(TargetRow, 207 + i).Value = Controls("Text_dlr" & i & "_ini") ' dlr ini
      Next i



'Sheets("Data").Range("Data_Start").Offset(TargetRow, 224).Value = Text_dlr17_ini
'Sheets("Data").Range("Data_Start").Offset(TargetRow, 225).Value = Text_dlr18_ini
'Sheets("Data").Range("Data_Start").Offset(TargetRow, 226).Value = Text_dlr19_ini
'Sheets("Data").Range("Data_Start").Offset(TargetRow, 227).Value = Text_dlr20_ini

For i = 1 To 16
      Sheets("Data").Range("Data_Start").Offset(TargetRow, 227 + i).Value = Controls("Text_vit" & i & "_ini") ' vitesse ini
      Next i



'Sheets("Data").Range("Data_Start").Offset(TargetRow, 244).Value = Text_vit17_ini
'Sheets("Data").Range("Data_Start").Offset(TargetRow, 245).Value = Text_vit18_ini
'Sheets("Data").Range("Data_Start").Offset(TargetRow, 246).Value = Text_vit19_ini
'Sheets("Data").Range("Data_Start").Offset(TargetRow, 247).Value = Text_vit20_ini


For i = 1 To 16
      Sheets("Data").Range("Data_Start").Offset(TargetRow, 247 + i).Value = Controls("Text_pente" & i & "_ini") ' pente ini
      Next i


'Sheets("Data").Range("Data_Start").Offset(TargetRow, 264).Value = Text_pente17_ini
'Sheets("Data").Range("Data_Start").Offset(TargetRow, 265).Value = Text_pente18_ini
'Sheets("Data").Range("Data_Start").Offset(TargetRow, 266).Value = Text_pente19_ini
'Sheets("Data").Range("Data_Start").Offset(TargetRow, 267).Value = Text_pente20_ini
Sheets("Data").Range("Data_Start").Offset(TargetRow, 268).Value = Combo_dom_preh_ini 'dominance force préhension
Sheets("Data").Range("Data_Start").Offset(TargetRow, 269).Value = (Text_MSD_1_ini) 'préhension
Sheets("Data").Range("Data_Start").Offset(TargetRow, 270).Value = (Text_MSD_2_ini) 'préhension
Sheets("Data").Range("Data_Start").Offset(TargetRow, 271).Value = (Text_MSD_3_ini) 'préhension
Sheets("Data").Range("Data_Start").Offset(TargetRow, 272).Value = (Text_MSG_1_ini) 'préhension
Sheets("Data").Range("Data_Start").Offset(TargetRow, 273).Value = (Text_MSG_2_ini) 'préhension
Sheets("Data").Range("Data_Start").Offset(TargetRow, 274).Value = (Text_MSG_3_ini) 'préhension
Sheets("Data").Range("Data_Start").Offset(TargetRow, 275).Value = Text_preh_obs_ini 'préhension
Sheets("Data").Range("Data_Start").Offset(TargetRow, 276).Value = (Text_résult_6_ini) '6 min de marche
Sheets("Data").Range("Data_Start").Offset(TargetRow, 277).Value = (Text_dlr_6_pre_ini) '6 min de marche dlr pré
Sheets("Data").Range("Data_Start").Offset(TargetRow, 278).Value = (Text_dlr_6_post_ini) '6 min de marche dlr post
Sheets("Data").Range("Data_Start").Offset(TargetRow, 279).Value = Text_obs_6_ini '6 min de marche observations



Sheets("Data").Range("Data_Start").Offset(TargetRow, 280).Value = (Text_date_pod_1_ini)                                           'podométrie date
Sheets("Data").Range("Data_Start").Offset(TargetRow, 281).Value = (Text_date_pod_2_ini)
Sheets("Data").Range("Data_Start").Offset(TargetRow, 282).Value = (Text_date_pod_3_ini)
Sheets("Data").Range("Data_Start").Offset(TargetRow, 283).Value = (Text_date_pod_4_ini)
Sheets("Data").Range("Data_Start").Offset(TargetRow, 284).Value = (Text_date_pod_5_ini)
Sheets("Data").Range("Data_Start").Offset(TargetRow, 285).Value = (Text_date_pod_6_ini)
Sheets("Data").Range("Data_Start").Offset(TargetRow, 286).Value = (Text_date_pod_7_ini)
Sheets("Data").Range("Data_Start").Offset(TargetRow, 287).Value = (Text_date_pod_8_ini)

       
Sheets("Data").Range("Data_Start").Offset(TargetRow, 289).Value = (Text_result_podo2_ini)                                                       'podométrie résultat
Sheets("Data").Range("Data_Start").Offset(TargetRow, 290).Value = (Text_result_podo3_ini)
Sheets("Data").Range("Data_Start").Offset(TargetRow, 291).Value = (Text_result_podo4_ini)
Sheets("Data").Range("Data_Start").Offset(TargetRow, 292).Value = (Text_result_podo5_ini)
Sheets("Data").Range("Data_Start").Offset(TargetRow, 293).Value = (Text_result_podo6_ini)
Sheets("Data").Range("Data_Start").Offset(TargetRow, 294).Value = (Text_result_podo7_ini)
Sheets("Data").Range("Data_Start").Offset(TargetRow, 295).Value = (Text_result_podo8_ini)










Sheets("Data").Range("Data_Start").Offset(TargetRow, 296).Value = Combo_poignet_ini 'podométrie montre g ou d
Sheets("Data").Range("Data_Start").Offset(TargetRow, 297).Value = Text_com_podo_ini 'podométrie commentaires
Sheets("Data").Range("Data_Start").Offset(TargetRow, 298).Value = Combo_CAP_ini 'circuit d'activités physique choix
Sheets("Data").Range("Data_Start").Offset(TargetRow, 299).Value = (Text_marche_ini) 'test vitesse de marche
Sheets("Data").Range("Data_Start").Offset(TargetRow, 300).Value = Text_obs_marche_ini 'test vitesse de marche
Sheets("Data").Range("Data_Start").Offset(TargetRow, 301).Value = (Text_planche_ini) 'planche abdo
Sheets("Data").Range("Data_Start").Offset(TargetRow, 302).Value = Text_planche_obs_ini 'planche abdo
Sheets("Data").Range("Data_Start").Offset(TargetRow, 303).Value = (Text_corde_ini) 'corde à sauter
Sheets("Data").Range("Data_Start").Offset(TargetRow, 304).Value = Text_corde_obs_ini 'corde à sauter
Sheets("Data").Range("Data_Start").Offset(TargetRow, 305).Value = (Text_saut_1_ini) 'sauts verticaux
Sheets("Data").Range("Data_Start").Offset(TargetRow, 306).Value = (Text_saut_2_ini) 'sauts verticaux
Sheets("Data").Range("Data_Start").Offset(TargetRow, 307).Value = Text_saut_obs_ini 'sauts verticaux
Sheets("Data").Range("Data_Start").Offset(TargetRow, 308).Value = (Text_push_ini) 'pushup
Sheets("Data").Range("Data_Start").Offset(TargetRow, 309).Value = Text_push_obs_ini 'pushup
Sheets("Data").Range("Data_Start").Offset(TargetRow, 310).Value = Text_chaise_ini 'chaise au mur
Sheets("Data").Range("Data_Start").Offset(TargetRow, 311).Value = (Text_chaise_obs_ini) 'chaise au mur
Sheets("Data").Range("Data_Start").Offset(TargetRow, 312).Value = (Text_equi_d1_ini) 'équilibre unipodal
Sheets("Data").Range("Data_Start").Offset(TargetRow, 313).Value = (Text_equi_d2_ini) 'équilibre unipodal
Sheets("Data").Range("Data_Start").Offset(TargetRow, 314).Value = (Text_equi_d3_ini) 'équilibre unipodal
Sheets("Data").Range("Data_Start").Offset(TargetRow, 315).Value = Combo_45sd_ini 'équilibre unipodal
Sheets("Data").Range("Data_Start").Offset(TargetRow, 316).Value = (Text_equi_g1_ini) 'équilibre unipodal
Sheets("Data").Range("Data_Start").Offset(TargetRow, 317).Value = (Text_equi_g2_ini) 'équilibre unipodal
Sheets("Data").Range("Data_Start").Offset(TargetRow, 318).Value = (Text_equi_g3_ini) 'équilibre unipodal
Sheets("Data").Range("Data_Start").Offset(TargetRow, 319).Value = Combo_45sg_ini 'équilibre unipodal
Sheets("Data").Range("Data_Start").Offset(TargetRow, 320).Value = Text_equi_obs_ini 'équilibre unipodal
Sheets("Data").Range("Data_Start").Offset(TargetRow, 321).Value = (Text_stress_pré_ini) 'stress avant
Sheets("Data").Range("Data_Start").Offset(TargetRow, 322).Value = (Text_stress_act_ini) 'stess actuellement
Sheets("Data").Range("Data_Start").Offset(TargetRow, 323).Value = (Text_energie_pre_ini) 'énergie avant
Sheets("Data").Range("Data_Start").Offset(TargetRow, 324).Value = (Text_energie_act_ini) 'énergie actuellement
Sheets("Data").Range("Data_Start").Offset(TargetRow, 325).Value = (Text_kinap_capacites_ini) 'Kinap capacités
Sheets("Data").Range("Data_Start").Offset(TargetRow, 326).Value = (Text_kinap_craintes_ini) 'Kinap craintes
Sheets("Data").Range("Data_Start").Offset(TargetRow, 327).Value = (Text_kinap_tsk_ini) 'TSK
Sheets("Data").Range("Data_Start").Offset(TargetRow, 328).Value = Text_tsk_appr_ini 'TSK appréciation
Sheets("Data").Range("Data_Start").Offset(TargetRow, 329).Value = (Text_assisdebout_ini) 'résultat assis debout
Sheets("Data").Range("Data_Start").Offset(TargetRow, 330).Value = Text_assisdebout_com_ini 'commentaires assis-debout
Sheets("Data").Range("Data_Start").Offset(TargetRow, 331).Value = Text_sign_ini 'date signature rapport pré






Sheets("Data").Range("Data_Start").Offset(TargetRow, 332).Value = Text_date_eval_fin
Sheets("Data").Range("Data_Start").Offset(TargetRow, 333).Value = Text_taille_fin
Sheets("Data").Range("Data_Start").Offset(TargetRow, 334).Value = Text_poids_fin
Sheets("Data").Range("Data_Start").Offset(TargetRow, 335).Value = Text_ct_fin
Sheets("Data").Range("Data_Start").Offset(TargetRow, 336).Value = Text_com_pds_fin
Sheets("Data").Range("Data_Start").Offset(TargetRow, 337).Value = Text_tas_fin
Sheets("Data").Range("Data_Start").Offset(TargetRow, 338).Value = Text_tad_fin
Sheets("Data").Range("Data_Start").Offset(TargetRow, 339).Value = Text_fc_fin
Sheets("Data").Range("Data_Start").Offset(TargetRow, 340).Value = Text_gly_fin
Sheets("Data").Range("Data_Start").Offset(TargetRow, 341).Value = Text_mg_fin
Sheets("Data").Range("Data_Start").Offset(TargetRow, 342).Value = Text_mm_fin
Sheets("Data").Range("Data_Start").Offset(TargetRow, 343).Value = Text_mh_fin
Sheets("Data").Range("Data_Start").Offset(TargetRow, 344).Value = Text_pg_fin
Sheets("Data").Range("Data_Start").Offset(TargetRow, 345).Value = Text_fr_age_fin
Sheets("Data").Range("Data_Start").Offset(TargetRow, 346).Value = Text_fr_obesite_fin

For i = 1 To 7
      Sheets("Data").Range("Data_Start").Offset(TargetRow, 346 + i).Value = Controls("Combo_fr" & i & "_fin") ' facteurs de risque fin
      Next i





Sheets("Data").Range("Data_Start").Offset(TargetRow, 354).Value = Combo_malconnu1_fin
Sheets("Data").Range("Data_Start").Offset(TargetRow, 355).Value = Combo_malconnu2_fin

Sheets("Data").Range("Data_Start").Offset(TargetRow, 356).Value = Text_passe_sportif_fin

For i = 1 To 9
      Sheets("Data").Range("Data_Start").Offset(TargetRow, 356 + i).Value = Controls("Text_ps" & i & "_fin") ' passé sportif fin
      Next i



Sheets("Data").Range("Data_Start").Offset(TargetRow, 366).Value = Text_passe_actif_fin


For i = 1 To 9
      Sheets("Data").Range("Data_Start").Offset(TargetRow, 366 + i).Value = Controls("Text_pa" & i & "_fin") ' passé actif fin
      Next i
      
     
      


Sheets("Data").Range("Data_Start").Offset(TargetRow, 376).Value = Text_apactuelle_fni

For i = 1 To 9
      Sheets("Data").Range("Data_Start").Offset(TargetRow, 376 + i).Value = Controls("Text_ap" & i & "_fin") ' ap actuelle
      Next i



Sheets("Data").Range("Data_Start").Offset(TargetRow, 386).Value = Text_materiel_fin
Sheets("Data").Range("Data_Start").Offset(TargetRow, 387).Value = Text_AP_commentaires_fin
Sheets("Data").Range("Data_Start").Offset(TargetRow, 388).Value = Text_nbrepas_fin
Sheets("Data").Range("Data_Start").Offset(TargetRow, 389).Value = Text_nbcoll_fin
Sheets("Data").Range("Data_Start").Offset(TargetRow, 390).Value = Text_hydra_fin
Sheets("Data").Range("Data_Start").Offset(TargetRow, 391).Value = Text_alcool_fin
Sheets("Data").Range("Data_Start").Offset(TargetRow, 392).Value = Text_cafe_fin
Sheets("Data").Range("Data_Start").Offset(TargetRow, 393).Value = Text_boisson_sucrees_fin
Sheets("Data").Range("Data_Start").Offset(TargetRow, 394).Value = Text_dej_fin
Sheets("Data").Range("Data_Start").Offset(TargetRow, 395).Value = TextBox_diner_fin
Sheets("Data").Range("Data_Start").Offset(TargetRow, 396).Value = Text_souper_fin
Sheets("Data").Range("Data_Start").Offset(TargetRow, 397).Value = Text_alim_comment_fin
Sheets("Data").Range("Data_Start").Offset(TargetRow, 398).Value = Text_alim_remplacement_fin
Sheets("Data").Range("Data_Start").Offset(TargetRow, 399).Value = Text_tabac_fin
Sheets("Data").Range("Data_Start").Offset(TargetRow, 400).Value = Text_stress_pré_fin
Sheets("Data").Range("Data_Start").Offset(TargetRow, 401).Value = Text_stress_act_fin
Sheets("Data").Range("Data_Start").Offset(TargetRow, 402).Value = Text_energie_pre_fin
Sheets("Data").Range("Data_Start").Offset(TargetRow, 403).Value = Text_energie_act_fin

Sheets("Data").Range("Data_Start").Offset(TargetRow, 404).Value = Text_date_leapa_fin
Sheets("Data").Range("Data_Start").Offset(TargetRow, 405).Value = Combo_cardio_fin
Sheets("Data").Range("Data_Start").Offset(TargetRow, 406).Value = Combo_inf_fin
Sheets("Data").Range("Data_Start").Offset(TargetRow, 407).Value = Combo_app_fin
Sheets("Data").Range("Data_Start").Offset(TargetRow, 408).Value = Combo_prot_fin
Sheets("Data").Range("Data_Start").Offset(TargetRow, 409).Value = (Text_duree_test_fin)
Sheets("Data").Range("Data_Start").Offset(TargetRow, 410).Value = Text_descri_fin
Sheets("Data").Range("Data_Start").Offset(TargetRow, 411).Value = (Text_fc_repos_fin)
Sheets("Data").Range("Data_Start").Offset(TargetRow, 412).Value = Text_TA_repos_fin
Sheets("Data").Range("Data_Start").Offset(TargetRow, 413).Value = Text_EPE_fin_fin
Sheets("Data").Range("Data_Start").Offset(TargetRow, 414).Value = (Text_vit_tapis_max_fin)
Sheets("Data").Range("Data_Start").Offset(TargetRow, 415).Value = Text_pente_max_fin
Sheets("Data").Range("Data_Start").Offset(TargetRow, 416).Value = (Text_vit_ergo_max_fin)
Sheets("Data").Range("Data_Start").Offset(TargetRow, 417).Value = (Text_charge_ergo_max_fin)
Sheets("Data").Range("Data_Start").Offset(TargetRow, 418).Value = (Text_dlr_pre_fin)
Sheets("Data").Range("Data_Start").Offset(TargetRow, 419).Value = Text_dlr_post_fin
Sheets("Data").Range("Data_Start").Offset(TargetRow, 420).Value = (Text_FCRmin_fin)
Sheets("Data").Range("Data_Start").Offset(TargetRow, 421).Value = (Text_FCRmax_fin)
Sheets("Data").Range("Data_Start").Offset(TargetRow, 422).Value = Combo_rapport_leapa_fin


For i = 1 To 16
      Sheets("Data").Range("Data_Start").Offset(TargetRow, 422 + i).Value = Controls("Text_fc_" & i & "_fin") ' fc fin
      Next i



'Sheets("Data").Range("Data_Start").Offset(TargetRow, 439).Value = Text_fc_17_fin
'Sheets("Data").Range("Data_Start").Offset(TargetRow, 440).Value = Text_fc_18_fin
'Sheets("Data").Range("Data_Start").Offset(TargetRow, 441).Value = Text_fc_19_fin
'Sheets("Data").Range("Data_Start").Offset(TargetRow, 442).Value = Text_fc_20_fin


For i = 1 To 8
      Sheets("Data").Range("Data_Start").Offset(TargetRow, 442 + i).Value = Controls("Text_TAS" & i & "_fin") ' TAS fin
      Next i


'Sheets("Data").Range("Data_Start").Offset(TargetRow, 451).Value = Text_TAS9_fin
'Sheets("Data").Range("Data_Start").Offset(TargetRow, 452).Value = Text_TAS10_fin


For i = 1 To 8
      Sheets("Data").Range("Data_Start").Offset(TargetRow, 452 + i).Value = Controls("Text_TAD" & i & "_fin") ' TAD fin
      Next i


'Sheets("Data").Range("Data_Start").Offset(TargetRow, 461).Value = Text_TAD9_fin
'Sheets("Data").Range("Data_Start").Offset(TargetRow, 462).Value = Text_TAD10_fin

For i = 1 To 16
      Sheets("Data").Range("Data_Start").Offset(TargetRow, 462 + i).Value = Controls("Text_epe" & i & "_fin") ' epe fin
      Next i




'Sheets("Data").Range("Data_Start").Offset(TargetRow, 479).Value = Text_epe17_fin
'Sheets("Data").Range("Data_Start").Offset(TargetRow, 480).Value = Text_epe18_fin
'Sheets("Data").Range("Data_Start").Offset(TargetRow, 481).Value = Text_epe19_fin
'Sheets("Data").Range("Data_Start").Offset(TargetRow, 482).Value = Text_epe20_fin


For i = 1 To 16
      Sheets("Data").Range("Data_Start").Offset(TargetRow, 482 + i).Value = Controls("Text_dlr" & i & "_fin") ' dlr fin
      Next i




'Sheets("Data").Range("Data_Start").Offset(TargetRow, 499).Value = Text_dlr17_fin
'Sheets("Data").Range("Data_Start").Offset(TargetRow, 500).Value = Text_dlr18_fin
'Sheets("Data").Range("Data_Start").Offset(TargetRow, 501).Value = Text_dlr19_fin
'Sheets("Data").Range("Data_Start").Offset(TargetRow, 502).Value = Text_dlr20_fin

For i = 1 To 16
      Sheets("Data").Range("Data_Start").Offset(TargetRow, 502 + i).Value = Controls("Text_vit" & i & "_fin") ' vitesse fin
      Next i



'Sheets("Data").Range("Data_Start").Offset(TargetRow, 519).Value = Text_vit17_fin
'Sheets("Data").Range("Data_Start").Offset(TargetRow, 520).Value = Text_vit18_fin
'Sheets("Data").Range("Data_Start").Offset(TargetRow, 521).Value = Text_vit19_fin
'Sheets("Data").Range("Data_Start").Offset(TargetRow, 522).Value = Text_vit20_fin


For i = 1 To 16
      Sheets("Data").Range("Data_Start").Offset(TargetRow, 522 + i).Value = Controls("Text_pente" & i & "_fin") ' charge fin
      Next i




'Sheets("Data").Range("Data_Start").Offset(TargetRow, 539).Value = Text_pente17_fin
'Sheets("Data").Range("Data_Start").Offset(TargetRow, 540).Value = Text_pente18_fin
'Sheets("Data").Range("Data_Start").Offset(TargetRow, 541).Value = Text_pente19_fin
'Sheets("Data").Range("Data_Start").Offset(TargetRow, 542).Value = Text_pente20_fin


Sheets("Data").Range("Data_Start").Offset(TargetRow, 543).Value = Text_raison_arret_fin
Sheets("Data").Range("Data_Start").Offset(TargetRow, 544).Value = Text_com_cardio_fin
Sheets("Data").Range("Data_Start").Offset(TargetRow, 545).Value = Text_evol_fc_fin
Sheets("Data").Range("Data_Start").Offset(TargetRow, 546).Value = Text_recup_fin
Sheets("Data").Range("Data_Start").Offset(TargetRow, 547).Value = Text_dlr_text_fin
Sheets("Data").Range("Data_Start").Offset(TargetRow, 548).Value = Text_obs_effort_fin
Sheets("Data").Range("Data_Start").Offset(TargetRow, 549).Value = Text_leapa_text_perso_fin
Sheets("Data").Range("Data_Start").Offset(TargetRow, 550).Value = Combo_CAP_fin
Sheets("Data").Range("Data_Start").Offset(TargetRow, 551).Value = (Text_marche_fin)
Sheets("Data").Range("Data_Start").Offset(TargetRow, 552).Value = Text_obs_marche_fin
Sheets("Data").Range("Data_Start").Offset(TargetRow, 553).Value = (Text_planche_fin)
Sheets("Data").Range("Data_Start").Offset(TargetRow, 554).Value = Text_planche_obs_fin
Sheets("Data").Range("Data_Start").Offset(TargetRow, 555).Value = (Text_corde_fin)
Sheets("Data").Range("Data_Start").Offset(TargetRow, 556).Value = Text_corde_obs_fin
Sheets("Data").Range("Data_Start").Offset(TargetRow, 557).Value = (Text_saut_1_fin)
Sheets("Data").Range("Data_Start").Offset(TargetRow, 558).Value = (Text_saut_2_fin)
Sheets("Data").Range("Data_Start").Offset(TargetRow, 559).Value = Text_saut_obs_fin
Sheets("Data").Range("Data_Start").Offset(TargetRow, 560).Value = (Text_push_fin)
Sheets("Data").Range("Data_Start").Offset(TargetRow, 561).Value = Text_push_obs_fin
Sheets("Data").Range("Data_Start").Offset(TargetRow, 562).Value = (Text_chaise_fin)
Sheets("Data").Range("Data_Start").Offset(TargetRow, 563).Value = Text_chaise_obs_fin
Sheets("Data").Range("Data_Start").Offset(TargetRow, 564).Value = (Text_kinap_capacites_fin)
Sheets("Data").Range("Data_Start").Offset(TargetRow, 565).Value = (Text_kinap_craintes_fin)
Sheets("Data").Range("Data_Start").Offset(TargetRow, 566).Value = (Text_kinap_tsk_fin)
Sheets("Data").Range("Data_Start").Offset(TargetRow, 567).Value = Text_tsk_appr_fin
Sheets("Data").Range("Data_Start").Offset(TargetRow, 568).Value = Combo_poignet_fin





Sheets("Data").Range("Data_Start").Offset(TargetRow, 569).Value = (Text_date_pod_1_fin)                  'podométrie date
Sheets("Data").Range("Data_Start").Offset(TargetRow, 570).Value = (Text_date_pod_2_fin)
Sheets("Data").Range("Data_Start").Offset(TargetRow, 571).Value = (Text_date_pod_3_fin)
Sheets("Data").Range("Data_Start").Offset(TargetRow, 572).Value = (Text_date_pod_4_fin)
Sheets("Data").Range("Data_Start").Offset(TargetRow, 573).Value = (Text_date_pod_5_fin)
Sheets("Data").Range("Data_Start").Offset(TargetRow, 574).Value = (Text_date_pod_6_fin)
Sheets("Data").Range("Data_Start").Offset(TargetRow, 575).Value = (Text_date_pod_7_fin)
Sheets("Data").Range("Data_Start").Offset(TargetRow, 576).Value = (Text_date_pod_8_fin)


Sheets("Data").Range("Data_Start").Offset(TargetRow, 577).Value = (Text_result_podo1_fin)                    'podémotrie résultats
Sheets("Data").Range("Data_Start").Offset(TargetRow, 578).Value = (Text_result_podo2_fin)
Sheets("Data").Range("Data_Start").Offset(TargetRow, 579).Value = (Text_result_podo3_fin)
Sheets("Data").Range("Data_Start").Offset(TargetRow, 580).Value = (Text_result_podo4_fin)
Sheets("Data").Range("Data_Start").Offset(TargetRow, 581).Value = (Text_result_podo5_fin)
Sheets("Data").Range("Data_Start").Offset(TargetRow, 582).Value = (Text_result_podo6_fin)
Sheets("Data").Range("Data_Start").Offset(TargetRow, 583).Value = (Text_result_podo7_fin)
Sheets("Data").Range("Data_Start").Offset(TargetRow, 584).Value = (Text_result_podo8_fin)









Sheets("Data").Range("Data_Start").Offset(TargetRow, 585).Value = Text_com_podo_fin
Sheets("Data").Range("Data_Start").Offset(TargetRow, 586).Value = Combo_dom_preh_fin
Sheets("Data").Range("Data_Start").Offset(TargetRow, 587).Value = (Text_MSG_1_fin)
Sheets("Data").Range("Data_Start").Offset(TargetRow, 588).Value = (Text_MSG_2_fin)
Sheets("Data").Range("Data_Start").Offset(TargetRow, 589).Value = (Text_MSG_3_fin)
Sheets("Data").Range("Data_Start").Offset(TargetRow, 590).Value = (Text_MSD_1_fin)
Sheets("Data").Range("Data_Start").Offset(TargetRow, 591).Value = (Text_MSD_2_fin)
Sheets("Data").Range("Data_Start").Offset(TargetRow, 592).Value = (Text_MSD_3_fin)
Sheets("Data").Range("Data_Start").Offset(TargetRow, 593).Value = Text_preh_obs_fin
Sheets("Data").Range("Data_Start").Offset(TargetRow, 594).Value = (Text_equi_g1_fin)
Sheets("Data").Range("Data_Start").Offset(TargetRow, 595).Value = (Text_equi_g2_fin)
Sheets("Data").Range("Data_Start").Offset(TargetRow, 596).Value = (Text_equi_g3_fin)
Sheets("Data").Range("Data_Start").Offset(TargetRow, 597).Value = Combo_45sg_fin
Sheets("Data").Range("Data_Start").Offset(TargetRow, 598).Value = (Text_equi_d1_fin)
Sheets("Data").Range("Data_Start").Offset(TargetRow, 599).Value = (Text_equi_d2_fin)
Sheets("Data").Range("Data_Start").Offset(TargetRow, 600).Value = (Text_equi_d3_fin)
Sheets("Data").Range("Data_Start").Offset(TargetRow, 601).Value = Combo_45sd_fin
Sheets("Data").Range("Data_Start").Offset(TargetRow, 602).Value = Text_equi_obs_fin
Sheets("Data").Range("Data_Start").Offset(TargetRow, 603).Value = Text_dlr_6_pre_fin
Sheets("Data").Range("Data_Start").Offset(TargetRow, 604).Value = Text_dlr_6_post_fin
Sheets("Data").Range("Data_Start").Offset(TargetRow, 605).Value = Text_résult_6_fin
Sheets("Data").Range("Data_Start").Offset(TargetRow, 606).Value = Text_obs_6_fin
Sheets("Data").Range("Data_Start").Offset(TargetRow, 607).Value = (Text_assisdebout_fin)
Sheets("Data").Range("Data_Start").Offset(TargetRow, 608).Value = Text_assisdebout_com_fin
Sheets("Data").Range("Data_Start").Offset(TargetRow, 609).Value = Text_conclu_fin
Sheets("Data").Range("Data_Start").Offset(TargetRow, 610).Value = (Text_sign_fin)



'''END INPUT DATA INTO DATABASE'''

Unload Data_UF 'close the userform

MsgBox FullName & UserMessage, 0, "Completé" 'display message box (configured according to mode)

End Sub

Private Sub CommandButton2_Click()

Unload Data_UF

End Sub

and the code to edit new file

VBA Code:
Option Explicit



Private Sub ColumnE_Menu_Change()

End Sub

Private Sub CommandButton1_Click()

Dim TargetRow As Integer 'variable to save position of this person in database
Dim i As Long

'use Match worksheet function to find position of chosen name
TargetRow = Application.WorksheetFunction.Match(ColumnE_Menu, Sheets("Data").Range("Dyn_Full_Name"), 0)
Sheets("Engine").Range("B5").Value = TargetRow 'save position in the engine, for use later

Unload Find_Entry_UF 'unload the userform to select a name
    
Dim W
Set W = Data_UF
    
'''Begin retrieving data from database'''
With Sheets("Data").Range("Data_Start")
   W.Txt_First = .Offset(TargetRow, 1).Value 'first name
     W.Text_Dossier = .Offset(TargetRow, 2).Value '# dossier
   W.Txt_Surname = .Offset(TargetRow, 4).Value 'surname
   
 
   W.Text_ddn = .Offset(TargetRow, 5).Value 'DDN
   W.Combo_Gender = .Offset(TargetRow, 6).Value 'Sexe
   W.Combo_dominance = .Offset(TargetRow, 7).Value 'Dominance
   W.Text_Kin = .Offset(TargetRow, 8).Value 'Kinésiologue
   W.Combo_Programme = .Offset(TargetRow, 9).Value 'Programme
   W.Text_date_eval_ini = .Offset(TargetRow, 10).Value 'Date éval initiale
   W.Combo_menopause = .Offset(TargetRow, 11).Value 'Ménopause
   W.Text_taille_ini = .Offset(TargetRow, 12).Value
   W.Text_poids_ini = .Offset(TargetRow, 13).Value
   W.Text_ct_ini = .Offset(TargetRow, 14).Value
   W.Text_com_pds_ini = .Offset(TargetRow, 15).Value
   W.Text_tas_ini = .Offset(TargetRow, 16).Value
   W.Text_tad_ini = .Offset(TargetRow, 17).Value
   W.Text_fc_ini = .Offset(TargetRow, 18).Value
   W.Text_gly_ini = .Offset(TargetRow, 19).Value
   W.Text_mg_ini = .Offset(TargetRow, 20).Value
   W.Text_mm_ini = .Offset(TargetRow, 21).Value
   W.Text_mh_ini = .Offset(TargetRow, 22).Value
   W.Text_pg_ini = .Offset(TargetRow, 23).Value
   W.Text_dx = .Offset(TargetRow, 24).Value
       
       For i = 1 To 8
      W.Controls("Txt_condasso" & i) = .Offset(TargetRow, 24 + i) 'condition(s) associée(s)
   Next i
   For i = 1 To 24
      W.Controls("Text_rx" & i) = .Offset(TargetRow, 32 + i) 'médication
   Next i
   
   W.Text_fr_age_ini = .Offset(TargetRow, 57).Value
   W.Text_fr_obesite_ini = .Offset(TargetRow, 58).Value
   
      For i = 1 To 7
      W.Controls("Combo_fr" & i & "_ini") = .Offset(TargetRow, 58 + i) 'facteurs de risque
      Next i
      
       
   W.Combo_malconnu1_ini = .Offset(TargetRow, 66).Value
   W.Combo_malconnu2_ini = .Offset(TargetRow, 67).Value
   W.Text_passe_sportif = .Offset(TargetRow, 68).Value
   
   For i = 1 To 9
   W.Controls("Text_ps" & i) = .Offset(TargetRow, 68 + i)  'passé sportif
   Next i
   
     
   W.Text_passe_actif = .Offset(TargetRow, 78).Value
   
   For i = 1 To 9
   W.Controls("Text_pa" & i) = .Offset(TargetRow, 78 + i)  'passé actif
   Next i
   
    
   W.Text_apactuelle = .Offset(TargetRow, 88).Value
   
   For i = 1 To 9
   W.Controls("Text_ap" & i) = .Offset(TargetRow, 88 + i)  'activité physique actuelle
   Next i
     
    W.Text_materiel = .Offset(TargetRow, 98).Value
   W.Text_AP_commentaires = .Offset(TargetRow, 99).Value
   W.Text_nbrepas = .Offset(TargetRow, 100).Value
   W.Text_nbcoll = .Offset(TargetRow, 101).Value
   W.Text_hydra = .Offset(TargetRow, 102).Value
   W.Text_alcool = .Offset(TargetRow, 103).Value
   W.Text_cafe = .Offset(TargetRow, 104).Value
   W.Text_boisson_sucrees = .Offset(TargetRow, 105).Value
   W.Text_dej = .Offset(TargetRow, 106).Value
   W.TextBox_diner = .Offset(TargetRow, 107).Value
   W.Text_souper = .Offset(TargetRow, 108).Value
   W.Text_alim_comment = .Offset(TargetRow, 109).Value
   W.Text_alim_remplacement = .Offset(TargetRow, 110).Value
   W.Text_tabac = .Offset(TargetRow, 111).Value
   
   
   For i = 1 To 5
   W.Controls("Text_attente" & i) = .Offset(TargetRow, 111 + i)  'attentes client
   Next i
   
   For i = 1 To 4
   W.Controls("Text_obj_kin" & i) = .Offset(TargetRow, 116 + i)  'Objectifs en kin
   Next i
   
   
  
   W.Text_conclu_ini = .Offset(TargetRow, 121).Value
   W.Text_date_leapa_ini = .Offset(TargetRow, 122).Value
   W.Combo_rapport_leapa_ini = .Offset(TargetRow, 123).Value
   W.Combo_app_ini = .Offset(TargetRow, 124).Value
   W.Combo_prot_ini = .Offset(TargetRow, 125).Value
   W.Text_EPE_fin_ini = .Offset(TargetRow, 126).Value
   W.Text_fc_repos_ini = .Offset(TargetRow, 127).Value
   W.Text_TA_repos_ini = .Offset(TargetRow, 128).Value
   W.Text_vit_tapis_max_ini = .Offset(TargetRow, 129).Value
   W.Text_vit_ergo_max_ini = .Offset(TargetRow, 130).Value
   W.Text_pente_max_ini = .Offset(TargetRow, 131).Value
   W.Text_charge_ergo_max_ini = .Offset(TargetRow, 132).Value
   W.Text_duree_test_ini = .Offset(TargetRow, 133).Value
   W.Text_dlr_pre_ini = .Offset(TargetRow, 134).Value
   W.Text_dlr_post_ini = .Offset(TargetRow, 135).Value
   W.Text_raison_arret_ini = .Offset(TargetRow, 136).Value
   W.Text_FCRmin_ini = .Offset(TargetRow, 137).Value
   W.Text_FCRmax_ini = .Offset(TargetRow, 138).Value
   W.Combo_cardio_ini = .Offset(TargetRow, 139).Value
   W.Combo_inf_ini = .Offset(TargetRow, 140).Value
   W.Text_com_cardio_ini = .Offset(TargetRow, 141).Value
   W.Text_evol_fc_ini = .Offset(TargetRow, 142).Value
   W.Text_recup_ini = .Offset(TargetRow, 143).Value
   W.Text_dlr_text_ini = .Offset(TargetRow, 144).Value
   W.Text_obs_effort_ini = .Offset(TargetRow, 145).Value
   W.Text_leapa_text_perso_ini = .Offset(TargetRow, 146).Value
   W.Text_descri_ini = .Offset(TargetRow, 147).Value
   
   
   For i = 1 To 16
      W.Controls("Text_fc_" & i & "_ini") = .Offset(TargetRow, 147 + i) 'fc ini
      Next i
   
   'ajouter texte pour fc 17 à 20
  
   For i = 1 To 8
      W.Controls("Text_TAS" & i & "_ini") = .Offset(TargetRow, 167 + i) 'TAS_ini
      Next i
  
  
  For i = 1 To 8
      W.Controls("Text_TAD" & i & "_ini") = .Offset(TargetRow, 177 + i) 'TAD_ini
      Next i
   
    For i = 1 To 16
      W.Controls("Text_epe" & i & "_ini") = .Offset(TargetRow, 187 + i) 'EPE_ini
      Next i
   

   For i = 1 To 16
      W.Controls("Text_dlr" & i & "_ini") = .Offset(TargetRow, 207 + i) 'dlr_ini
      Next i
   
   For i = 1 To 16
      W.Controls("Text_vit" & i & "_ini") = .Offset(TargetRow, 227 + i) 'vit_ini
      Next i
   
   For i = 1 To 16
      W.Controls("Text_pente" & i & "_ini") = .Offset(TargetRow, 247 + i) 'pente_ini
      Next i
    


      
   W.Combo_dom_preh_ini = .Offset(TargetRow, 268).Value
   W.Text_MSD_1_ini = .Offset(TargetRow, 269).Value
   W.Text_MSD_2_ini = .Offset(TargetRow, 270).Value
   W.Text_MSD_3_ini = .Offset(TargetRow, 271).Value
   W.Text_MSG_1_ini = .Offset(TargetRow, 272).Value
   W.Text_MSG_2_ini = .Offset(TargetRow, 273).Value
   W.Text_MSG_3_ini = .Offset(TargetRow, 274).Value
   W.Text_preh_obs_ini = .Offset(TargetRow, 275).Value
   W.Text_résult_6_ini = .Offset(TargetRow, 276).Value
   W.Text_dlr_6_pre_ini = .Offset(TargetRow, 277).Value
   W.Text_dlr_6_post_ini = .Offset(TargetRow, 278).Value
   W.Text_obs_6_ini = .Offset(TargetRow, 279).Value
   
   
   
   
   
   
   
   
    W.Text_date_pod_1_ini = .Offset(TargetRow, 280).Text                                                                'date podométrie ini
    W.Text_date_pod_2_ini = .Offset(TargetRow, 281).Text
    W.Text_date_pod_3_ini = .Offset(TargetRow, 282).Text
    W.Text_date_pod_4_ini = .Offset(TargetRow, 283).Text
    W.Text_date_pod_5_ini = .Offset(TargetRow, 284).Text
    W.Text_date_pod_6_ini = .Offset(TargetRow, 285).Text
    W.Text_date_pod_7_ini = .Offset(TargetRow, 286).Text
    W.Text_date_pod_8_ini = .Offset(TargetRow, 287).Text
    
   
   
     
  For i = 1 To 8
      W.Controls("Text_result_podo" & i & "_ini") = .Offset(TargetRow, 287 + i)                                                'résultat podométrie ini
      Next i
   
   
   
   W.Combo_poignet_ini = .Offset(TargetRow, 296).Value
   W.Text_com_podo_ini = .Offset(TargetRow, 297).Value
   W.Combo_CAP_ini = .Offset(TargetRow, 298).Value
   W.Text_marche_ini = .Offset(TargetRow, 299).Value
   W.Text_obs_marche_ini = .Offset(TargetRow, 300).Value
   W.Text_planche_ini = .Offset(TargetRow, 301).Value
   W.Text_planche_obs_ini = .Offset(TargetRow, 302).Value
   W.Text_corde_ini = .Offset(TargetRow, 303).Value
   W.Text_corde_obs_ini = .Offset(TargetRow, 304).Value
   W.Text_saut_1_ini = .Offset(TargetRow, 305).Value
   W.Text_saut_2_ini = .Offset(TargetRow, 306).Value
   W.Text_saut_obs_ini = .Offset(TargetRow, 307).Value
   W.Text_push_ini = .Offset(TargetRow, 308).Value
   W.Text_push_obs_ini = .Offset(TargetRow, 309).Value
   W.Text_chaise_ini = .Offset(TargetRow, 310).Value
   W.Text_chaise_obs_ini = .Offset(TargetRow, 311).Value
   W.Text_equi_d1_ini = .Offset(TargetRow, 312).Value
   W.Text_equi_d2_ini = .Offset(TargetRow, 313).Value
   W.Text_equi_d3_ini = .Offset(TargetRow, 314).Value
   W.Combo_45sd_ini = .Offset(TargetRow, 315).Value
   W.Text_equi_g1_ini = .Offset(TargetRow, 316).Value
   W.Text_equi_g2_ini = .Offset(TargetRow, 317).Value
   W.Text_equi_g3_ini = .Offset(TargetRow, 318).Value
   W.Combo_45sg_ini = .Offset(TargetRow, 319).Value
   W.Text_equi_obs_ini = .Offset(TargetRow, 320).Value
   W.Text_stress_pré_ini = .Offset(TargetRow, 321).Value
   W.Text_stress_act_ini = .Offset(TargetRow, 322).Value
   W.Text_energie_pre_ini = .Offset(TargetRow, 323).Value
   W.Text_energie_act_ini = .Offset(TargetRow, 324).Value
   W.Text_kinap_capacites_ini = .Offset(TargetRow, 325).Value
   W.Text_kinap_craintes_ini = .Offset(TargetRow, 326).Value
   W.Text_kinap_tsk_ini = .Offset(TargetRow, 327).Value
   W.Text_tsk_appr_ini = .Offset(TargetRow, 328).Value
   W.Text_assisdebout_ini = .Offset(TargetRow, 329).Value
   W.Text_assisdebout_com_ini = .Offset(TargetRow, 330).Value
   W.Text_sign_ini = .Offset(TargetRow, 331).Value
   W.Text_date_eval_fin = .Offset(TargetRow, 332).Value
   W.Text_taille_fin = .Offset(TargetRow, 333).Value
   W.Text_poids_fin = .Offset(TargetRow, 334).Value
   W.Text_ct_fin = .Offset(TargetRow, 335).Value
   W.Text_com_pds_fin = .Offset(TargetRow, 336).Value
   W.Text_tas_fin = .Offset(TargetRow, 337).Value
   W.Text_tad_fin = .Offset(TargetRow, 338).Value
   W.Text_fc_fin = .Offset(TargetRow, 339).Value
   W.Text_gly_fin = .Offset(TargetRow, 340).Value
   W.Text_mg_fin = .Offset(TargetRow, 341).Value
   W.Text_mm_fin = .Offset(TargetRow, 342).Value
   W.Text_mh_fin = .Offset(TargetRow, 343).Value
   W.Text_pg_fin = .Offset(TargetRow, 344).Value
   W.Text_fr_age_fin = .Offset(TargetRow, 345).Value
   W.Text_fr_obesite_fin = .Offset(TargetRow, 346).Value
   
   
   
   For i = 1 To 7
      W.Controls("Combo_fr" & i & "_fin") = .Offset(TargetRow, 346 + i) 'facteurs de risque fin
      Next i
   
   
   
   
   W.Combo_malconnu1_fin = .Offset(TargetRow, 354).Value
   W.Combo_malconnu2_fin = .Offset(TargetRow, 355).Value
   W.Text_passe_sportif_fin = .Offset(TargetRow, 356).Value
   
   For i = 1 To 9
      W.Controls("Text_ps" & i & "_fin") = .Offset(TargetRow, 356 + i) 'Atcd sportif fin
      Next i
   
   
   
   W.Text_passe_actif_fin = .Offset(TargetRow, 366).Value
   
   For i = 1 To 9
      W.Controls("Text_pa" & i & "_fin") = .Offset(TargetRow, 366 + i) 'Atcd actif fin
      Next i
   
   
   W.Text_apactuelle_fni = .Offset(TargetRow, 376).Value
   
   For i = 1 To 9
      W.Controls("Text_ap" & i & "_fin") = .Offset(TargetRow, 376 + i) 'AP actuelle fin
      Next i
   
   
   W.Text_materiel_fin = .Offset(TargetRow, 386).Value
   W.Text_AP_commentaires_fin = .Offset(TargetRow, 387).Value
   W.Text_nbrepas_fin = .Offset(TargetRow, 388).Value
   W.Text_nbcoll_fin = .Offset(TargetRow, 389).Value
   W.Text_hydra_fin = .Offset(TargetRow, 390).Value
   W.Text_alcool_fin = .Offset(TargetRow, 391).Value
   W.Text_cafe_fin = .Offset(TargetRow, 392).Value
   W.Text_boisson_sucrees_fin = .Offset(TargetRow, 393).Value
   W.Text_dej_fin = .Offset(TargetRow, 394).Value
   W.TextBox_diner_fin = .Offset(TargetRow, 395).Value
   W.Text_souper_fin = .Offset(TargetRow, 396).Value
   W.Text_alim_comment_fin = .Offset(TargetRow, 397).Value
   W.Text_alim_remplacement_fin = .Offset(TargetRow, 398).Value
   W.Text_tabac_fin = .Offset(TargetRow, 399).Value
   W.Text_stress_pré_fin = .Offset(TargetRow, 400).Value
   W.Text_stress_act_fin = .Offset(TargetRow, 401).Value
   W.Text_energie_pre_fin = .Offset(TargetRow, 402).Value
   W.Text_energie_act_fin = .Offset(TargetRow, 403).Value
   W.Text_date_leapa_fin = .Offset(TargetRow, 404).Value
   W.Combo_cardio_fin = .Offset(TargetRow, 405).Value
   W.Combo_inf_fin = .Offset(TargetRow, 406).Value
   W.Combo_app_fin = .Offset(TargetRow, 407).Value
   W.Combo_prot_fin = .Offset(TargetRow, 408).Value
   W.Text_duree_test_fin = .Offset(TargetRow, 409).Value
   W.Text_descri_fin = .Offset(TargetRow, 410).Value
   W.Text_fc_repos_fin = .Offset(TargetRow, 411).Value
   W.Text_TA_repos_fin = .Offset(TargetRow, 412).Value
   W.Text_EPE_fin_fin = .Offset(TargetRow, 413).Value
   W.Text_vit_tapis_max_fin = .Offset(TargetRow, 414).Value
   W.Text_pente_max_fin = .Offset(TargetRow, 415).Value
   W.Text_vit_ergo_max_fin = .Offset(TargetRow, 416).Value
   W.Text_charge_ergo_max_fin = .Offset(TargetRow, 417).Value
   W.Text_dlr_pre_fin = .Offset(TargetRow, 418).Value
   W.Text_dlr_post_fin = .Offset(TargetRow, 419).Value
   W.Text_FCRmin_fin = .Offset(TargetRow, 420).Value
   W.Text_FCRmax_fin = .Offset(TargetRow, 421).Value
   W.Combo_rapport_leapa_fin = .Offset(TargetRow, 422).Value
   
   For i = 1 To 16
      W.Controls("Text_fc_" & i & "_fin") = .Offset(TargetRow, 422 + i) 'fc fin
      Next i
   
   
   
    For i = 1 To 8
      W.Controls("Text_TAS" & i & "_fin") = .Offset(TargetRow, 442 + i) 'TAS fin
      Next i
   
    For i = 1 To 8
      W.Controls("Text_TAD" & i & "_fin") = .Offset(TargetRow, 452 + i) 'TAD fin
      Next i
   
   For i = 1 To 16
      W.Controls("Text_epe" & i & "_fin") = .Offset(TargetRow, 462 + i) 'EPE fin
      Next i
  
   For i = 1 To 16
      W.Controls("Text_dlr" & i & "_fin") = .Offset(TargetRow, 482 + i) 'Dlr fin
      Next i
   
   
   For i = 1 To 16
      W.Controls("Text_vit" & i & "_fin") = .Offset(TargetRow, 502 + i) 'vit fin
      Next i
      
   For i = 1 To 16
      W.Controls("Text_pente" & i & "_fin") = .Offset(TargetRow, 522 + i) 'pente fin
      Next i
 
   

   
   
   
   
   W.Text_raison_arret_fin = .Offset(TargetRow, 543).Value
   W.Text_com_cardio_fin = .Offset(TargetRow, 544).Value
   W.Text_evol_fc_fin = .Offset(TargetRow, 545).Value
   W.Text_recup_fin = .Offset(TargetRow, 546).Value
   W.Text_dlr_text_fin = .Offset(TargetRow, 547).Value
   W.Text_obs_effort_fin = .Offset(TargetRow, 548).Value
   W.Text_leapa_text_perso_fin = .Offset(TargetRow, 549).Value
   W.Combo_CAP_fin = .Offset(TargetRow, 550).Value
   W.Text_marche_fin = .Offset(TargetRow, 551).Value
   W.Text_obs_marche_fin = .Offset(TargetRow, 552).Value
   W.Text_planche_fin = .Offset(TargetRow, 553).Value
   W.Text_planche_obs_fin = .Offset(TargetRow, 554).Value
   W.Text_corde_fin = .Offset(TargetRow, 555).Value
   W.Text_corde_obs_fin = .Offset(TargetRow, 556).Value
   W.Text_saut_1_fin = .Offset(TargetRow, 557).Value
   W.Text_saut_2_fin = .Offset(TargetRow, 558).Value
   W.Text_saut_obs_fin = .Offset(TargetRow, 559).Value
   W.Text_push_fin = .Offset(TargetRow, 560).Value
   W.Text_push_obs_fin = .Offset(TargetRow, 561).Value
   W.Text_chaise_fin = .Offset(TargetRow, 562).Value
   W.Text_chaise_obs_fin = .Offset(TargetRow, 563).Value
   W.Text_kinap_capacites_fin = .Offset(TargetRow, 564).Value
   W.Text_kinap_craintes_fin = .Offset(TargetRow, 565).Value
   W.Text_kinap_tsk_fin = .Offset(TargetRow, 566).Value
   W.Text_tsk_appr_fin = .Offset(TargetRow, 567).Value
   W.Combo_poignet_fin = .Offset(TargetRow, 568).Value
   
   For i = 1 To 8
      W.Controls("Text_date_pod_" & i & "_fin") = .Offset(TargetRow, 568 + i) 'Date podo fin
      Next i
   
   For i = 1 To 8
      W.Controls("Text_result_podo" & i & "_fin") = .Offset(TargetRow, 576 + i) 'Résultats podo fin
      Next i
   
  
   W.Text_com_podo_fin = .Offset(TargetRow, 585).Value
   W.Combo_dom_preh_fin = .Offset(TargetRow, 586).Value
   W.Text_MSG_1_fin = .Offset(TargetRow, 587).Value
   W.Text_MSG_2_fin = .Offset(TargetRow, 588).Value
   W.Text_MSG_3_fin = .Offset(TargetRow, 589).Value
   W.Text_MSD_1_fin = .Offset(TargetRow, 590).Value
   W.Text_MSD_2_fin = .Offset(TargetRow, 591).Value
   W.Text_MSD_3_fin = .Offset(TargetRow, 592).Value
   W.Text_preh_obs_fin = .Offset(TargetRow, 593).Value
   W.Text_equi_g1_fin = .Offset(TargetRow, 594).Value
   W.Text_equi_g2_fin = .Offset(TargetRow, 595).Value
   W.Text_equi_g3_fin = .Offset(TargetRow, 596).Value
   W.Combo_45sg_fin = .Offset(TargetRow, 597).Value
   W.Text_equi_d1_fin = .Offset(TargetRow, 598).Value
   W.Text_equi_d2_fin = .Offset(TargetRow, 599).Value
   W.Text_equi_d3_fin = .Offset(TargetRow, 600).Value
   W.Combo_45sd_fin = .Offset(TargetRow, 601).Value
   W.Text_equi_obs_fin = .Offset(TargetRow, 602).Value
   W.Text_dlr_6_pre_fin = .Offset(TargetRow, 603).Value
   W.Text_dlr_6_post_fin = .Offset(TargetRow, 604).Value
   W.Text_résult_6_fin = .Offset(TargetRow, 605).Value
   W.Text_obs_6_fin = .Offset(TargetRow, 606).Value
   W.Text_assisdebout_fin = .Offset(TargetRow, 607).Value
   W.Text_assisdebout_com_fin = .Offset(TargetRow, 608).Value
   W.Text_conclu_fin = .Offset(TargetRow, 609).Value
   W.Text_sign_fin = .Offset(TargetRow, 610).Value
End With




'''End retrieving data from database'''

W.Caption = "Modifier" 'set caption to show that the user is editing
W.Show 'show the user form with the details loaded in

End Sub


Private Sub Text_dossier_choix_Change()

If Len(Text_dossier_choix.Text) >= 5 Then
     On Error Resume Next
   ColumnE_Menu.Text = Application.WorksheetFunction. _
        VLookup(CLng(Text_dossier_choix.Text), Worksheets("Data").Range("D8:Dyn_Full_Name"), 2, False) 'clng pour rechercher chiffres et parenthèses au mot "dossier"

Else
 ColumnE_Menu.Text = ""
End If


End Sub




Private Sub UserForm_Click()

End Sub


Thanks in advance for your help

JP
 

Excel Facts

Move date out one month or year
Use =EDATE(A2,1) for one month later. Use EDATE(A2,12) for one year later.

Watch MrExcel Video

Forum statistics

Threads
1,129,727
Messages
5,638,025
Members
416,999
Latest member
smulttjukken

We've detected that you are using an adblocker.

We have a great community of people providing Excel help here, but the hosting costs are enormous. You can help keep this site running by allowing ads on MrExcel.com.
Allow Ads at MrExcel

Which adblocker are you using?

Disable AdBlock

Follow these easy steps to disable AdBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the icon in the browser’s toolbar.
2)Click on the "Pause on this site" option.
Go back

Disable AdBlock Plus

Follow these easy steps to disable AdBlock Plus

1)Click on the icon in the browser’s toolbar.
2)Click on the toggle to disable it for "mrexcel.com".
Go back

Disable uBlock Origin

Follow these easy steps to disable uBlock Origin

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back

Disable uBlock

Follow these easy steps to disable uBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back
Top