Re : Faire une boucle
re,
Testé chez moi, cela fonctionne.
j'avais oublié:
Application.EnableEvents = False
Application.EnableEvents = True
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$B$12" And Target.Value = Cells(1, 1).Value Then
Application.EnableEvents = False
For a = 12 To 42
Cells(a, 3) = ""
Cells(a, 4) = ""
Cells(a, 5) = ""
Cells(a, 7) = ""
Cells(a, 8) = ""
Cells(a, 9) = ""
Cells(a, 11) = ""
Cells(a, 12) = ""
Next a
Application.EnableEvents = True
End If
End Sub
A+