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
| For i = 1 To 11
If Me.Controls("A" & i & "_O") Then
With Cells(DerL, 10 + i)
.Value = "OUI"
.Font.Bold = True
.Font.ColorIndex = 10
End With
Else
With Cells(DerL, 10 + i)
.Value = "NON"
.Font.Bold = True
.Font.ColorIndex = 0
End With
End If
Next
For i = 1 To 12
If Me.Controls("B" & i & "_O") Then
With Cells(DerL, 21 + i)
.Value = "OUI"
.Font.Bold = True
.Font.ColorIndex = 10
End With
Else
With Cells(DerL, 21 + i)
.Value = "NON"
.Font.Bold = True
.Font.ColorIndex = 0
End With
End If
Next
For i = 1 To 8
If Me.Controls("C" & i & "_O") Then
With Cells(DerL, 33 + i)
.Value = "OUI"
.Font.Bold = True
.Font.ColorIndex = 10
End With
Else
With Cells(DerL, 33 + i)
.Value = "NON"
.Font.Bold = True
.Font.ColorIndex = 0
End With
End If
Next |
Partager