Christian0258
XLDnaute Accro
Bonjour à tout le forum,
Je souhaiterais mettre sur la ligne 5 à partir de la colonne B la formule ci-dessous.
Pourriez-vous me dire comment rédiger ce code.
Private Sub Worksheet_Change(ByVal Target As Range)
Me.Cells(Target.Row, 2).FormulaR1C1 = "=IF(R[-1]C<>"""",1,"""")"
If Target.HasFormula Then Target.Locked = True
End Sub
Merci pour votre aide.
Bien amicalement,
Christian
Je souhaiterais mettre sur la ligne 5 à partir de la colonne B la formule ci-dessous.
Pourriez-vous me dire comment rédiger ce code.
Private Sub Worksheet_Change(ByVal Target As Range)
Me.Cells(Target.Row, 2).FormulaR1C1 = "=IF(R[-1]C<>"""",1,"""")"
If Target.HasFormula Then Target.Locked = True
End Sub
Merci pour votre aide.
Bien amicalement,
Christian