1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20
|
Sub supprimerL_QuandClic()
Dim n As Integer
'Dim compte As Integer
n = 4
If Range("F4") = FAUX And Range("F5") = FAUX And Range("F6") = FAUX And Range("F7") = FAUX And Range("F8") = FAUX And Range("F9") = FAUX And Range("F10") = FAUX And Range("F11") = FAUX And Range("F12") = FAUX Then
MsgBox "Sélectionner au moins un élément"
Else
Do
'MsgBox (Cells(4, 6))
If Cells(n, 6) = VRAI Then
For compteur = 2 To 5
Cells(n, compteur) = ""
Next compteur
End If
n = n + 1
Loop Until n = 12
End If
End Sub |