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
|
If MaFsource.Cells(77, Col).Value = "" Then
ShDEST.Range("B2").Value = IIf(Len(MaFsource.Cells(79, Col).Value) = 0, "", (MaFsource.Cells(79, Col).Value))
ShDEST.Range("B2").Value = ShDEST.Range("B2").Value & IIf(Len(MaFsource.Cells(80, Col).Value) = 0, "", vbLf & MaFsource.Cells(80, Col).Value)
ShDEST.Range("B2").Value = ShDEST.Range("B2").Value & IIf(Len(MaFsource.Cells(81, Col).Value) = 0, "", vbLf & MaFsource.Cells(81, Col).Value)
If MaFsource.Cells(79, Col).Value = "" And MaFsource.Cells(80, Col).Value = "" And MaFsource.Cells(81, Col).Value = "" Then ShDEST.Range("B2").Value = "Aucune activité inscrite"
End If
If MaFsource.Cells(77, Col).Value <> "" Then
ShDEST.Range("B2").Value = MaFsource.Cells(77, Col).Value
End If
If MaFsource.Cells(82, Col).Value = "" Then
ShDEST.Range("D2").Value = IIf(Len(MaFsource.Cells(84, Col).Value) = 0, "", (MaFsource.Cells(84, Col).Value))
ShDEST.Range("D2").Value = ShDEST.Range("D2").Value & IIf(Len(MaFsource.Cells(85, Col).Value) = 0, "", vbLf & MaFsource.Cells(85, Col).Value)
ShDEST.Range("D2").Value = ShDEST.Range("D2").Value & IIf(Len(MaFsource.Cells(86, Col).Value) = 0, "", vbLf & MaFsource.Cells(86, Col).Value)
If MaFsource.Cells(79, Col).Value = "" And MaFsource.Cells(80, Col).Value = "" And MaFsource.Cells(81, Col).Value = "" Then ShDEST.Range("D2").Value = "Aucune activité inscrite"
End If
If MaFsource.Cells(82, Col).Value <> "" Then
ShDEST.Range("D3").Value = MaFsource.Cells(92, Col).Value
End If
If MaFsource.Cells(87, Col).Value = "" Then
ShDEST.Range("B3").Value = IIf(Len(MaFsource.Cells(89, Col).Value) = 0, "", (MaFsource.Cells(89, Col).Value))
ShDEST.Range("B3").Value = ShDEST.Range("B3").Value & IIf(Len(MaFsource.Cells(90, Col).Value) = 0, "", vbLf & MaFsource.Cells(90, Col).Value)
ShDEST.Range("B3").Value = ShDEST.Range("B3").Value & IIf(Len(MaFsource.Cells(91, Col).Value) = 0, "", vbLf & MaFsource.Cells(91, Col).Value)
If MaFsource.Cells(89, Col).Value = "" And MaFsource.Cells(90, Col).Value = "" And MaFsource.Cells(91, Col).Value = "" Then ShDEST.Range("B3").Value = "Aucune activité inscrite"
End If
If MaFsource.Cells(87, Col).Value <> "" Then
ShDEST.Range("B3").Value = MaFsource.Cells(87, Col).Value
End If
If MaFsource.Cells(92, Col).Value = "" Then
ShDEST.Range("D3").Value = IIf(Len(MaFsource.Cells(94, Col).Value) = 0, "", (MaFsource.Cells(94, Col).Value))
ShDEST.Range("D3").Value = ShDEST.Range("D3").Value & IIf(Len(MaFsource.Cells(95, Col).Value) = 0, "", vbLf & MaFsource.Cells(95, Col).Value)
ShDEST.Range("D3").Value = ShDEST.Range("D3").Value & IIf(Len(MaFsource.Cells(96, Col).Value) = 0, "", vbLf & MaFsource.Cells(96, Col).Value)
If MaFsource.Cells(94, Col).Value = "" And MaFsource.Cells(95, Col).Value = "" And MaFsource.Cells(96, Col).Value = "" Then ShDEST.Range("D3").Value = "Aucune activité inscrite"
End If
If MaFsource.Cells(92, Col).Value <> "" Then
ShDEST.Range("D3").Value = MaFsource.Cells(92, Col).Value
End If |