Меню

Procedure too large vba ошибка как исправить

1 / 1 / 0

Регистрация: 03.12.2011

Сообщений: 47

1

08.04.2012, 12:10. Показов 25355. Ответов 9

У меня при запуске макроса выдаётся ошибка Procedure too large. Можно обойти эту ошибку,
не разбивая на несколько разных сабов? Процедура действительно большая. А какое ограничение
есть по величине процедур?

__________________
Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь



0

15131 / 6405 / 1730

Регистрация: 24.09.2011

Сообщений: 9,999

08.04.2012, 13:15

2

Процедуру надо оптимизировать. Макрос, записанный макрорекордером, без особых усилий можно сократить в 3-10 раз.
Выложите первые ~50 строк процедуры.



0

Эксперт WindowsАвтор FAQ

17951 / 7587 / 889

Регистрация: 25.12.2011

Сообщений: 11,317

Записей в блоге: 17

08.04.2012, 13:28

3

Лучший ответ Сообщение было отмечено как решение

Решение

4676 символов вместе с операторами Sub…End Sub, не зависимо от количества пустых строк.

Это значит что процедура действительно чрезмерно перегружена.
Пробуйте удалять лишние Select, Activate.
Пользуйтесь With, циклами, массивами данных.
Создавайте отдельные функции и подпрограммы с передачей им параметров по Byref, Byval.

Придерживаясь элементарных правил, для самого себя Ваш код станет более читаемым, узнаваемым. А отдельные его части можно будет использовать повторно из под других процедур/модулей (т.н. расширяемость программы).



4

693 / 99 / 10

Регистрация: 25.06.2011

Сообщений: 718

08.04.2012, 13:33

4

Если внимательно пересмотреть несколько раз код, то всегда есть лишние действия…



0

1 / 1 / 0

Регистрация: 03.12.2011

Сообщений: 47

08.04.2012, 13:40

 [ТС]

5

эт не в моем случае. у меня множество select case-ов. почему именно 4676. неужели это нельзя где
нить в опшенсах поменять?



0

1562 / 453 / 51

Регистрация: 10.04.2009

Сообщений: 7,836

08.04.2012, 13:43

6

бить на процедуры!
и

Цитата
Сообщение от Казанский
Посмотреть сообщение

Выложите первые ~50 строк процедуры.



0

Эксперт WindowsАвтор FAQ

17951 / 7587 / 889

Регистрация: 25.12.2011

Сообщений: 11,317

Записей в блоге: 17

08.04.2012, 14:04

7

В простейшем случае: найти кусок кода, в который передается и который использует минимум переменных. Вырезать в отдельную подпрограмму.

Цитата
Сообщение от stickstoff
Посмотреть сообщение

неужели это нельзя где
нить в опшенсах поменять?

От этого программе легче не станет. Не пытайтесь обмануть компилятор. Это его ограничение по памяти, заложенное в код.



1

735 / 203 / 11

Регистрация: 23.06.2011

Сообщений: 440

09.04.2012, 09:40

8

Если не можете оптимизировать процедуру, оптимизируйте исходные данные!
Например «множество Select Case’ов» говорит о том, что прогнило что-то в Датском королевстве.



0

x-index

0 / 0 / 0

Регистрация: 20.01.2016

Сообщений: 1

11.11.2013, 00:12

9

Цитата
Сообщение от Казанский
Посмотреть сообщение

Процедуру надо оптимизировать. Макрос, записанный макрорекордером, без особых усилий можно сократить в 3-10 раз.
Выложите первые ~50 строк процедуры.

Visual Basic 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52

Dim address As String
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
address = Target.address
Select Case address
Case "$E$22"
    Sheets("Номера телефонов").Select
    Sheets("Номера телефонов").Cells.Select
    With Selection.Interior
        .Pattern = xlNone
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With
Sheets("Номера телефонов").Range("B5:K7").Select
    With Selection.Interior
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
        .ThemeColor = xlThemeColorAccent1
        .TintAndShade = 0.399975585192419
        .PatternTintAndShade = 0
    End With
Case "$E$23"
    Sheets("Номера телефонов").Select
    Sheets("Номера телефонов").Cells.Select
    With Selection.Interior
        .Pattern = xlNone
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With
Sheets("Номера телефонов").Range("B8:K10").Select
    With Selection.Interior
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
        .ThemeColor = xlThemeColorAccent1
        .TintAndShade = 0.399975585192419
        .PatternTintAndShade = 0
    End With
Case "$E$24"
    Sheets("Номера телефонов").Select
    Sheets("Номера телефонов").Cells.Select
    With Selection.Interior
        .Pattern = xlNone
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With
Sheets("Номера телефонов").Range("B11:K13").Select
    With Selection.Interior
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
        .ThemeColor = xlThemeColorAccent1
        .TintAndShade = 0.399975585192419
        .PatternTintAndShade = 0
    End With



0

Hugo121

6874 / 2806 / 533

Регистрация: 19.10.2012

Сообщений: 8,550

11.11.2013, 00:30

10

Думаю можно как-то так — естественно не проверял:

Visual Basic 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38

Dim address As String
 
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    address = Target.address
    With Sheets("Номера телефонов")
        Select Case address
            Case "$E$22"
                inter1 .Cells
                inter2 .Range("B5:K7")
            Case "$E$23"
                inter1 .Cells
                inter2 .Range("B8:K10")
            Case "$E$24"
                inter1 .Cells
                inter2 .Range("B11:K13")
 
 
        End Select
    End With
End Sub
 
Sub inter1(r)
    With r.Interior
        .Pattern = xlNone
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With
End Sub
 
Sub inter2(r)
    With r.Interior
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
        .ThemeColor = xlThemeColorAccent1
        .TintAndShade = 0.399975585192419
        .PatternTintAndShade = 0
    End With
End Sub

Вернее даже можно чуть компактнее на событии:

Visual Basic 
1
2
3
4
5
6
7
8
9
10

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    address = Target.address
    With Sheets("Номера телефонов")
        Select Case address
            Case "$E$22": inter1 .Cells: inter2 .Range("B5:K7")
            Case "$E$23": inter1 .Cells: inter2 .Range("B8:K10")
            Case "$E$24": inter1 .Cells: inter2 .Range("B11:K13")
        End Select
    End With
End Sub



0

IT_Exp

Эксперт

87844 / 49110 / 22898

Регистрация: 17.06.2006

Сообщений: 92,604

 11.11.2013, 00:30

Помогаю со студенческими работами здесь

Compile error: Procedure too large
Подскажите, как можно оптимизировать данный код?
В конечном файле получается более 300 подобных…

«Invalid procedure call or argument»
Добрый вечер.Просмотрев кучу других тем, та и не смог разобраться со своей проблемой. Подскажите…

Procedure too large Как уменьшить данный код?
Добрый день, уважаемые форумчане!
Прошу помощи, как можно уменьшить код, можно использовать и…

Отметить полужирным шрифтом в исходном тексте слова имеющие приставки «пре», «при», «на», «не»
Отметить полужирным шрифтом в исходном тексте слова имеющие приставки "пре",
"при", "на", "не"….

Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:

10

Источник

Структура файла Excel следующая:  
отображаются нужные строки с именами в зависимости от выбранных условий в табличке.  

  Нашел стандартный код для реализации:  

  Private Sub Worksheet_SelectionChange(ByVal Target As Range)  
If Range(«f3»).Value = «Да» Then  
Rows(«2»).EntireRow.Hidden = True  
Rows(«3»).EntireRow.Hidden = True  
Else  
Rows(«2»).EntireRow.Hidden = False  
Rows(«3»).EntireRow.Hidden = False  
End If  
End Sub  

    Все бы ничего, но условий пара десятков, а строк попадающих под Скрыть/Показать около сотни. Т.е код сам простой, но его доволно много, т.к. много If-ов и вот этих строк Rows(«N»).EntireRow.Hidden = True/False.  

  В итоге на полпути компилятор стал ругаться, выдавая «Procedure too large».  

  Стал гуглить, на форумах всплыла подсказка, мол, если свыше 1000 строк в коде, то процедура считается перегруженной и следует разбить код на несколько процедур, а затем соединить их событием клика.  
И описали:  

  Private Sub A  
…  
End Sub  

  Private Sub B  
…  
End Sub  

  Private Sub cmbGo_Click()  
A:B  
End Sub  

    Я было обрадовался, но не тут то было.  
Фигня в том, что Worksheet_SelectionChange — это базовая процедура, обращающаяся к своим переменным и каким-то библиотекам.  
Т.е. переименовать ее на №1, №2 и т.д. — нельзя.  
Тогда напрашивалось очевидное: обернуть блоки кода в новые процедуры, обозначая в каждом блоке, что работаем в этом самом Worksheet_SelectionChange:  

  Private Sub A  
Private Sub Worksheet_SelectionChange(ByVal Target As Range)  
…  
End Sub  
End Sub  

  Private Sub B  
Private Sub Worksheet_SelectionChange(ByVal Target As Range)  
…  
End Sub  
End Sub  

  но и так васёк ругается, видимо нельзя содержать процедуру в процедуре:(  

      Вот и дошли до вопроса:    
КАК БЫТЬ?  
Если никак иначе кроме разбивки на подпроцедуры не обойти ошибку «Procedure too large», то как грамотно разделять их выполняя по сути все ту же Worksheet_SelectionChange?  
Есть ли другие решения задачи?

Источник

Return to VBA Code Examples

This article will explain the VBA procedure too large error.

vba procedure too large

There are 2 main reasons that this error can appear in Excel VBA.

Check Excel Version

This error can occur if you are running a 32-bit version of Excel, but you have a very large procedure which would be better off being run in a 64-bit environment.

Just because your PC is 64-bit does not necessarily mean that your version of the Microsoft Office is 64-bit, so you will need to check your Excel version.

In the Ribbon, select File, then (1) select Account and then (2) About Excel.

vba procedure account

Check in the information that appears about Excel – it will let you know if you are running the 32-bit or 64-bit version of Office.

vba procedure excel version

If you need to upgrade to the 64-bit version, make sure that it will not effect any add-ins or other macros that you use. Most add-ins and macros need to be customized to run on the 64-bit version of office and older add-ins may not run at all.

Decrease the Size of Your Procedure

The other main reason is that your Procedure is, simply, too large! You need to try and decrease the size of your procedure by using Loops or Nested Procedures instead of having the code all in a single procedure.

You can for example break down your code into separate procedures and then call the separate procedures in your main procedure.

For example:

vba procedure call procedures

Источник

Procedure Too Large

Procedure Too Large Error Message Fix

How to Fix Compile Error: Procedure Too Large

The error message «Compile error: Procedure too large» appears in Excel 2007, 2010, and 2013 when you try to execute more than 3,000 lines of code in a single module. This pop-up error message is annoying for developers who are building complex programs. According to the Microsoft Website, this error message occurs when you try to execute code «that exceeds 64kb when compiled.» I found a simple solution that fixes this error message and allows you to execute an unlimited amount of code in VBA.

Fix: Link Multiple Modules Together in VBA
To bypass the Procedure Too Large error message, simply link two modules or subprocedures together from separate workbooks.

1. In Workbook1, open up Workbook2 with the below code:
Workbooks.Open Filename:=»C:UsersDesktopVBATutorialCode LessonsReference Second Module» & «Workbook2.xlsm»

2. In Workbook1, run the code for the Module in Workbook2 from Workbook1:
Application.Run «Workbook2.xlsm» & «!SecondModule»
3. !SecondModule is the name of the module from the second workbook as pictured below:
Link Module

Video Fix

If you want to watch me link two modules together in VBA from different workbooks, then watch the below video from my Youtube. I recommend that you switch the video quality to 1080P HD. If you are on mobile, please watch the video on My Youtube because embedded videos on my website have worse quality on mobile than the video on Youtube.

Источник
[/
Private Sub CommandButton1_Click()

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

'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
    
'''Begin retrieving data from database'''
Data_UF.Txt_First = Sheets("Data").Range("Data_Start").Offset(TargetRow, 1).Value 'first name
Data_UF.Txt_Surname = Sheets("Data").Range("Data_Start").Offset(TargetRow, 2).Value 'surname

Data_UF.Text_Dossier = Sheets("Data").Range("Data_Start").Offset(TargetRow, 4).Value '# dossier
Data_UF.Text_ddn = Sheets("Data").Range("Data_Start").Offset(TargetRow, 5).Value 'DDN
Data_UF.Combo_Gender = Sheets("Data").Range("Data_Start").Offset(TargetRow, 6).Value 'Sexe
Data_UF.Combo_dominance = Sheets("Data").Range("Data_Start").Offset(TargetRow, 7).Value 'Dominance
Data_UF.Text_Kin = Sheets("Data").Range("Data_Start").Offset(TargetRow, 8).Value 'Kinésiologue
Data_UF.Combo_Programme = Sheets("Data").Range("Data_Start").Offset(TargetRow, 9).Value 'Programme
Data_UF.Text_date_eval_ini = Sheets("Data").Range("Data_Start").Offset(TargetRow, 10).Value 'Date éval initiale
Data_UF.Combo_menopause = Sheets("Data").Range("Data_Start").Offset(TargetRow, 11).Value 'Ménopause
Data_UF.Text_taille_ini = Sheets("Data").Range("Data_Start").Offset(TargetRow, 12).Value
Data_UF.Text_poids_ini = Sheets("Data").Range("Data_Start").Offset(TargetRow, 13).Value
Data_UF.Text_ct_ini = Sheets("Data").Range("Data_Start").Offset(TargetRow, 14).Value
Data_UF.Text_com_pds_ini = Sheets("data").Range("Data_Start").Offset(TargetRow, 15).Value
Data_UF.Text_tas_ini = Sheets("data").Range("Data_Start").Offset(TargetRow, 16).Value
Data_UF.Text_tad_ini = Sheets("data").Range("Data_Start").Offset(TargetRow, 17).Value
Data_UF.Text_fc_ini = Sheets("data").Range("Data_Start").Offset(TargetRow, 18).Value
Data_UF.Text_gly_ini = Sheets("data").Range("Data_Start").Offset(TargetRow, 19).Value
Data_UF.Text_mg_ini = Sheets("data").Range("Data_Start").Offset(TargetRow, 20).Value
Data_UF.Text_mm_ini = Sheets("data").Range("Data_Start").Offset(TargetRow, 21).Value
Data_UF.Text_mh_ini = Sheets("data").Range("Data_Start").Offset(TargetRow, 22).Value
Data_UF.Text_pg_ini = Sheets("data").Range("Data_Start").Offset(TargetRow, 23).Value
Data_UF.Text_dx = Sheets("data").Range("Data_Start").Offset(TargetRow, 24).Value
Data_UF.Txt_condasso1 = Sheets("data").Range("Data_Start").Offset(TargetRow, 25).Value
Data_UF.Txt_condasso2 = Sheets("data").Range("Data_Start").Offset(TargetRow, 26).Value
Data_UF.Txt_condasso3 = Sheets("data").Range("Data_Start").Offset(TargetRow, 27).Value
Data_UF.Txt_condasso4 = Sheets("data").Range("Data_Start").Offset(TargetRow, 28).Value
Data_UF.Txt_condasso5 = Sheets("data").Range("Data_Start").Offset(TargetRow, 29).Value
Data_UF.Txt_condasso6 = Sheets("data").Range("Data_Start").Offset(TargetRow, 30).Value
Data_UF.Txt_condasso7 = Sheets("data").Range("Data_Start").Offset(TargetRow, 31).Value
Data_UF.Txt_condasso8 = Sheets("data").Range("Data_Start").Offset(TargetRow, 32).Value
Data_UF.Text_rx1 = Sheets("data").Range("Data_Start").Offset(TargetRow, 33).Value
Data_UF.Text_rx2 = Sheets("data").Range("Data_Start").Offset(TargetRow, 34).Value
Data_UF.Text_rx3 = Sheets("data").Range("Data_Start").Offset(TargetRow, 35).Value
Data_UF.Text_rx4 = Sheets("data").Range("Data_Start").Offset(TargetRow, 36).Value
Data_UF.Text_rx5 = Sheets("data").Range("Data_Start").Offset(TargetRow, 37).Value
Data_UF.Text_rx6 = Sheets("data").Range("Data_Start").Offset(TargetRow, 38).Value
Data_UF.Text_rx7 = Sheets("data").Range("Data_Start").Offset(TargetRow, 39).Value
Data_UF.Text_rx8 = Sheets("data").Range("Data_Start").Offset(TargetRow, 40).Value
Data_UF.Text_rx9 = Sheets("data").Range("Data_Start").Offset(TargetRow, 41).Value
Data_UF.Text_rx10 = Sheets("data").Range("Data_Start").Offset(TargetRow, 42).Value
Data_UF.Text_rx11 = Sheets("data").Range("Data_Start").Offset(TargetRow, 43).Value
Data_UF.Text_rx12 = Sheets("data").Range("Data_Start").Offset(TargetRow, 44).Value
Data_UF.Text_rx13 = Sheets("data").Range("Data_Start").Offset(TargetRow, 45).Value
Data_UF.Text_rx14 = Sheets("data").Range("Data_Start").Offset(TargetRow, 46).Value
Data_UF.Text_rx15 = Sheets("data").Range("Data_Start").Offset(TargetRow, 47).Value
Data_UF.Text_rx16 = Sheets("data").Range("Data_Start").Offset(TargetRow, 48).Value
Data_UF.Text_rx17 = Sheets("data").Range("Data_Start").Offset(TargetRow, 49).Value
Data_UF.Text_rx18 = Sheets("data").Range("Data_Start").Offset(TargetRow, 50).Value
Data_UF.Text_rx19 = Sheets("data").Range("Data_Start").Offset(TargetRow, 51).Value
Data_UF.Text_rx20 = Sheets("data").Range("Data_Start").Offset(TargetRow, 52).Value
Data_UF.Text_rx21 = Sheets("data").Range("Data_Start").Offset(TargetRow, 53).Value
Data_UF.Text_rx22 = Sheets("data").Range("Data_Start").Offset(TargetRow, 54).Value
Data_UF.Text_rx23 = Sheets("data").Range("Data_Start").Offset(TargetRow, 55).Value
Data_UF.Text_rx24 = Sheets("data").Range("Data_Start").Offset(TargetRow, 56).Value
Data_UF.Text_fr_age_ini = Sheets("data").Range("Data_Start").Offset(TargetRow, 57).Value
Data_UF.Text_fr_obesite_ini = Sheets("data").Range("Data_Start").Offset(TargetRow, 58).Value
Data_UF.Combo_fr1_ini = Sheets("data").Range("Data_Start").Offset(TargetRow, 59).Value
Data_UF.Combo_fr2_ini = Sheets("data").Range("Data_Start").Offset(TargetRow, 60).Value
Data_UF.Combo_fr3_ini = Sheets("data").Range("Data_Start").Offset(TargetRow, 61).Value
Data_UF.Combo_fr4_ini = Sheets("data").Range("Data_Start").Offset(TargetRow, 62).Value
Data_UF.Combo_fr5_ini = Sheets("data").Range("Data_Start").Offset(TargetRow, 63).Value
Data_UF.Combo_fr6_ini = Sheets("data").Range("Data_Start").Offset(TargetRow, 64).Value
Data_UF.Combo_fr7_ini = Sheets("data").Range("Data_Start").Offset(TargetRow, 65).Value
Data_UF.Combo_malconnu1_ini = Sheets("data").Range("Data_Start").Offset(TargetRow, 66).Value
Data_UF.Combo_malconnu2_ini = Sheets("data").Range("Data_Start").Offset(TargetRow, 67).Value
Data_UF.Text_passe_sportif = Sheets("data").Range("Data_Start").Offset(TargetRow, 68).Value
Data_UF.Text_ps1 = Sheets("data").Range("Data_Start").Offset(TargetRow, 69).Value
Data_UF.Text_ps2 = Sheets("data").Range("Data_Start").Offset(TargetRow, 70).Value
Data_UF.Text_ps3 = Sheets("data").Range("Data_Start").Offset(TargetRow, 71).Value
Data_UF.Text_ps4 = Sheets("data").Range("Data_Start").Offset(TargetRow, 72).Value
Data_UF.Text_ps5 = Sheets("data").Range("Data_Start").Offset(TargetRow, 73).Value
Data_UF.Text_ps6 = Sheets("data").Range("Data_Start").Offset(TargetRow, 74).Value
Data_UF.Text_ps7 = Sheets("data").Range("Data_Start").Offset(TargetRow, 75).Value
Data_UF.Text_ps8 = Sheets("data").Range("Data_Start").Offset(TargetRow, 76).Value
Data_UF.Text_ps9 = Sheets("data").Range("Data_Start").Offset(TargetRow, 77).Value
Data_UF.Text_passe_actif = Sheets("data").Range("Data_Start").Offset(TargetRow, 78).Value
Data_UF.Text_pa1 = Sheets("data").Range("Data_Start").Offset(TargetRow, 79).Value
Data_UF.Text_pa2 = Sheets("data").Range("Data_Start").Offset(TargetRow, 80).Value
Data_UF.Text_pa3 = Sheets("data").Range("Data_Start").Offset(TargetRow, 81).Value
Data_UF.Text_pa4 = Sheets("data").Range("Data_Start").Offset(TargetRow, 82).Value
Data_UF.Text_pa5 = Sheets("data").Range("Data_Start").Offset(TargetRow, 83).Value
Data_UF.Text_pa6 = Sheets("data").Range("Data_Start").Offset(TargetRow, 84).Value
Data_UF.Text_pa7 = Sheets("data").Range("Data_Start").Offset(TargetRow, 85).Value
Data_UF.Text_pa8 = Sheets("data").Range("Data_Start").Offset(TargetRow, 86).Value
Data_UF.Text_pa9 = Sheets("data").Range("Data_Start").Offset(TargetRow, 87).Value
Data_UF.Text_apactuelle = Sheets("data").Range("Data_Start").Offset(TargetRow, 88).Value
Data_UF.Text_ap1 = Sheets("data").Range("Data_Start").Offset(TargetRow, 89).Value
Data_UF.Text_ap2 = Sheets("data").Range("Data_Start").Offset(TargetRow, 90).Value
Data_UF.Text_ap3 = Sheets("data").Range("Data_Start").Offset(TargetRow, 91).Value
Data_UF.Text_ap4 = Sheets("data").Range("Data_Start").Offset(TargetRow, 92).Value
Data_UF.Text_ap5 = Sheets("data").Range("Data_Start").Offset(TargetRow, 93).Value
Data_UF.Text_ap6 = Sheets("data").Range("Data_Start").Offset(TargetRow, 94).Value
Data_UF.Text_ap7 = Sheets("data").Range("Data_Start").Offset(TargetRow, 95).Value
Data_UF.Text_ap8 = Sheets("data").Range("Data_Start").Offset(TargetRow, 96).Value
Data_UF.Text_ap9 = Sheets("data").Range("Data_Start").Offset(TargetRow, 97).Value
Data_UF.Text_materiel = Sheets("data").Range("Data_Start").Offset(TargetRow, 98).Value
Data_UF.Text_AP_commentaires = Sheets("data").Range("Data_Start").Offset(TargetRow, 99).Value
Data_UF.Text_nbrepas = Sheets("data").Range("Data_Start").Offset(TargetRow, 100).Value
Data_UF.Text_nbcoll = Sheets("data").Range("Data_Start").Offset(TargetRow, 101).Value
Data_UF.Text_hydra = Sheets("data").Range("Data_Start").Offset(TargetRow, 102).Value
Data_UF.Text_alcool = Sheets("data").Range("Data_Start").Offset(TargetRow, 103).Value
Data_UF.Text_cafe = Sheets("data").Range("Data_Start").Offset(TargetRow, 104).Value
Data_UF.Text_boisson_sucrees = Sheets("data").Range("Data_Start").Offset(TargetRow, 105).Value
Data_UF.Text_dej = Sheets("data").Range("Data_Start").Offset(TargetRow, 106).Value
Data_UF.TextBox_diner = Sheets("data").Range("Data_Start").Offset(TargetRow, 107).Value
Data_UF.Text_souper = Sheets("data").Range("Data_Start").Offset(TargetRow, 108).Value
Data_UF.Text_alim_comment = Sheets("data").Range("Data_Start").Offset(TargetRow, 109).Value
Data_UF.Text_alim_remplacement = Sheets("data").Range("Data_Start").Offset(TargetRow, 110).Value
Data_UF.Text_tabac = Sheets("data").Range("Data_Start").Offset(TargetRow, 111).Value
Data_UF.Text_attente1 = Sheets("data").Range("Data_Start").Offset(TargetRow, 112).Value
Data_UF.Text_attente2 = Sheets("data").Range("Data_Start").Offset(TargetRow, 113).Value
Data_UF.Text_attente3 = Sheets("data").Range("Data_Start").Offset(TargetRow, 114).Value
Data_UF.Text_attente4 = Sheets("data").Range("Data_Start").Offset(TargetRow, 115).Value
Data_UF.Text_attente5 = Sheets("data").Range("Data_Start").Offset(TargetRow, 116).Value
Data_UF.Text_obj_kin1 = Sheets("data").Range("Data_Start").Offset(TargetRow, 117).Value
Data_UF.Text_obj_kin2 = Sheets("data").Range("Data_Start").Offset(TargetRow, 118).Value
Data_UF.Text_obj_kin3 = Sheets("data").Range("Data_Start").Offset(TargetRow, 119).Value
Data_UF.Text_obj_kin4 = Sheets("data").Range("Data_Start").Offset(TargetRow, 120).Value
Data_UF.Text_conclu_ini = Sheets("data").Range("Data_Start").Offset(TargetRow, 121).Value
Data_UF.Text_date_leapa_ini = Sheets("data").Range("Data_Start").Offset(TargetRow, 122).Value
Data_UF.Combo_rapport_leapa_ini = Sheets("data").Range("Data_Start").Offset(TargetRow, 123).Value
Data_UF.Combo_app_ini = Sheets("data").Range("Data_Start").Offset(TargetRow, 124).Value
Data_UF.Combo_prot_ini = Sheets("data").Range("Data_Start").Offset(TargetRow, 125).Value
Data_UF.Text_EPE_fin_ini = Sheets("data").Range("Data_Start").Offset(TargetRow, 126).Value
Data_UF.Text_fc_repos_ini = Sheets("data").Range("Data_Start").Offset(TargetRow, 127).Value
Data_UF.Text_TA_repos_ini = Sheets("data").Range("Data_Start").Offset(TargetRow, 128).Value
Data_UF.Text_vit_tapis_max_ini = Sheets("data").Range("Data_Start").Offset(TargetRow, 129).Value
Data_UF.Text_vit_ergo_max_ini = Sheets("data").Range("Data_Start").Offset(TargetRow, 130).Value
Data_UF.Text_pente_max_ini = Sheets("data").Range("Data_Start").Offset(TargetRow, 131).Value
Data_UF.Text_charge_ergo_max_ini = Sheets("data").Range("Data_Start").Offset(TargetRow, 132).Value
Data_UF.Text_duree_test_ini = Sheets("data").Range("Data_Start").Offset(TargetRow, 133).Value
Data_UF.Text_dlr_pre_ini = Sheets("data").Range("Data_Start").Offset(TargetRow, 134).Value
Data_UF.Text_dlr_post_ini = Sheets("data").Range("Data_Start").Offset(TargetRow, 135).Value
Data_UF.Text_raison_arret_ini = Sheets("data").Range("Data_Start").Offset(TargetRow, 136).Value
Data_UF.Text_FCRmin_ini = Sheets("data").Range("Data_Start").Offset(TargetRow, 137).Value
Data_UF.Text_FCRmax_ini = Sheets("data").Range("Data_Start").Offset(TargetRow, 138).Value
Data_UF.Combo_cardio_ini = Sheets("data").Range("Data_Start").Offset(TargetRow, 139).Value
Data_UF.Combo_inf_ini = Sheets("data").Range("Data_Start").Offset(TargetRow, 140).Value
Data_UF.Text_com_cardio_ini = Sheets("data").Range("Data_Start").Offset(TargetRow, 141).Value
Data_UF.Text_evol_fc_ini = Sheets("data").Range("Data_Start").Offset(TargetRow, 142).Value
Data_UF.Text_recup_ini = Sheets("data").Range("Data_Start").Offset(TargetRow, 143).Value
Data_UF.Text_dlr_text_ini = Sheets("data").Range("Data_Start").Offset(TargetRow, 144).Value
Data_UF.Text_obs_effort_ini = Sheets("data").Range("Data_Start").Offset(TargetRow, 145).Value
Data_UF.Text_leapa_text_perso_ini = Sheets("data").Range("Data_Start").Offset(TargetRow, 146).Value
Data_UF.Text_descri_ini = Sheets("data").Range("Data_Start").Offset(TargetRow, 147).Value
Data_UF.Text_fc_1_ini = Sheets("data").Range("Data_Start").Offset(TargetRow, 148).Value
Data_UF.Text_fc_2_ini = Sheets("data").Range("Data_Start").Offset(TargetRow, 149).Value
Data_UF.Text_fc_3_ini = Sheets("data").Range("Data_Start").Offset(TargetRow, 150).Value
Data_UF.Text_fc_4_ini = Sheets("data").Range("Data_Start").Offset(TargetRow, 151).Value
Data_UF.Text_fc_5_ini = Sheets("data").Range("Data_Start").Offset(TargetRow, 152).Value
Data_UF.Text_fc_6_ini = Sheets("data").Range("Data_Start").Offset(TargetRow, 153).Value
Data_UF.Text_fc_7_ini = Sheets("data").Range("Data_Start").Offset(TargetRow, 154).Value
Data_UF.Text_fc_8_ini = Sheets("data").Range("Data_Start").Offset(TargetRow, 155).Value
Data_UF.Text_fc_9_ini = Sheets("data").Range("Data_Start").Offset(TargetRow, 156).Value
Data_UF.Text_fc_10_ini = Sheets("data").Range("Data_Start").Offset(TargetRow, 157).Value
Data_UF.Text_fc_11_ini = Sheets("data").Range("Data_Start").Offset(TargetRow, 158).Value
Data_UF.Text_fc_12_ini = Sheets("data").Range("Data_Start").Offset(TargetRow, 159).Value
Data_UF.Text_fc_13_ini = Sheets("data").Range("Data_Start").Offset(TargetRow, 160).Value
Data_UF.Text_fc_14_ini = Sheets("data").Range("Data_Start").Offset(TargetRow, 161).Value
Data_UF.Text_fc_15_ini = Sheets("data").Range("Data_Start").Offset(TargetRow, 162).Value
Data_UF.Text_fc_16_ini = Sheets("data").Range("Data_Start").Offset(TargetRow, 163).Value
Data_UF.Text_TAS1_ini = Sheets("data").Range("Data_Start").Offset(TargetRow, 168).Value
Data_UF.Text_TAS2_ini = Sheets("data").Range("Data_Start").Offset(TargetRow, 169).Value
Data_UF.Text_TAS3_ini = Sheets("data").Range("Data_Start").Offset(TargetRow, 170).Value
Data_UF.Text_TAS4_ini = Sheets("data").Range("Data_Start").Offset(TargetRow, 171).Value
Data_UF.Text_TAS5_ini = Sheets("data").Range("Data_Start").Offset(TargetRow, 172).Value
Data_UF.Text_TAS6_ini = Sheets("data").Range("Data_Start").Offset(TargetRow, 173).Value
Data_UF.Text_TAS7_ini = Sheets("data").Range("Data_Start").Offset(TargetRow, 174).Value
Data_UF.Text_TAS8_ini = Sheets("data").Range("Data_Start").Offset(TargetRow, 175).Value


Data_UF.Text_TAD1_ini = Sheets("data").Range("Data_Start").Offset(TargetRow, 178).Value
Data_UF.Text_TAD2_ini = Sheets("data").Range("Data_Start").Offset(TargetRow, 179).Value
Data_UF.Text_TAD3_ini = Sheets("data").Range("Data_Start").Offset(TargetRow, 180).Value
Data_UF.Text_TAD4_ini = Sheets("data").Range("Data_Start").Offset(TargetRow, 181).Value
Data_UF.Text_TAD5_ini = Sheets("data").Range("Data_Start").Offset(TargetRow, 182).Value
Data_UF.Text_TAD6_ini = Sheets("data").Range("Data_Start").Offset(TargetRow, 183).Value
Data_UF.Text_TAD7_ini = Sheets("data").Range("Data_Start").Offset(TargetRow, 184).Value
Data_UF.Text_TAD8_ini = Sheets("data").Range("Data_Start").Offset(TargetRow, 185).Value


Data_UF.Text_epe1_ini = Sheets("data").Range("Data_Start").Offset(TargetRow, 188).Value
Data_UF.Text_epe2_ini = Sheets("data").Range("Data_Start").Offset(TargetRow, 189).Value
Data_UF.Text_epe3_ini = Sheets("data").Range("Data_Start").Offset(TargetRow, 190).Value
Data_UF.Text_epe4_ini = Sheets("data").Range("Data_Start").Offset(TargetRow, 191).Value
Data_UF.Text_epe5_ini = Sheets("data").Range("Data_Start").Offset(TargetRow, 192).Value
Data_UF.Text_epe6_ini = Sheets("data").Range("Data_Start").Offset(TargetRow, 193).Value
Data_UF.Text_epe7_ini = Sheets("data").Range("Data_Start").Offset(TargetRow, 194).Value
Data_UF.Text_epe8_ini = Sheets("data").Range("Data_Start").Offset(TargetRow, 195).Value
Data_UF.Text_epe9_ini = Sheets("data").Range("Data_Start").Offset(TargetRow, 196).Value
Data_UF.Text_epe10_ini = Sheets("data").Range("Data_Start").Offset(TargetRow, 197).Value
Data_UF.Text_epe11_ini = Sheets("data").Range("Data_Start").Offset(TargetRow, 198).Value
Data_UF.Text_epe12_ini = Sheets("data").Range("Data_Start").Offset(TargetRow, 199).Value
Data_UF.Text_epe13_ini = Sheets("data").Range("Data_Start").Offset(TargetRow, 200).Value
Data_UF.Text_epe14_ini = Sheets("data").Range("Data_Start").Offset(TargetRow, 201).Value
Data_UF.Text_epe15_ini = Sheets("data").Range("Data_Start").Offset(TargetRow, 202).Value
Data_UF.Text_epe16_ini = Sheets("data").Range("Data_Start").Offset(TargetRow, 203).Value




Data_UF.Text_dlr1_ini = Sheets("data").Range("Data_Start").Offset(TargetRow, 208).Value
Data_UF.Text_dlr2_ini = Sheets("data").Range("Data_Start").Offset(TargetRow, 209).Value
Data_UF.Text_dlr3_ini = Sheets("data").Range("Data_Start").Offset(TargetRow, 210).Value
Data_UF.Text_dlr4_ini = Sheets("data").Range("Data_Start").Offset(TargetRow, 211).Value
Data_UF.Text_dlr5_ini = Sheets("data").Range("Data_Start").Offset(TargetRow, 212).Value
Data_UF.Text_dlr6_ini = Sheets("data").Range("Data_Start").Offset(TargetRow, 213).Value
Data_UF.Text_dlr7_ini = Sheets("data").Range("Data_Start").Offset(TargetRow, 214).Value
Data_UF.Text_dlr8_ini = Sheets("data").Range("Data_Start").Offset(TargetRow, 215).Value
Data_UF.Text_dlr9_ini = Sheets("data").Range("Data_Start").Offset(TargetRow, 216).Value
Data_UF.Text_dlr10_ini = Sheets("data").Range("Data_Start").Offset(TargetRow, 217).Value
Data_UF.Text_dlr11_ini = Sheets("data").Range("Data_Start").Offset(TargetRow, 218).Value
Data_UF.Text_dlr12_ini = Sheets("data").Range("Data_Start").Offset(TargetRow, 219).Value
Data_UF.Text_dlr13_ini = Sheets("data").Range("Data_Start").Offset(TargetRow, 220).Value
Data_UF.Text_dlr14_ini = Sheets("data").Range("Data_Start").Offset(TargetRow, 221).Value
Data_UF.Text_dlr15_ini = Sheets("data").Range("Data_Start").Offset(TargetRow, 222).Value
Data_UF.Text_dlr16_ini = Sheets("data").Range("Data_Start").Offset(TargetRow, 223).Value




Data_UF.Text_vit1_ini = Sheets("data").Range("Data_Start").Offset(TargetRow, 228).Value
Data_UF.Text_vit2_ini = Sheets("data").Range("Data_Start").Offset(TargetRow, 229).Value
Data_UF.Text_vit3_ini = Sheets("data").Range("Data_Start").Offset(TargetRow, 230).Value
Data_UF.Text_vit4_ini = Sheets("data").Range("Data_Start").Offset(TargetRow, 231).Value
Data_UF.Text_vit5_ini = Sheets("data").Range("Data_Start").Offset(TargetRow, 232).Value
Data_UF.Text_vit6_ini = Sheets("data").Range("Data_Start").Offset(TargetRow, 233).Value
Data_UF.Text_vit7_ini = Sheets("data").Range("Data_Start").Offset(TargetRow, 234).Value
Data_UF.Text_vit8_ini = Sheets("data").Range("Data_Start").Offset(TargetRow, 235).Value
Data_UF.Text_vit9_ini = Sheets("data").Range("Data_Start").Offset(TargetRow, 236).Value
Data_UF.Text_vit10_ini = Sheets("data").Range("Data_Start").Offset(TargetRow, 237).Value
Data_UF.Text_vit11_ini = Sheets("data").Range("Data_Start").Offset(TargetRow, 238).Value
Data_UF.Text_vit12_ini = Sheets("data").Range("Data_Start").Offset(TargetRow, 239).Value
Data_UF.Text_vit13_ini = Sheets("data").Range("Data_Start").Offset(TargetRow, 240).Value
Data_UF.Text_vit14_ini = Sheets("data").Range("Data_Start").Offset(TargetRow, 241).Value
Data_UF.Text_vit15_ini = Sheets("data").Range("Data_Start").Offset(TargetRow, 242).Value
Data_UF.Text_vit16_ini = Sheets("data").Range("Data_Start").Offset(TargetRow, 243).Value




Data_UF.Text_pente1_ini = Sheets("data").Range("Data_Start").Offset(TargetRow, 248).Value
Data_UF.Text_pente2_ini = Sheets("data").Range("Data_Start").Offset(TargetRow, 249).Value
Data_UF.Text_pente3_ini = Sheets("data").Range("Data_Start").Offset(TargetRow, 250).Value
Data_UF.Text_pente4_ini = Sheets("data").Range("Data_Start").Offset(TargetRow, 251).Value
Data_UF.Text_pente5_ini = Sheets("data").Range("Data_Start").Offset(TargetRow, 252).Value
Data_UF.Text_pente6_ini = Sheets("data").Range("Data_Start").Offset(TargetRow, 253).Value
Data_UF.Text_pente7_ini = Sheets("data").Range("Data_Start").Offset(TargetRow, 254).Value
Data_UF.Text_pente8_ini = Sheets("data").Range("Data_Start").Offset(TargetRow, 255).Value
Data_UF.Text_pente9_ini = Sheets("data").Range("Data_Start").Offset(TargetRow, 256).Value
Data_UF.Text_pente10_ini = Sheets("data").Range("Data_Start").Offset(TargetRow, 257).Value
Data_UF.Text_pente11_ini = Sheets("data").Range("Data_Start").Offset(TargetRow, 258).Value
Data_UF.Text_pente12_ini = Sheets("data").Range("Data_Start").Offset(TargetRow, 259).Value
Data_UF.Text_pente13_ini = Sheets("data").Range("Data_Start").Offset(TargetRow, 260).Value
Data_UF.Text_pente14_ini = Sheets("data").Range("Data_Start").Offset(TargetRow, 261).Value
Data_UF.Text_pente15_ini = Sheets("data").Range("Data_Start").Offset(TargetRow, 262).Value
Data_UF.Text_pente16_ini = Sheets("data").Range("Data_Start").Offset(TargetRow, 263).Value




Data_UF.Combo_dom_preh_ini = Sheets("data").Range("Data_Start").Offset(TargetRow, 268).Value
Data_UF.Text_MSD_1_ini = Sheets("data").Range("Data_Start").Offset(TargetRow, 269).Value
Data_UF.Text_MSD_2_ini = Sheets("data").Range("Data_Start").Offset(TargetRow, 270).Value
Data_UF.Text_MSD_3_ini = Sheets("data").Range("Data_Start").Offset(TargetRow, 271).Value
Data_UF.Text_MSG_1_ini = Sheets("data").Range("Data_Start").Offset(TargetRow, 272).Value
Data_UF.Text_MSG_2_ini = Sheets("data").Range("Data_Start").Offset(TargetRow, 273).Value
Data_UF.Text_MSG_3_ini = Sheets("data").Range("Data_Start").Offset(TargetRow, 274).Value
Data_UF.Text_preh_obs_ini = Sheets("data").Range("Data_Start").Offset(TargetRow, 275).Value
Data_UF.Text_résult_6_ini = Sheets("data").Range("Data_Start").Offset(TargetRow, 276).Value
Data_UF.Text_dlr_6_pre_ini = Sheets("data").Range("Data_Start").Offset(TargetRow, 277).Value
Data_UF.Text_dlr_6_post_ini = Sheets("data").Range("Data_Start").Offset(TargetRow, 278).Value
Data_UF.Text_obs_6_ini = Sheets("data").Range("Data_Start").Offset(TargetRow, 279).Value
Data_UF.Text_date_pod_1_ini = Sheets("data").Range("Data_Start").Offset(TargetRow, 280).Value
Data_UF.Text_date_pod_2_ini = Sheets("data").Range("Data_Start").Offset(TargetRow, 281).Value
Data_UF.Text_date_pod_3_ini = Sheets("data").Range("Data_Start").Offset(TargetRow, 282).Value
Data_UF.Text_date_pod_4_ini = Sheets("data").Range("Data_Start").Offset(TargetRow, 283).Value
Data_UF.Text_date_pod_5_ini = Sheets("data").Range("Data_Start").Offset(TargetRow, 284).Value
Data_UF.Text_date_pod_6_ini = Sheets("data").Range("Data_Start").Offset(TargetRow, 285).Value
Data_UF.Text_date_pod_7_ini = Sheets("data").Range("Data_Start").Offset(TargetRow, 286).Value
Data_UF.Text_date_pod_8_ini = Sheets("data").Range("Data_Start").Offset(TargetRow, 287).Value
Data_UF.Text_result_podo1_ini = Sheets("data").Range("Data_Start").Offset(TargetRow, 288).Value
Data_UF.Text_result_podo2_ini = Sheets("data").Range("Data_Start").Offset(TargetRow, 289).Value
Data_UF.Text_result_podo3_ini = Sheets("data").Range("Data_Start").Offset(TargetRow, 290).Value
Data_UF.Text_result_podo4_ini = Sheets("data").Range("Data_Start").Offset(TargetRow, 291).Value
Data_UF.Text_result_podo5_ini = Sheets("data").Range("Data_Start").Offset(TargetRow, 292).Value
Data_UF.Text_result_podo6_ini = Sheets("data").Range("Data_Start").Offset(TargetRow, 293).Value
Data_UF.Text_result_podo7_ini = Sheets("data").Range("Data_Start").Offset(TargetRow, 294).Value
Data_UF.Text_result_podo8_ini = Sheets("data").Range("Data_Start").Offset(TargetRow, 295).Value
Data_UF.Combo_poignet_ini = Sheets("data").Range("Data_Start").Offset(TargetRow, 296).Value
Data_UF.Text_com_podo_ini = Sheets("data").Range("Data_Start").Offset(TargetRow, 297).Value
Data_UF.Combo_CAP_ini = Sheets("data").Range("Data_Start").Offset(TargetRow, 298).Value
Data_UF.Text_marche_ini = Sheets("data").Range("Data_Start").Offset(TargetRow, 299).Value
Data_UF.Text_obs_marche_ini = Sheets("data").Range("Data_Start").Offset(TargetRow, 300).Value
Data_UF.Text_planche_ini = Sheets("data").Range("Data_Start").Offset(TargetRow, 301).Value
Data_UF.Text_planche_obs_ini = Sheets("data").Range("Data_Start").Offset(TargetRow, 302).Value
Data_UF.Text_corde_ini = Sheets("data").Range("Data_Start").Offset(TargetRow, 303).Value
Data_UF.Text_corde_obs_ini = Sheets("data").Range("Data_Start").Offset(TargetRow, 304).Value
Data_UF.Text_saut_1_ini = Sheets("data").Range("Data_Start").Offset(TargetRow, 305).Value
Data_UF.Text_saut_2_ini = Sheets("data").Range("Data_Start").Offset(TargetRow, 306).Value
Data_UF.Text_saut_obs_ini = Sheets("data").Range("Data_Start").Offset(TargetRow, 307).Value
Data_UF.Text_push_ini = Sheets("data").Range("Data_Start").Offset(TargetRow, 308).Value
Data_UF.Text_push_obs_ini = Sheets("data").Range("Data_Start").Offset(TargetRow, 309).Value
Data_UF.Text_chaise_ini = Sheets("data").Range("Data_Start").Offset(TargetRow, 310).Value
Data_UF.Text_chaise_obs_ini = Sheets("data").Range("Data_Start").Offset(TargetRow, 311).Value
Data_UF.Text_equi_d1_ini = Sheets("data").Range("Data_Start").Offset(TargetRow, 312).Value
Data_UF.Text_equi_d2_ini = Sheets("data").Range("Data_Start").Offset(TargetRow, 313).Value
Data_UF.Text_equi_d3_ini = Sheets("data").Range("Data_Start").Offset(TargetRow, 314).Value
Data_UF.Combo_45sd_ini = Sheets("data").Range("Data_Start").Offset(TargetRow, 315).Value
Data_UF.Text_equi_g1_ini = Sheets("data").Range("Data_Start").Offset(TargetRow, 316).Value
Data_UF.Text_equi_g2_ini = Sheets("data").Range("Data_Start").Offset(TargetRow, 317).Value
Data_UF.Text_equi_g3_ini = Sheets("data").Range("Data_Start").Offset(TargetRow, 318).Value
Data_UF.Combo_45sg_ini = Sheets("data").Range("Data_Start").Offset(TargetRow, 319).Value
Data_UF.Text_equi_obs_ini = Sheets("data").Range("Data_Start").Offset(TargetRow, 320).Value
Data_UF.Text_stress_pré_ini = Sheets("data").Range("Data_Start").Offset(TargetRow, 321).Value
Data_UF.Text_stress_act_ini = Sheets("data").Range("Data_Start").Offset(TargetRow, 322).Value
Data_UF.Text_energie_pre_ini = Sheets("data").Range("Data_Start").Offset(TargetRow, 323).Value
Data_UF.Text_energie_act_ini = Sheets("data").Range("Data_Start").Offset(TargetRow, 324).Value
Data_UF.Text_kinap_capacites_ini = Sheets("data").Range("Data_Start").Offset(TargetRow, 325).Value
Data_UF.Text_kinap_craintes_ini = Sheets("data").Range("Data_Start").Offset(TargetRow, 326).Value
Data_UF.Text_kinap_tsk_ini = Sheets("data").Range("Data_Start").Offset(TargetRow, 327).Value
Data_UF.Text_tsk_appr_ini = Sheets("data").Range("Data_Start").Offset(TargetRow, 328).Value
Data_UF.Text_assisdebout_ini = Sheets("data").Range("Data_Start").Offset(TargetRow, 329).Value
Data_UF.Text_assisdebout_com_ini = Sheets("data").Range("Data_Start").Offset(TargetRow, 330).Value
Data_UF.Text_sign_ini = Sheets("data").Range("Data_Start").Offset(TargetRow, 331).Value
Data_UF.Text_date_eval_fin = Sheets("data").Range("Data_Start").Offset(TargetRow, 332).Value
Data_UF.Text_taille_fin = Sheets("data").Range("Data_Start").Offset(TargetRow, 333).Value
Data_UF.Text_poids_fin = Sheets("data").Range("Data_Start").Offset(TargetRow, 334).Value
Data_UF.Text_ct_fin = Sheets("data").Range("Data_Start").Offset(TargetRow, 335).Value
Data_UF.Text_com_pds_fin = Sheets("data").Range("Data_Start").Offset(TargetRow, 336).Value
Data_UF.Text_tas_fin = Sheets("data").Range("Data_Start").Offset(TargetRow, 337).Value
Data_UF.Text_tad_fin = Sheets("data").Range("Data_Start").Offset(TargetRow, 338).Value
Data_UF.Text_fc_fin = Sheets("data").Range("Data_Start").Offset(TargetRow, 339).Value
Data_UF.Text_gly_fin = Sheets("data").Range("Data_Start").Offset(TargetRow, 340).Value
Data_UF.Text_mg_fin = Sheets("data").Range("Data_Start").Offset(TargetRow, 341).Value
Data_UF.Text_mm_fin = Sheets("data").Range("Data_Start").Offset(TargetRow, 342).Value
Data_UF.Text_mh_fin = Sheets("data").Range("Data_Start").Offset(TargetRow, 343).Value
Data_UF.Text_pg_fin = Sheets("data").Range("Data_Start").Offset(TargetRow, 344).Value
Data_UF.Text_fr_age_fin = Sheets("data").Range("Data_Start").Offset(TargetRow, 345).Value
Data_UF.Text_fr_obesite_fin = Sheets("data").Range("Data_Start").Offset(TargetRow, 346).Value
Data_UF.Combo_fr1_fin = Sheets("data").Range("Data_Start").Offset(TargetRow, 347).Value
Data_UF.Combo_fr2_fin = Sheets("data").Range("Data_Start").Offset(TargetRow, 348).Value
Data_UF.Combo_fr3_fin = Sheets("data").Range("Data_Start").Offset(TargetRow, 349).Value
Data_UF.Combo_fr4_fin = Sheets("data").Range("Data_Start").Offset(TargetRow, 350).Value
Data_UF.Combo_fr5_fin = Sheets("data").Range("Data_Start").Offset(TargetRow, 351).Value
Data_UF.Combo_fr6_fin = Sheets("data").Range("Data_Start").Offset(TargetRow, 352).Value
Data_UF.Combo_fr7_fin = Sheets("data").Range("Data_Start").Offset(TargetRow, 353).Value
Data_UF.Combo_malconnu1_fin = Sheets("data").Range("Data_Start").Offset(TargetRow, 354).Value
Data_UF.Combo_malconnu2_fin = Sheets("data").Range("Data_Start").Offset(TargetRow, 355).Value
Data_UF.Text_passe_sportif_fin = Sheets("data").Range("Data_Start").Offset(TargetRow, 356).Value
Data_UF.Text_ps1_fin = Sheets("data").Range("Data_Start").Offset(TargetRow, 357).Value
Data_UF.Text_ps2_fin = Sheets("data").Range("Data_Start").Offset(TargetRow, 358).Value
Data_UF.Text_ps3_fin = Sheets("data").Range("Data_Start").Offset(TargetRow, 359).Value
Data_UF.Text_ps4_fin = Sheets("data").Range("Data_Start").Offset(TargetRow, 360).Value
Data_UF.Text_ps5_fin = Sheets("data").Range("Data_Start").Offset(TargetRow, 361).Value
Data_UF.Text_ps6_fin = Sheets("data").Range("Data_Start").Offset(TargetRow, 362).Value
Data_UF.Text_ps7_fin = Sheets("data").Range("Data_Start").Offset(TargetRow, 363).Value
Data_UF.Text_ps8_fin = Sheets("data").Range("Data_Start").Offset(TargetRow, 364).Value
Data_UF.Text_ps9_fin = Sheets("data").Range("Data_Start").Offset(TargetRow, 365).Value
Data_UF.Text_passe_actif_fin = Sheets("data").Range("Data_Start").Offset(TargetRow, 366).Value
Data_UF.Text_pa1_fin = Sheets("data").Range("Data_Start").Offset(TargetRow, 367).Value
Data_UF.Text_pa2_fin = Sheets("data").Range("Data_Start").Offset(TargetRow, 368).Value
Data_UF.Text_pa3_fin = Sheets("data").Range("Data_Start").Offset(TargetRow, 369).Value
Data_UF.Text_pa4_fin = Sheets("data").Range("Data_Start").Offset(TargetRow, 370).Value
Data_UF.Text_pa5_fin = Sheets("data").Range("Data_Start").Offset(TargetRow, 371).Value
Data_UF.Text_pa6_fin = Sheets("data").Range("Data_Start").Offset(TargetRow, 372).Value
Data_UF.Text_pa7_fin = Sheets("data").Range("Data_Start").Offset(TargetRow, 373).Value
Data_UF.Text_pa8_fin = Sheets("data").Range("Data_Start").Offset(TargetRow, 374).Value
Data_UF.Text_pa9_fin = Sheets("data").Range("Data_Start").Offset(TargetRow, 375).Value
Data_UF.Text_apactuelle_fni = Sheets("data").Range("Data_Start").Offset(TargetRow, 376).Value
Data_UF.Text_ap1_fin = Sheets("data").Range("Data_Start").Offset(TargetRow, 377).Value
Data_UF.Text_ap2_fin = Sheets("data").Range("Data_Start").Offset(TargetRow, 378).Value
Data_UF.Text_ap3_fin = Sheets("data").Range("Data_Start").Offset(TargetRow, 379).Value
Data_UF.Text_ap4_fin = Sheets("data").Range("Data_Start").Offset(TargetRow, 380).Value
Data_UF.Text_ap5_fin = Sheets("data").Range("Data_Start").Offset(TargetRow, 381).Value
Data_UF.Text_ap6_fin = Sheets("data").Range("Data_Start").Offset(TargetRow, 382).Value
Data_UF.Text_ap7_fin = Sheets("data").Range("Data_Start").Offset(TargetRow, 383).Value
Data_UF.Text_ap8_fin = Sheets("data").Range("Data_Start").Offset(TargetRow, 384).Value
Data_UF.Text_ap9_fin = Sheets("data").Range("Data_Start").Offset(TargetRow, 385).Value
Data_UF.Text_materiel_fin = Sheets("data").Range("Data_Start").Offset(TargetRow, 386).Value
Data_UF.Text_AP_commentaires_fin = Sheets("data").Range("Data_Start").Offset(TargetRow, 387).Value
Data_UF.Text_nbrepas_fin = Sheets("data").Range("Data_Start").Offset(TargetRow, 388).Value
Data_UF.Text_nbcoll_fin = Sheets("data").Range("Data_Start").Offset(TargetRow, 389).Value
Data_UF.Text_hydra_fin = Sheets("data").Range("Data_Start").Offset(TargetRow, 390).Value
Data_UF.Text_alcool_fin = Sheets("data").Range("Data_Start").Offset(TargetRow, 391).Value
Data_UF.Text_cafe_fin = Sheets("data").Range("Data_Start").Offset(TargetRow, 392).Value
Data_UF.Text_boisson_sucrees_fin = Sheets("data").Range("Data_Start").Offset(TargetRow, 393).Value
Data_UF.Text_dej_fin = Sheets("data").Range("Data_Start").Offset(TargetRow, 394).Value
Data_UF.TextBox_diner_fin = Sheets("data").Range("Data_Start").Offset(TargetRow, 395).Value
Data_UF.Text_souper_fin = Sheets("data").Range("Data_Start").Offset(TargetRow, 396).Value
Data_UF.Text_alim_comment_fin = Sheets("data").Range("Data_Start").Offset(TargetRow, 397).Value
Data_UF.Text_alim_remplacement_fin = Sheets("data").Range("Data_Start").Offset(TargetRow, 398).Value
Data_UF.Text_tabac_fin = Sheets("data").Range("Data_Start").Offset(TargetRow, 399).Value
Data_UF.Text_stress_pré_fin = Sheets("data").Range("Data_Start").Offset(TargetRow, 400).Value
Data_UF.Text_stress_act_fin = Sheets("data").Range("Data_Start").Offset(TargetRow, 401).Value
Data_UF.Text_energie_pre_fin = Sheets("data").Range("Data_Start").Offset(TargetRow, 402).Value
Data_UF.Text_energie_act_fin = Sheets("data").Range("Data_Start").Offset(TargetRow, 403).Value
Data_UF.Text_date_leapa_fin = Sheets("data").Range("Data_Start").Offset(TargetRow, 404).Value
Data_UF.Combo_cardio_fin = Sheets("data").Range("Data_Start").Offset(TargetRow, 405).Value
Data_UF.Combo_inf_fin = Sheets("data").Range("Data_Start").Offset(TargetRow, 406).Value
Data_UF.Combo_app_fin = Sheets("data").Range("Data_Start").Offset(TargetRow, 407).Value
Data_UF.Combo_prot_fin = Sheets("data").Range("Data_Start").Offset(TargetRow, 408).Value
Data_UF.Text_duree_test_fin = Sheets("data").Range("Data_Start").Offset(TargetRow, 409).Value
Data_UF.Text_descri_fin = Sheets("data").Range("Data_Start").Offset(TargetRow, 410).Value
Data_UF.Text_fc_repos_fin = Sheets("data").Range("Data_Start").Offset(TargetRow, 411).Value
Data_UF.Text_TA_repos_fin = Sheets("data").Range("Data_Start").Offset(TargetRow, 412).Value
Data_UF.Text_EPE_fin_fin = Sheets("data").Range("Data_Start").Offset(TargetRow, 413).Value
Data_UF.Text_vit_tapis_max_fin = Sheets("data").Range("Data_Start").Offset(TargetRow, 414).Value
Data_UF.Text_pente_max_fin = Sheets("data").Range("Data_Start").Offset(TargetRow, 415).Value
Data_UF.Text_vit_ergo_max_fin = Sheets("data").Range("Data_Start").Offset(TargetRow, 416).Value
Data_UF.Text_charge_ergo_max_fin = Sheets("data").Range("Data_Start").Offset(TargetRow, 417).Value
Data_UF.Text_dlr_pre_fin = Sheets("data").Range("Data_Start").Offset(TargetRow, 418).Value
Data_UF.Text_dlr_post_fin = Sheets("data").Range("Data_Start").Offset(TargetRow, 419).Value
Data_UF.Text_FCRmin_fin = Sheets("data").Range("Data_Start").Offset(TargetRow, 420).Value
Data_UF.Text_FCRmax_fin = Sheets("data").Range("Data_Start").Offset(TargetRow, 421).Value
Data_UF.Combo_rapport_leapa_fin = Sheets("data").Range("Data_Start").Offset(TargetRow, 422).Value
Data_UF.Text_fc_1_fin = Sheets("data").Range("Data_Start").Offset(TargetRow, 423).Value
Data_UF.Text_fc_2_fin = Sheets("data").Range("Data_Start").Offset(TargetRow, 424).Value
Data_UF.Text_fc_3_fin = Sheets("data").Range("Data_Start").Offset(TargetRow, 425).Value
Data_UF.Text_fc_4_fin = Sheets("data").Range("Data_Start").Offset(TargetRow, 426).Value
Data_UF.Text_fc_5_fin = Sheets("data").Range("Data_Start").Offset(TargetRow, 427).Value
Data_UF.Text_fc_6_fin = Sheets("data").Range("Data_Start").Offset(TargetRow, 428).Value
Data_UF.Text_fc_7_fin = Sheets("data").Range("Data_Start").Offset(TargetRow, 429).Value
Data_UF.Text_fc_8_fin = Sheets("data").Range("Data_Start").Offset(TargetRow, 430).Value
Data_UF.Text_fc_9_fin = Sheets("data").Range("Data_Start").Offset(TargetRow, 431).Value
Data_UF.Text_fc_10_fin = Sheets("data").Range("Data_Start").Offset(TargetRow, 432).Value
Data_UF.Text_fc_11_fin = Sheets("data").Range("Data_Start").Offset(TargetRow, 433).Value
Data_UF.Text_fc_12_fin = Sheets("data").Range("Data_Start").Offset(TargetRow, 434).Value
Data_UF.Text_fc_13_fin = Sheets("data").Range("Data_Start").Offset(TargetRow, 435).Value
Data_UF.Text_fc_14_fin = Sheets("data").Range("Data_Start").Offset(TargetRow, 436).Value
Data_UF.Text_fc_15_fin = Sheets("data").Range("Data_Start").Offset(TargetRow, 437).Value
Data_UF.Text_fc_16_fin = Sheets("data").Range("Data_Start").Offset(TargetRow, 438).Value




Data_UF.Text_TAS1_fin = Sheets("data").Range("Data_Start").Offset(TargetRow, 443).Value
Data_UF.Text_TAS2_fin = Sheets("data").Range("Data_Start").Offset(TargetRow, 444).Value
Data_UF.Text_TAS3_fin = Sheets("data").Range("Data_Start").Offset(TargetRow, 445).Value
Data_UF.Text_TAS4_fin = Sheets("data").Range("Data_Start").Offset(TargetRow, 446).Value
Data_UF.Text_TAS5_fin = Sheets("data").Range("Data_Start").Offset(TargetRow, 447).Value
Data_UF.Text_TAS6_fin = Sheets("data").Range("Data_Start").Offset(TargetRow, 448).Value
Data_UF.Text_TAS7_fin = Sheets("data").Range("Data_Start").Offset(TargetRow, 449).Value
Data_UF.Text_TAS8_fin = Sheets("data").Range("Data_Start").Offset(TargetRow, 450).Value


Data_UF.Text_TAD1_fin = Sheets("data").Range("Data_Start").Offset(TargetRow, 453).Value
Data_UF.Text_TAD2_fin = Sheets("data").Range("Data_Start").Offset(TargetRow, 454).Value
Data_UF.Text_TAD3_fin = Sheets("data").Range("Data_Start").Offset(TargetRow, 455).Value
Data_UF.Text_TAD4_fin = Sheets("data").Range("Data_Start").Offset(TargetRow, 456).Value
Data_UF.Text_TAD5_fin = Sheets("data").Range("Data_Start").Offset(TargetRow, 457).Value
Data_UF.Text_TAD6_fin = Sheets("data").Range("Data_Start").Offset(TargetRow, 458).Value
Data_UF.Text_TAD7_fin = Sheets("data").Range("Data_Start").Offset(TargetRow, 459).Value
Data_UF.Text_TAD8_fin = Sheets("data").Range("Data_Start").Offset(TargetRow, 460).Value


Data_UF.Text_epe1_fin = Sheets("data").Range("Data_Start").Offset(TargetRow, 463).Value
Data_UF.Text_epe2_fin = Sheets("data").Range("Data_Start").Offset(TargetRow, 464).Value
Data_UF.Text_epe3_fin = Sheets("data").Range("Data_Start").Offset(TargetRow, 465).Value
Data_UF.Text_epe4_fin = Sheets("data").Range("Data_Start").Offset(TargetRow, 466).Value
Data_UF.Text_epe5_fin = Sheets("data").Range("Data_Start").Offset(TargetRow, 467).Value
Data_UF.Text_epe6_fin = Sheets("data").Range("Data_Start").Offset(TargetRow, 468).Value
Data_UF.Text_epe7_fin = Sheets("data").Range("Data_Start").Offset(TargetRow, 469).Value
Data_UF.Text_epe8_fin = Sheets("data").Range("Data_Start").Offset(TargetRow, 470).Value
Data_UF.Text_epe9_fin = Sheets("data").Range("Data_Start").Offset(TargetRow, 471).Value
Data_UF.Text_epe10_fin = Sheets("data").Range("Data_Start").Offset(TargetRow, 472).Value
Data_UF.Text_epe11_fin = Sheets("data").Range("Data_Start").Offset(TargetRow, 473).Value
Data_UF.Text_epe12_fin = Sheets("data").Range("Data_Start").Offset(TargetRow, 474).Value
Data_UF.Text_epe13_fin = Sheets("data").Range("Data_Start").Offset(TargetRow, 475).Value
Data_UF.Text_epe14_fin = Sheets("data").Range("Data_Start").Offset(TargetRow, 476).Value
Data_UF.Text_epe15_fin = Sheets("data").Range("Data_Start").Offset(TargetRow, 477).Value
Data_UF.Text_epe16_fin = Sheets("data").Range("Data_Start").Offset(TargetRow, 478).Value




Data_UF.Text_dlr1_fin = Sheets("data").Range("Data_Start").Offset(TargetRow, 483).Value
Data_UF.Text_dlr2_fin = Sheets("data").Range("Data_Start").Offset(TargetRow, 484).Value
Data_UF.Text_dlr3_fin = Sheets("data").Range("Data_Start").Offset(TargetRow, 485).Value
Data_UF.Text_dlr4_fin = Sheets("data").Range("Data_Start").Offset(TargetRow, 486).Value
Data_UF.Text_dlr5_fin = Sheets("data").Range("Data_Start").Offset(TargetRow, 487).Value
Data_UF.Text_dlr6_fin = Sheets("data").Range("Data_Start").Offset(TargetRow, 488).Value
Data_UF.Text_dlr7_fin = Sheets("data").Range("Data_Start").Offset(TargetRow, 489).Value
Data_UF.Text_dlr8_fin = Sheets("data").Range("Data_Start").Offset(TargetRow, 490).Value
Data_UF.Text_dlr9_fin = Sheets("data").Range("Data_Start").Offset(TargetRow, 491).Value
Data_UF.Text_dlr10_fin = Sheets("data").Range("Data_Start").Offset(TargetRow, 492).Value
Data_UF.Text_dlr11_fin = Sheets("data").Range("Data_Start").Offset(TargetRow, 493).Value
Data_UF.Text_dlr12_fin = Sheets("data").Range("Data_Start").Offset(TargetRow, 494).Value
Data_UF.Text_dlr13_fin = Sheets("data").Range("Data_Start").Offset(TargetRow, 495).Value
Data_UF.Text_dlr14_fin = Sheets("data").Range("Data_Start").Offset(TargetRow, 496).Value
Data_UF.Text_dlr15_fin = Sheets("data").Range("Data_Start").Offset(TargetRow, 497).Value
Data_UF.Text_dlr16_fin = Sheets("data").Range("Data_Start").Offset(TargetRow, 498).Value




Data_UF.Text_vit1_fin = Sheets("data").Range("Data_Start").Offset(TargetRow, 503).Value
Data_UF.Text_vit2_fin = Sheets("data").Range("Data_Start").Offset(TargetRow, 504).Value
Data_UF.Text_vit3_fin = Sheets("data").Range("Data_Start").Offset(TargetRow, 505).Value
Data_UF.Text_vit4_fin = Sheets("data").Range("Data_Start").Offset(TargetRow, 506).Value
Data_UF.Text_vit5_fin = Sheets("data").Range("Data_Start").Offset(TargetRow, 507).Value
Data_UF.Text_vit6_fin = Sheets("data").Range("Data_Start").Offset(TargetRow, 508).Value
Data_UF.Text_vit7_fin = Sheets("data").Range("Data_Start").Offset(TargetRow, 509).Value
Data_UF.Text_vit8_fin = Sheets("data").Range("Data_Start").Offset(TargetRow, 510).Value
Data_UF.Text_vit9_fin = Sheets("data").Range("Data_Start").Offset(TargetRow, 511).Value
Data_UF.Text_vit10_fin = Sheets("data").Range("Data_Start").Offset(TargetRow, 512).Value
Data_UF.Text_vit11_fin = Sheets("data").Range("Data_Start").Offset(TargetRow, 513).Value
Data_UF.Text_vit12_fin = Sheets("data").Range("Data_Start").Offset(TargetRow, 514).Value
Data_UF.Text_vit13_fin = Sheets("data").Range("Data_Start").Offset(TargetRow, 515).Value
Data_UF.Text_vit14_fin = Sheets("data").Range("Data_Start").Offset(TargetRow, 516).Value
Data_UF.Text_vit15_fin = Sheets("data").Range("Data_Start").Offset(TargetRow, 517).Value
Data_UF.Text_vit16_fin = Sheets("data").Range("Data_Start").Offset(TargetRow, 518).Value




Data_UF.Text_pente1_fin = Sheets("data").Range("Data_Start").Offset(TargetRow, 523).Value
Data_UF.Text_pente2_fin = Sheets("data").Range("Data_Start").Offset(TargetRow, 524).Value
Data_UF.Text_pente3_fin = Sheets("data").Range("Data_Start").Offset(TargetRow, 525).Value
Data_UF.Text_pente4_fin = Sheets("data").Range("Data_Start").Offset(TargetRow, 526).Value
Data_UF.Text_pente5_fin = Sheets("data").Range("Data_Start").Offset(TargetRow, 527).Value
Data_UF.Text_pente6_fin = Sheets("data").Range("Data_Start").Offset(TargetRow, 528).Value
Data_UF.Text_pente7_fin = Sheets("data").Range("Data_Start").Offset(TargetRow, 529).Value
Data_UF.Text_pente8_fin = Sheets("data").Range("Data_Start").Offset(TargetRow, 530).Value
Data_UF.Text_pente9_fin = Sheets("data").Range("Data_Start").Offset(TargetRow, 531).Value
Data_UF.Text_pente10_fin = Sheets("data").Range("Data_Start").Offset(TargetRow, 532).Value
Data_UF.Text_pente11_fin = Sheets("data").Range("Data_Start").Offset(TargetRow, 533).Value
Data_UF.Text_pente12_fin = Sheets("data").Range("Data_Start").Offset(TargetRow, 534).Value
Data_UF.Text_pente13_fin = Sheets("data").Range("Data_Start").Offset(TargetRow, 535).Value
Data_UF.Text_pente14_fin = Sheets("data").Range("Data_Start").Offset(TargetRow, 536).Value
Data_UF.Text_pente15_fin = Sheets("data").Range("Data_Start").Offset(TargetRow, 537).Value
Data_UF.Text_pente16_fin = Sheets("data").Range("Data_Start").Offset(TargetRow, 538).Value




Data_UF.Text_raison_arret_fin = Sheets("data").Range("Data_Start").Offset(TargetRow, 543).Value
Data_UF.Text_com_cardio_fin = Sheets("data").Range("Data_Start").Offset(TargetRow, 544).Value
Data_UF.Text_evol_fc_fin = Sheets("data").Range("Data_Start").Offset(TargetRow, 545).Value
Data_UF.Text_recup_fin = Sheets("data").Range("Data_Start").Offset(TargetRow, 546).Value
Data_UF.Text_dlr_text_fin = Sheets("data").Range("Data_Start").Offset(TargetRow, 547).Value
Data_UF.Text_obs_effort_fin = Sheets("data").Range("Data_Start").Offset(TargetRow, 548).Value
Data_UF.Text_leapa_text_perso_fin = Sheets("data").Range("Data_Start").Offset(TargetRow, 549).Value
Data_UF.Combo_CAP_fin = Sheets("data").Range("Data_Start").Offset(TargetRow, 550).Value
Data_UF.Text_marche_fin = Sheets("data").Range("Data_Start").Offset(TargetRow, 551).Value
Data_UF.Text_obs_marche_fin = Sheets("data").Range("Data_Start").Offset(TargetRow, 552).Value
Data_UF.Text_planche_fin = Sheets("data").Range("Data_Start").Offset(TargetRow, 553).Value
Data_UF.Text_planche_obs_fin = Sheets("data").Range("Data_Start").Offset(TargetRow, 554).Value
Data_UF.Text_corde_fin = Sheets("data").Range("Data_Start").Offset(TargetRow, 555).Value
Data_UF.Text_corde_obs_fin = Sheets("data").Range("Data_Start").Offset(TargetRow, 556).Value
Data_UF.Text_saut_1_fin = Sheets("data").Range("Data_Start").Offset(TargetRow, 557).Value
Data_UF.Text_saut_2_fin = Sheets("data").Range("Data_Start").Offset(TargetRow, 558).Value
Data_UF.Text_saut_obs_fin = Sheets("data").Range("Data_Start").Offset(TargetRow, 559).Value
Data_UF.Text_push_fin = Sheets("data").Range("Data_Start").Offset(TargetRow, 560).Value
Data_UF.Text_push_obs_fin = Sheets("data").Range("Data_Start").Offset(TargetRow, 561).Value
Data_UF.Text_chaise_fin = Sheets("data").Range("Data_Start").Offset(TargetRow, 562).Value
Data_UF.Text_chaise_obs_fin = Sheets("data").Range("Data_Start").Offset(TargetRow, 563).Value
Data_UF.Text_kinap_capacites_fin = Sheets("data").Range("Data_Start").Offset(TargetRow, 564).Value
Data_UF.Text_kinap_craintes_fin = Sheets("data").Range("Data_Start").Offset(TargetRow, 565).Value
Data_UF.Text_kinap_tsk_fin = Sheets("data").Range("Data_Start").Offset(TargetRow, 566).Value
Data_UF.Text_tsk_appr_fin = Sheets("data").Range("Data_Start").Offset(TargetRow, 567).Value
Data_UF.Combo_poignet_fin = Sheets("data").Range("Data_Start").Offset(TargetRow, 568).Value
Data_UF.Text_date_pod_1_fin = Sheets("data").Range("Data_Start").Offset(TargetRow, 569).Value
Data_UF.Text_date_pod_2_fin = Sheets("data").Range("Data_Start").Offset(TargetRow, 570).Value
Data_UF.Text_date_pod_3_fin = Sheets("data").Range("Data_Start").Offset(TargetRow, 571).Value
Data_UF.Text_date_pod_4_fin = Sheets("data").Range("Data_Start").Offset(TargetRow, 572).Value
Data_UF.Text_date_pod_5_fin = Sheets("data").Range("Data_Start").Offset(TargetRow, 573).Value
Data_UF.Text_date_pod_6_fin = Sheets("data").Range("Data_Start").Offset(TargetRow, 574).Value
Data_UF.Text_date_pod_7_fin = Sheets("data").Range("Data_Start").Offset(TargetRow, 575).Value
Data_UF.Text_date_pod_8_fin = Sheets("data").Range("Data_Start").Offset(TargetRow, 576).Value
Data_UF.Text_result_podo1_fin = Sheets("data").Range("Data_Start").Offset(TargetRow, 577).Value
Data_UF.Text_result_podo2_fin = Sheets("data").Range("Data_Start").Offset(TargetRow, 578).Value
Data_UF.Text_result_podo3_fin = Sheets("data").Range("Data_Start").Offset(TargetRow, 579).Value
Data_UF.Text_result_podo4_fin = Sheets("data").Range("Data_Start").Offset(TargetRow, 580).Value
Data_UF.Text_result_podo5_fin = Sheets("data").Range("Data_Start").Offset(TargetRow, 581).Value
Data_UF.Text_result_podo6_fin = Sheets("data").Range("Data_Start").Offset(TargetRow, 582).Value
Data_UF.Text_result_podo7_fin = Sheets("data").Range("Data_Start").Offset(TargetRow, 583).Value
Data_UF.Text_result_podo8_fin = Sheets("data").Range("Data_Start").Offset(TargetRow, 584).Value
Data_UF.Text_com_podo_fin = Sheets("data").Range("Data_Start").Offset(TargetRow, 585).Value
Data_UF.Combo_dom_preh_fin = Sheets("data").Range("Data_Start").Offset(TargetRow, 586).Value
Data_UF.Text_MSG_1_fin = Sheets("data").Range("Data_Start").Offset(TargetRow, 587).Value
Data_UF.Text_MSG_2_fin = Sheets("data").Range("Data_Start").Offset(TargetRow, 588).Value
Data_UF.Text_MSG_3_fin = Sheets("data").Range("Data_Start").Offset(TargetRow, 589).Value
Data_UF.Text_MSD_1_fin = Sheets("data").Range("Data_Start").Offset(TargetRow, 590).Value
Data_UF.Text_MSD_2_fin = Sheets("data").Range("Data_Start").Offset(TargetRow, 591).Value
Data_UF.Text_MSD_3_fin = Sheets("data").Range("Data_Start").Offset(TargetRow, 592).Value
Data_UF.Text_preh_obs_fin = Sheets("data").Range("Data_Start").Offset(TargetRow, 593).Value
Data_UF.Text_equi_g1_fin = Sheets("data").Range("Data_Start").Offset(TargetRow, 594).Value
Data_UF.Text_equi_g2_fin = Sheets("data").Range("Data_Start").Offset(TargetRow, 595).Value
Data_UF.Text_equi_g3_fin = Sheets("data").Range("Data_Start").Offset(TargetRow, 596).Value
Data_UF.Combo_45sg_fin = Sheets("data").Range("Data_Start").Offset(TargetRow, 597).Value
Data_UF.Text_equi_d1_fin = Sheets("data").Range("Data_Start").Offset(TargetRow, 598).Value
Data_UF.Text_equi_d2_fin = Sheets("data").Range("Data_Start").Offset(TargetRow, 599).Value
Data_UF.Text_equi_d3_fin = Sheets("data").Range("Data_Start").Offset(TargetRow, 600).Value
Data_UF.Combo_45sd_fin = Sheets("data").Range("Data_Start").Offset(TargetRow, 601).Value
Data_UF.Text_equi_obs_fin = Sheets("data").Range("Data_Start").Offset(TargetRow, 602).Value
Data_UF.Text_dlr_6_pre_fin = Sheets("data").Range("Data_Start").Offset(TargetRow, 603).Value
Data_UF.Text_dlr_6_post_fin = Sheets("data").Range("Data_Start").Offset(TargetRow, 604).Value
Data_UF.Text_résult_6_fin = Sheets("data").Range("Data_Start").Offset(TargetRow, 605).Value
Data_UF.Text_obs_6_fin = Sheets("data").Range("Data_Start").Offset(TargetRow, 606).Value
Data_UF.Text_assisdebout_fin = Sheets("data").Range("Data_Start").Offset(TargetRow, 607).Value
Data_UF.Text_assisdebout_com_fin = Sheets("data").Range("Data_Start").Offset(TargetRow, 608).Value
Data_UF.Text_conclu_fin = Sheets("data").Range("Data_Start").Offset(TargetRow, 609).Value
Data_UF.Text_sign_fin = Sheets("data").Range("Data_Start").Offset(TargetRow, 610).Value








'''End retrieving data from database'''

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

End Sub
]

Источник

0 0 голоса
Рейтинг статьи
Подписаться
Уведомить о
guest

0 комментариев
Старые
Новые Популярные
Межтекстовые Отзывы
Посмотреть все комментарии

А вот еще интересные материалы:

  • Яшка сломя голову остановился исправьте ошибки
  • Ясность цели позволяет целеустремленно добиваться намеченного исправьте ошибки
  • Ясность цели позволяет целеустремленно добиваться намеченного где ошибка
  • Procedure tform1 button1click sender tobject ошибка
  • Probe open ошибка фанук

    • ➤