nono le golfeur
Nouveau membre
Bonjour,
J'utilise dans un de mes Fichiers Excel un Formulaire associé a du VBA pour incorpporer les données dans le fichier et reconnaitre ou est la dernière ligne active.
Mais après insertion d'une ligne, les formules des cellules déjà présente ne sont pas copiées, je n'arrive pas à recopier les formules de ces cellules.
J'utilise la macro suivante :
[cpp]Private Sub cmdPopulate_Click()
'Find empty cell for new data
Worksheets("Orders Funnel").Activate
ActiveSheet.Range("A3").Select
CheckLine = ActiveSheet.Range("A3").Value
NextLine = 1
Tracker = 4
Do While CheckLine <> Empty
ActiveSheet.Range("A3").Offset(NextLine, 0).Select
CheckLine = ActiveSheet.Range("A" & Tracker).Value
Tracker = Tracker + 1
NextLine = NextLine + 1
Loop
Tracker = Tracker - 1
ActiveSheet.Rows(Tracker & ":" & Tracker).Select
Selection.Insert shiftXldown
[/cpp]
Merci d'avance
J'utilise dans un de mes Fichiers Excel un Formulaire associé a du VBA pour incorpporer les données dans le fichier et reconnaitre ou est la dernière ligne active.
Mais après insertion d'une ligne, les formules des cellules déjà présente ne sont pas copiées, je n'arrive pas à recopier les formules de ces cellules.
J'utilise la macro suivante :
[cpp]Private Sub cmdPopulate_Click()
'Find empty cell for new data
Worksheets("Orders Funnel").Activate
ActiveSheet.Range("A3").Select
CheckLine = ActiveSheet.Range("A3").Value
NextLine = 1
Tracker = 4
Do While CheckLine <> Empty
ActiveSheet.Range("A3").Offset(NextLine, 0).Select
CheckLine = ActiveSheet.Range("A" & Tracker).Value
Tracker = Tracker + 1
NextLine = NextLine + 1
Loop
Tracker = Tracker - 1
ActiveSheet.Rows(Tracker & ":" & Tracker).Select
Selection.Insert shiftXldown
[/cpp]
Merci d'avance