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
| Private Sub CommandButton4_Click()
num = Sheets("données").Range("H65536").End(xlUp).Row + 1
Sheets("données").Activate
Range("H" & num).Value = Frame1
Range("I" & num).Value = Frame2
Range("J" & num).Value = Frame3
Range("K" & num).Value = Frame4
Range("L" & num).Value = Frame5
Range("M" & num).Value = Frame6
Range("N" & num).Value = Frame7
Range("O" & num).Value = Frame8
Range("P" & num).Value = Frame9
Range("Q" & num).Value = Frame10
Range("R" & num).Value = Frame11
Range("S" & num).Value = Frame12
Range("T" & num).Value = Frame13
Range("U" & num).Value = Frame14
Range("V" & num).Value = Frame15
Range("W" & num).Value = Frame16
Range("X" & num).Value = Frame17
Range("Y" & num).Value = Frame18
Range("Z" & num).Value = Frame19
Range("AB" & num).Value = Frame20
Range("AC" & num).Value = Frame22
Range("AD" & num).Value = Frame23
Range("AE" & num).Value = Frame26
Range("AF" & num).Value = Frame25
Range("AG" & num).Value = Frame27
Range("AH" & num).Value = Frame28
Range("AI" & num).Value = Frame29
Range("Aj" & num).Value = Frame30
Range("AL" & num).Value = Frame31
Range("AM" & num).Value = Frame32
Range("AN" & num).Value = Frame33
Range("AO" & num).Value = Frame34
Range("AP" & num).Value = Frame35
Range("AQ" & num).Value = Frame36
Range("AR" & num).Value = Frame37
Range("AS" & num).Value = Frame38
Unload UserForm2
End Sub |
Partager