Bonjour,
Le code suivant permet d'effacer le contenu d'une cellule lorsque celle qui la précède, sur la même rangée, est égale à 0.
Dim flag As Boolean
Private Sub Worksheet_Change(ByVal Target As Range)
If flag = True Then Exit Sub
flag = True
If Range("N5") = 0 Then
Range("O5").Select
ActiveCell.FormulaR1C1 = ""
End If
If Range("N6") = 0 Then
Range("O6").Select
ActiveCell.FormulaR1C1 = ""
End If
If Range("N7") = 0 Then
Range("O7").Select
ActiveCell.FormulaR1C1 = ""
End If
flag = False
End Sub
Cela est très bien lorsque cela concerne une ou quelques cellules, mais au dela ....
Ma question est donc: Est-il possible d'adapter le code pour agir sur une colonne ?
A noter que le code cité avait déja été adapté par JP14.
Remerciements anticipés et
Bonne soirée.
Le code suivant permet d'effacer le contenu d'une cellule lorsque celle qui la précède, sur la même rangée, est égale à 0.
Dim flag As Boolean
Private Sub Worksheet_Change(ByVal Target As Range)
If flag = True Then Exit Sub
flag = True
If Range("N5") = 0 Then
Range("O5").Select
ActiveCell.FormulaR1C1 = ""
End If
If Range("N6") = 0 Then
Range("O6").Select
ActiveCell.FormulaR1C1 = ""
End If
If Range("N7") = 0 Then
Range("O7").Select
ActiveCell.FormulaR1C1 = ""
End If
flag = False
End Sub
Cela est très bien lorsque cela concerne une ou quelques cellules, mais au dela ....
Ma question est donc: Est-il possible d'adapter le code pour agir sur une colonne ?
A noter que le code cité avait déja été adapté par JP14.
Remerciements anticipés et
Bonne soirée.