SHOW:
|
|
- or go back to the newest paste.
| 1 | Private Sub CDouble_Click() | |
| 2 | If CDouble.Value = True Then | |
| 3 | Dim A As Integer | |
| 4 | ||
| 5 | Randomize | |
| 6 | A = Int(19 * Rnd) + 1 | |
| 7 | - | While Worksheets("Chambres").Cells(A + 1, 2) <> ""
|
| 7 | + | If Worksheets("Chambres").Range("K3") <> 0 Then
|
| 8 | - | Randomize |
| 8 | + | While Worksheets("Chambres").Cells(A + 1, 2) <> ""
|
| 9 | - | A = Int(19 * Rnd) + 1 |
| 9 | + | Randomize |
| 10 | - | Wend |
| 10 | + | A = Int(19 * Rnd) + 1 |
| 11 | - | Num.Value = "D" & A |
| 11 | + | Wend |
| 12 | Num.Value = "D" & A | |
| 13 | Else | |
| 14 | MsgBox ("Nous n'avons plus de Chambres Doubles disponibles")
| |
| 15 | End If | |
| 16 | ||
| 17 | End If | |
| 18 | End Sub |
