Gilouexcell
XLDnaute Nouveau
Bonjour,
Je suis novice sous excel, et je bloque.
Je veux copier des formules dans les colonne de Bà S si la cellule A n'est pas vide (les formules de la linge au dessus par exemple, ou les définir.
J'ai essayé ça mais ne marche pas.
Pourriez-vous m'aider?
Merci.
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$1" And Target.Count = 1 And Not IsEmpty(Target) Then
Range("$B$1" & Rows.Count).End(xlUp).Row.FillDown
Range("$B$1" & Rows.Count).End(xlUp).Offset(-1, 0).Select
Selection.Copy
End Sub
Je suis novice sous excel, et je bloque.
Je veux copier des formules dans les colonne de Bà S si la cellule A n'est pas vide (les formules de la linge au dessus par exemple, ou les définir.
J'ai essayé ça mais ne marche pas.
Pourriez-vous m'aider?
Merci.
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$1" And Target.Count = 1 And Not IsEmpty(Target) Then
Range("$B$1" & Rows.Count).End(xlUp).Row.FillDown
Range("$B$1" & Rows.Count).End(xlUp).Offset(-1, 0).Select
Selection.Copy
End Sub