Bonjour,
La macro suivante fonctionne très bien
Private Sub Worksheet_Change(ByVal Target As Range)
If Range("A1") = 0 Then
Range("A5").Select
ActiveCell.FormulaR1C1 = ""
End If
End Sub
Par contre si je veux ajouter une condition semblable, cela ne fonctionne plus et n’en trouve pas la cause
Private Sub Worksheet_Change(ByVal Target As Range)
If Range("A1") = 0 Then
Range("A5").Select
ActiveCell.FormulaR1C1 = ""
End If
If Range("A2") = 0 Then
Range("B5").Select
ActiveCell.FormulaR1C1 = ""
End If
End Sub
Si un « forumeur » peut me dépanner je l’en remercie par avance.
Bonne journée.
La macro suivante fonctionne très bien
Private Sub Worksheet_Change(ByVal Target As Range)
If Range("A1") = 0 Then
Range("A5").Select
ActiveCell.FormulaR1C1 = ""
End If
End Sub
Par contre si je veux ajouter une condition semblable, cela ne fonctionne plus et n’en trouve pas la cause
Private Sub Worksheet_Change(ByVal Target As Range)
If Range("A1") = 0 Then
Range("A5").Select
ActiveCell.FormulaR1C1 = ""
End If
If Range("A2") = 0 Then
Range("B5").Select
ActiveCell.FormulaR1C1 = ""
End If
End Sub
Si un « forumeur » peut me dépanner je l’en remercie par avance.
Bonne journée.