Private Sub CommandButton7_Click()
If Range("A2") = "" Then
CB2 = "A2"
End If
'A
If Range("A2") <> "" Then
CB2 = "A4"
End If
If Range("A4") <> "" Then
CB2 = "A6"
End If
If Range("A6") <> "" Then
CB2 = "A8"
End If
If Range("A8") <> "" Then
CB2 = "A10"
End If
If Range("A10") <> "" Then
CB2 = "A12"
End If
If Range("A12") <> "" Then
CB2 = "A14"
End If
If Range("A14") <> "" Then
CB2 = "A16"
End If
If Range("A16") <> "" Then
CB2 = "A18"
End If
If Range("A18") <> "" Then
CB2 = "A20"
End If
If Range("A20") <> "" Then
CB2 = "A22"
End If
If Range("A22") <> "" Then
CB2 = "A24"
End If
If Range("A24") <> "" Then
CB2 = "A26"
End If
If Range("A26") <> "" Then
CB2 = "A28"
End If
If Range("A28") <> "" Then
CB2 = "A30"
End If
If Range("A30") <> "" Then
CB2 = "A32"
End If
If Range("A32") <> "" Then
CB2 = "A34"
End If
If Range("A34") <> "" Then
CB2 = "A36"
End If
If Range("A36") <> "" Then
CB2 = "A38"
End If
If Range("A38") <> "" Then
CB2 = "D2"
End If
'D
If Range("D2") <> "" Then
CB2 = "D4"
End If
If Range("D4") <> "" Then
CB2 = "D6"
End If
If Range("D6") <> "" Then
CB2 = "D8"
End If
If Range("D8") <> "" Then
CB2 = "D10"
End If
If Range("D10") <> "" Then
CB2 = "D12"
End If
If Range("D12") <> "" Then
CB2 = "D14"
End If
If Range("D14") <> "" Then
CB2 = "D16"
End If
If Range("D16") <> "" Then
CB2 = "D18"
End If
If Range("D18") <> "" Then
CB2 = "D20"
End If
If Range("D20") <> "" Then
CB2 = "D22"
End If
If Range("D22") <> "" Then
CB2 = "D24"
End If
If Range("D24") <> "" Then
CB2 = "D26"
End If
If Range("D26") <> "" Then
CB2 = "D28"
End If
If Range("D28") <> "" Then
CB2 = "D30"
End If
If Range("D30") <> "" Then
CB2 = "D32"
End If
If Range("D32") <> "" Then
CB2 = "D34"
End If
If Range("D34") <> "" Then
CB2 = "D36"
End If
If Range("D36") <> "" Then
CB2 = "D38"
End If
If Range("D38") <> "" Then
CB2 = "G2"
End If
'G
If Range("G2") <> "" Then
CB2 = "G4"
End If
If Range("G4") <> "" Then
CB2 = "G6"
End If
If Range("G6") <> "" Then
CB2 = "G8"
End If
If Range("G8") <> "" Then
CB2 = "G10"
End If
If Range("G10") <> "" Then
CB2 = "G12"
End If
If Range("G12") <> "" Then
CB2 = "G14"
End If
If Range("G14") <> "" Then
CB2 = "G16"
End If
If Range("G16") <> "" Then
CB2 = "G18"
End If
If Range("G18") <> "" Then
CB2 = "G20"
End If
If Range("G20") <> "" Then
CB2 = "G22"
End If
If Range("G22") <> "" Then
CB2 = "G24"
End If
If Range("G24") <> "" Then
CB2 = "G26"
End If
If Range("G26") <> "" Then
CB2 = "G28"
End If
If Range("G28") <> "" Then
CB2 = "G30"
End If
If Range("G30") <> "" Then
CB2 = "G32"
End If
If Range("G32") <> "" Then
CB2 = "G34"
End If
If Range("G34") <> "" Then
CB2 = "G36"
End If
If Range("G36") <> "" Then
CB2 = "G38"
End If
If Range("G38") <> "" Then
CB2 = "J2"
End If
'J
If Range("J2") <> "" Then
CB2 = "J4"
End If
If Range("J4") <> "" Then
CB2 = "J6"
End If
If Range("J6") <> "" Then
CB2 = "J8"
End If
If Range("J8") <> "" Then
CB2 = "J10"
End If
If Range("J10") <> "" Then
CB2 = "J12"
End If
If Range("J12") <> "" Then
CB2 = "J14"
End If
If Range("J14") <> "" Then
CB2 = "J16"
End If
If Range("J16") <> "" Then
CB2 = "J18"
End If
If Range("J18") <> "" Then
CB2 = "J20"
End If
If Range("J20") <> "" Then
CB2 = "J22"
End If
If Range("J22") <> "" Then
CB2 = "J24"
End If
If Range("J24") <> "" Then
CB2 = "J26"
End If
If Range("J26") <> "" Then
CB2 = "J28"
End If
If Range("J28") <> "" Then
CB2 = "J30"
End If
If Range("J30") <> "" Then
CB2 = "J32"
End If
If Range("J32") <> "" Then
CB2 = "J34"
End If
If Range("J34") <> "" Then
CB2 = "J36"
End If
If Range("J36") <> "" Then
CB2 = "J38"
End If
If Range("J38") <> "" Then
CB2 = "M2"
End If
'M
If Range("M2") <> "" Then
CB2 = "M4"
End If
If Range("M4") <> "" Then
CB2 = "M6"
End If
If Range("M6") <> "" Then
CB2 = "M8"
End If
If Range("M8") <> "" Then
CB2 = "M10"
End If
If Range("M10") <> "" Then
CB2 = "M12"
End If
If Range("M12") <> "" Then
CB2 = "M14"
End If
If Range("M14") <> "" Then
CB2 = "M16"
End If
If Range("M16") <> "" Then
CB2 = "M18"
End If
If Range("M18") <> "" Then
CB2 = "M20"
End If
If Range("M20") <> "" Then
CB2 = "M22"
End If
If Range("M22") <> "" Then
CB2 = "M24"
End If
If Range("M24") <> "" Then
CB2 = "M26"
End If
If Range("M26") <> "" Then
CB2 = "M28"
End If
If Range("M28") <> "" Then
CB2 = "M30"
End If
If Range("M30") <> "" Then
CB2 = "M32"
End If
If Range("M32") <> "" Then
CB2 = "M34"
End If
If Range("M34") <> "" Then
CB2 = "M36"
End If
If Range("M36") <> "" Then
CB2 = "M38"
End If
If Range("M38") <> "" Then
CB2 = "P2"
End If
'P
If Range("P2") <> "" Then
CB2 = "P4"
End If
If Range("P4") <> "" Then
CB2 = "P6"
End If
If Range("P6") <> "" Then
CB2 = "P8"
End If
If Range("P8") <> "" Then
CB2 = "P10"
End If
If Range("P10") <> "" Then
CB2 = "P12"
End If
If Range("P12") <> "" Then
CB2 = "P14"
End If
If Range("P14") <> "" Then
CB2 = "P16"
End If
If Range("P16") <> "" Then
CB2 = "P18"
End If
If Range("P18") <> "" Then
CB2 = "P20"
End If
If Range("P20") <> "" Then
CB2 = "P22"
End If
If Range("P22") <> "" Then
CB2 = "P24"
End If
If Range("P24") <> "" Then
CB2 = "P26"
End If
If Range("P26") <> "" Then
CB2 = "P28"
End If
If Range("P28") <> "" Then
CB2 = "P30"
End If
If Range("P30") <> "" Then
CB2 = "P32"
End If
If Range("P32") <> "" Then
CB2 = "P34"
End If
If Range("P34") <> "" Then
CB2 = "P36"
End If
If Range("P36") <> "" Then
CB2 = "P38"
End If
If Range("P38") <> "" Then
CB2 = "S2"
End If
'S
If Range("S2") <> "" Then
CB2 = "S4"
End If
If Range("S4") <> "" Then
CB2 = "S6"
End If
If Range("S6") <> "" Then
CB2 = "S8"
End If
If Range("S8") <> "" Then
CB2 = "S10"
End If
If Range("S10") <> "" Then
CB2 = "S12"
End If
If Range("S12") <> "" Then
CB2 = "S14"
End If
If Range("S14") <> "" Then
CB2 = "S16"
End If
If Range("S16") <> "" Then
CB2 = "S18"
End If
If Range("S18") <> "" Then
CB2 = "S20"
End If
If Range("S20") <> "" Then
CB2 = "S22"
End If
If Range("S22") <> "" Then
CB2 = "S24"
End If
If Range("S24") <> "" Then
CB2 = "S26"
End If
If Range("S26") <> "" Then
CB2 = "S28"
End If
If Range("S28") <> "" Then
CB2 = "S30"
End If
If Range("S30") <> "" Then
CB2 = "S32"
End If
If Range("S32") <> "" Then
CB2 = "S34"
End If
If Range("S34") <> "" Then
CB2 = "S36"
End If
If Range("S36") <> "" Then
CB2 = "S38"
End If
If Range("S38") <> "" Then
CB2 = "V2"
End If
'V
If Range("V2") <> "" Then
CB2 = "V4"
End If
If Range("V4") <> "" Then
CB2 = "V6"
End If
If Range("V6") <> "" Then
CB2 = "V8"
End If
If Range("V8") <> "" Then
CB2 = "V10"
End If
If Range("V10") <> "" Then
CB2 = "V12"
End If
If Range("V12") <> "" Then
CB2 = "V14"
End If
If Range("V14") <> "" Then
CB2 = "V16"
End If
If Range("V16") <> "" Then
CB2 = "V18"
End If
If Range("V18") <> "" Then
CB2 = "V20"
End If
If Range("V20") <> "" Then
CB2 = "V22"
End If
If Range("V22") <> "" Then
CB2 = "V24"
End If
If Range("V24") <> "" Then
CB2 = "V26"
End If
If Range("V26") <> "" Then
CB2 = "V28"
End If
If Range("V28") <> "" Then
CB2 = "V30"
End If
If Range("V30") <> "" Then
CB2 = "V32"
End If
If Range("V32") <> "" Then
CB2 = "V34"
End If
If Range("V34") <> "" Then
CB2 = "V36"
End If
If Range("V36") <> "" Then
CB2 = "V38"
End If
'If Range("S38") <> "" Then
'CB2 = "V2"
'End If
ActiveCell.Offset(0, 0).Value = CB1.Text
ActiveCell.Offset(0, 1).Value = Tc.Text
ActiveCell.Offset(1, 0).Value = T3.Text
LC1.Caption = Val(LC1) + 1
'ActiveCell.Offset(2, 0).Select
End Sub
If Range("A2") = "" Then
CB2 = "A2"
End If
'A
If Range("A2") <> "" Then
CB2 = "A4"
End If
If Range("A4") <> "" Then
CB2 = "A6"
End If
If Range("A6") <> "" Then
CB2 = "A8"
End If
If Range("A8") <> "" Then
CB2 = "A10"
End If
If Range("A10") <> "" Then
CB2 = "A12"
End If
If Range("A12") <> "" Then
CB2 = "A14"
End If
If Range("A14") <> "" Then
CB2 = "A16"
End If
If Range("A16") <> "" Then
CB2 = "A18"
End If
If Range("A18") <> "" Then
CB2 = "A20"
End If
If Range("A20") <> "" Then
CB2 = "A22"
End If
If Range("A22") <> "" Then
CB2 = "A24"
End If
If Range("A24") <> "" Then
CB2 = "A26"
End If
If Range("A26") <> "" Then
CB2 = "A28"
End If
If Range("A28") <> "" Then
CB2 = "A30"
End If
If Range("A30") <> "" Then
CB2 = "A32"
End If
If Range("A32") <> "" Then
CB2 = "A34"
End If
If Range("A34") <> "" Then
CB2 = "A36"
End If
If Range("A36") <> "" Then
CB2 = "A38"
End If
If Range("A38") <> "" Then
CB2 = "D2"
End If
'D
If Range("D2") <> "" Then
CB2 = "D4"
End If
If Range("D4") <> "" Then
CB2 = "D6"
End If
If Range("D6") <> "" Then
CB2 = "D8"
End If
If Range("D8") <> "" Then
CB2 = "D10"
End If
If Range("D10") <> "" Then
CB2 = "D12"
End If
If Range("D12") <> "" Then
CB2 = "D14"
End If
If Range("D14") <> "" Then
CB2 = "D16"
End If
If Range("D16") <> "" Then
CB2 = "D18"
End If
If Range("D18") <> "" Then
CB2 = "D20"
End If
If Range("D20") <> "" Then
CB2 = "D22"
End If
If Range("D22") <> "" Then
CB2 = "D24"
End If
If Range("D24") <> "" Then
CB2 = "D26"
End If
If Range("D26") <> "" Then
CB2 = "D28"
End If
If Range("D28") <> "" Then
CB2 = "D30"
End If
If Range("D30") <> "" Then
CB2 = "D32"
End If
If Range("D32") <> "" Then
CB2 = "D34"
End If
If Range("D34") <> "" Then
CB2 = "D36"
End If
If Range("D36") <> "" Then
CB2 = "D38"
End If
If Range("D38") <> "" Then
CB2 = "G2"
End If
'G
If Range("G2") <> "" Then
CB2 = "G4"
End If
If Range("G4") <> "" Then
CB2 = "G6"
End If
If Range("G6") <> "" Then
CB2 = "G8"
End If
If Range("G8") <> "" Then
CB2 = "G10"
End If
If Range("G10") <> "" Then
CB2 = "G12"
End If
If Range("G12") <> "" Then
CB2 = "G14"
End If
If Range("G14") <> "" Then
CB2 = "G16"
End If
If Range("G16") <> "" Then
CB2 = "G18"
End If
If Range("G18") <> "" Then
CB2 = "G20"
End If
If Range("G20") <> "" Then
CB2 = "G22"
End If
If Range("G22") <> "" Then
CB2 = "G24"
End If
If Range("G24") <> "" Then
CB2 = "G26"
End If
If Range("G26") <> "" Then
CB2 = "G28"
End If
If Range("G28") <> "" Then
CB2 = "G30"
End If
If Range("G30") <> "" Then
CB2 = "G32"
End If
If Range("G32") <> "" Then
CB2 = "G34"
End If
If Range("G34") <> "" Then
CB2 = "G36"
End If
If Range("G36") <> "" Then
CB2 = "G38"
End If
If Range("G38") <> "" Then
CB2 = "J2"
End If
'J
If Range("J2") <> "" Then
CB2 = "J4"
End If
If Range("J4") <> "" Then
CB2 = "J6"
End If
If Range("J6") <> "" Then
CB2 = "J8"
End If
If Range("J8") <> "" Then
CB2 = "J10"
End If
If Range("J10") <> "" Then
CB2 = "J12"
End If
If Range("J12") <> "" Then
CB2 = "J14"
End If
If Range("J14") <> "" Then
CB2 = "J16"
End If
If Range("J16") <> "" Then
CB2 = "J18"
End If
If Range("J18") <> "" Then
CB2 = "J20"
End If
If Range("J20") <> "" Then
CB2 = "J22"
End If
If Range("J22") <> "" Then
CB2 = "J24"
End If
If Range("J24") <> "" Then
CB2 = "J26"
End If
If Range("J26") <> "" Then
CB2 = "J28"
End If
If Range("J28") <> "" Then
CB2 = "J30"
End If
If Range("J30") <> "" Then
CB2 = "J32"
End If
If Range("J32") <> "" Then
CB2 = "J34"
End If
If Range("J34") <> "" Then
CB2 = "J36"
End If
If Range("J36") <> "" Then
CB2 = "J38"
End If
If Range("J38") <> "" Then
CB2 = "M2"
End If
'M
If Range("M2") <> "" Then
CB2 = "M4"
End If
If Range("M4") <> "" Then
CB2 = "M6"
End If
If Range("M6") <> "" Then
CB2 = "M8"
End If
If Range("M8") <> "" Then
CB2 = "M10"
End If
If Range("M10") <> "" Then
CB2 = "M12"
End If
If Range("M12") <> "" Then
CB2 = "M14"
End If
If Range("M14") <> "" Then
CB2 = "M16"
End If
If Range("M16") <> "" Then
CB2 = "M18"
End If
If Range("M18") <> "" Then
CB2 = "M20"
End If
If Range("M20") <> "" Then
CB2 = "M22"
End If
If Range("M22") <> "" Then
CB2 = "M24"
End If
If Range("M24") <> "" Then
CB2 = "M26"
End If
If Range("M26") <> "" Then
CB2 = "M28"
End If
If Range("M28") <> "" Then
CB2 = "M30"
End If
If Range("M30") <> "" Then
CB2 = "M32"
End If
If Range("M32") <> "" Then
CB2 = "M34"
End If
If Range("M34") <> "" Then
CB2 = "M36"
End If
If Range("M36") <> "" Then
CB2 = "M38"
End If
If Range("M38") <> "" Then
CB2 = "P2"
End If
'P
If Range("P2") <> "" Then
CB2 = "P4"
End If
If Range("P4") <> "" Then
CB2 = "P6"
End If
If Range("P6") <> "" Then
CB2 = "P8"
End If
If Range("P8") <> "" Then
CB2 = "P10"
End If
If Range("P10") <> "" Then
CB2 = "P12"
End If
If Range("P12") <> "" Then
CB2 = "P14"
End If
If Range("P14") <> "" Then
CB2 = "P16"
End If
If Range("P16") <> "" Then
CB2 = "P18"
End If
If Range("P18") <> "" Then
CB2 = "P20"
End If
If Range("P20") <> "" Then
CB2 = "P22"
End If
If Range("P22") <> "" Then
CB2 = "P24"
End If
If Range("P24") <> "" Then
CB2 = "P26"
End If
If Range("P26") <> "" Then
CB2 = "P28"
End If
If Range("P28") <> "" Then
CB2 = "P30"
End If
If Range("P30") <> "" Then
CB2 = "P32"
End If
If Range("P32") <> "" Then
CB2 = "P34"
End If
If Range("P34") <> "" Then
CB2 = "P36"
End If
If Range("P36") <> "" Then
CB2 = "P38"
End If
If Range("P38") <> "" Then
CB2 = "S2"
End If
'S
If Range("S2") <> "" Then
CB2 = "S4"
End If
If Range("S4") <> "" Then
CB2 = "S6"
End If
If Range("S6") <> "" Then
CB2 = "S8"
End If
If Range("S8") <> "" Then
CB2 = "S10"
End If
If Range("S10") <> "" Then
CB2 = "S12"
End If
If Range("S12") <> "" Then
CB2 = "S14"
End If
If Range("S14") <> "" Then
CB2 = "S16"
End If
If Range("S16") <> "" Then
CB2 = "S18"
End If
If Range("S18") <> "" Then
CB2 = "S20"
End If
If Range("S20") <> "" Then
CB2 = "S22"
End If
If Range("S22") <> "" Then
CB2 = "S24"
End If
If Range("S24") <> "" Then
CB2 = "S26"
End If
If Range("S26") <> "" Then
CB2 = "S28"
End If
If Range("S28") <> "" Then
CB2 = "S30"
End If
If Range("S30") <> "" Then
CB2 = "S32"
End If
If Range("S32") <> "" Then
CB2 = "S34"
End If
If Range("S34") <> "" Then
CB2 = "S36"
End If
If Range("S36") <> "" Then
CB2 = "S38"
End If
If Range("S38") <> "" Then
CB2 = "V2"
End If
'V
If Range("V2") <> "" Then
CB2 = "V4"
End If
If Range("V4") <> "" Then
CB2 = "V6"
End If
If Range("V6") <> "" Then
CB2 = "V8"
End If
If Range("V8") <> "" Then
CB2 = "V10"
End If
If Range("V10") <> "" Then
CB2 = "V12"
End If
If Range("V12") <> "" Then
CB2 = "V14"
End If
If Range("V14") <> "" Then
CB2 = "V16"
End If
If Range("V16") <> "" Then
CB2 = "V18"
End If
If Range("V18") <> "" Then
CB2 = "V20"
End If
If Range("V20") <> "" Then
CB2 = "V22"
End If
If Range("V22") <> "" Then
CB2 = "V24"
End If
If Range("V24") <> "" Then
CB2 = "V26"
End If
If Range("V26") <> "" Then
CB2 = "V28"
End If
If Range("V28") <> "" Then
CB2 = "V30"
End If
If Range("V30") <> "" Then
CB2 = "V32"
End If
If Range("V32") <> "" Then
CB2 = "V34"
End If
If Range("V34") <> "" Then
CB2 = "V36"
End If
If Range("V36") <> "" Then
CB2 = "V38"
End If
'If Range("S38") <> "" Then
'CB2 = "V2"
'End If
ActiveCell.Offset(0, 0).Value = CB1.Text
ActiveCell.Offset(0, 1).Value = Tc.Text
ActiveCell.Offset(1, 0).Value = T3.Text
LC1.Caption = Val(LC1) + 1
'ActiveCell.Offset(2, 0).Select
End Sub
Pièces jointes
Dernière édition: