Discussion :

[nono le golfeur]

Bonjour,

je me suis lancé il y a peu dans le VBA.

J'ai créé un Formulaire qui insère des données dans mon fichiers Excel en repérant la dernière ligne et en s'insérant.

Mais comme Ptitsoleil87 je n'arrive pas à recopier les formules de la dernière ligne active dans la nouvelle ligne insérée.

Même en suivant les conseil de ouskel'n'or je n'y arrive pas si quelqu'un a une idée ...

Mon code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
 
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

Il insère des lignes très bien mais pas les formules

Merci,

NoNo

Ceci dit, ton pb est simple et avec un peu de réflexion tu devrais régler le pb : A quel moment dis-tu

Citation:
ActiveSheet.Range("A3").Offset(NextLine, 0) = CheckLine

???
En outre, pourquoi ne fais tu pas une "Recopie vers le bas" ?
A+ mais "ailleurs"

Alors si je ne fait pas une recopie vers le bas c'est que j'utilise une formulaire qui insere les données dans une nouvelle ligne donc je pensais pas que c'était intéressant de copier les cellule.

Ce que je voudrais juste c'est que les formules présentes dans la dernière ligne active soient recopiées dans la nouvelle ligne insérée.

Merci,

Arnaud

[ouskel'n'or]

ton pb est simple et avec un peu de réflexion tu devrais régler le pb : A quel moment dis-tu

ActiveSheet.Range("A3").Offset(NextLine, 0) = CheckLine

???
En outre, pourquoi ne fais tu pas une "Recopie vers le bas" ?
A+

[nono le golfeur]

Je sais que c'est simple, j'ai même trouvé une solution mais à chaque fois ca copie les formules pour la 1ere ligne inserer mais quand j'en insère une deuxième les formules ne se copie plus !!!

Alors si je ne fait pas une recopie vers le bas c'est que j'utilise une formulaire qui insere les données dans une nouvelle ligne donc je pensais pas que c'était intéressant de copier les cellule.

Pourquoi cette question ??

ton pb est simple et avec un peu de réflexion tu devrais régler le pb : A quel moment dis-tu

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ActiveSheet.Range("A3").Offset(NextLine, 0) = CheckLine

???

[SfJ5Rpw8]

lorsque tu dis insérer des formules... tes formules sont'elles dans la ligne insérée ... où sagit'il de modifielr les formules d'une autre ligne ( total, récap....) ?

[nono le golfeur]

Mes formules ne sont pas dans la ligne insérée, c'est là le problème.

Elle sont présentes dans toutes les autres lignes (sauf titre) mais lorsque je'insère une ligne ne dessous de la dernière ligne active les formules ne sont plus là et donc plus de calcul possible.

Cependant avant que j'insère une ligne les formules sont présentes.

Je m'explique :

J'insère une valeur par un formulaire en G
En H rien ne s'insère mais normalement cette cellule contient une formule, formule qui disparait lorsque j'insère ma ligne !