VBA pour mettre une formule sur la ligne5 ...

[Christian0258]

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

 

[Lone-wolf]

Bonjour Christian et bonne année

À partir de la colonne B, mais jusqu'où??? Et après 1465 messages postés, sans vouloir t'offenser, où est le fichier???

En supposant que la dernière colonne soit la G

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Range(Cells(5, 2), Cells(5, 7)).FormulaR1C1 = "=IF(R[-1]C<>"""",1,"""")"
Cancel = True
End Sub

 

[Christian0258]

Re, le forum, Lone-wolf

Merci, Lone-wolf, pour ta solution.
Mes excuses pour le manque de fichier. J'ai pensé que ma demande était assez explicite...j'avais tort..

Bien à toi,
Christian