Insérer ligne avec formule en VBA

[yusukens2]

Bonjours,
j'aurai besoin d'un petit coup de VBA pour pouvoir débloquer un problème que je rencontre.

voila, j'ai crée une macro qui permet d'allé chercher une ligne avec des formule prédéfini et l'insérer au dessus d'une autre ligne.
soucie, il suffit que je lance 2 fois cette macro pour que cette macro ne marche plus, cela est du au causse d'une ligne fixé.
J'espères que j'ai étais clair dans ce que j'ai raconté.
je laisse en pièce joint le tableau avec ma macro non fini.

Merci pour votre aide.

------------------------------------------------------
Sub Macro3()
'
' Macro3 Macro
' Macro enregistrée le 16/05/2007 par Ziou

Rows("15:15").Select
Selection.Copy
Rows("12:12").Select
Selection.Insert Shift:=xlDown
Application.CutCopyMode = False
End Sub
------------------------------------------------------

 

[Catrice]

Re : Insérer ligne avec formule en VBA

Bonjour,

Personnellement je n'ai pas trop compris.
peux tu exepliquer ce que tu veux faire exactement ?
(eventuellement dans ton fichier mets un "avant" et un "apres" macro)

 

[porcinet82]

Re : Insérer ligne avec formule en VBA

Salut,

Perso, rien compris du tout non plus... Comme l'a dis Catrice, une explication de ce que doit faire la macro serait la bienvenue...

@+

 

[Spitnolan08]

Re : Insérer ligne avec formule en VBA

Bonjour,
pourquoi ne pas te contenter de :

Sub Macro3()
Dim n As Integer
n = Range("A65500").End(xlUp).Row + 1
    Rows(n).Select
    Selection.Insert Shift:=xlDown
    Application.CutCopyMode = False
End Sub

Cordialement

edit : salut Porcinet

 

[yusukens2]

Re : Insérer ligne avec formule en VBA

Merci à vous de m'avoir répondu,
dessolé si je n'ai pas étais clair.

je met en piece joint le nouveau fichier excel avec 2 onglets
- avant macro
- après macro

Merci

 

[Spitnolan08]

Re : Insérer ligne avec formule en VBA

Re,
as tu regardé ce que je t'ai proposé😕
Ton fichier initial n'avait pas de formule en ligne 15... avec formule prise en compte :

Sub Macro3()
Dim n As Integer
n = Range("A65500").End(xlUp).Row + 1
    Rows(n).Select
    Selection.Insert Shift:=xlDown
    Application.CutCopyMode = False
Cells(Selection.Row - 1, "D").Copy
Cells(Selection.Row, "D").Select
ActiveSheet.Paste
End Sub

Cordialement

 

[yusukens2]

Re : Insérer ligne avec formule en VBA

Spitnolan08,
oui j'avais regardé bien entendu, mais la macro ne correspondait pas vu qu'elle ne faisait que insérer une lignes sans la formule de la colonne D.
dans ta nouvelle macro que tu me propose, effectivement elle intégre la formule de la colonne D.
Je t'en remercie.

Néanmoins, elle ne résout pas exactement mon probleme car vois tu, il faut vraiment que cette macro copie la ligne 15 dans son intégralité car dans mon vrai fichier de travail, cette ligne 15 constitue plusieurs formules, bordure, mise en forme conditionnel, texte etc...

Si tu as une idée à me proposer, je serai entierement prenneur.

MERCI

 

[Spitnolan08]

Re : Insérer ligne avec formule en VBA

Re,

Si on execute cette macro, celle-ci doit executer :
- un copier de la ligne 15
- un coller sur la ligne au dessus du trait noir
Cela permet d'avoir une nouvelle ligne au dessus du trait noir AVEC la formule SOMME qui ce trouve sur la colonne D

Donc ma proposition correspond!

Si tu ne donnes pas les bonnes info, comment veux tu qu'on te propose une solution qui convient...?
Pour ce qui concerne la mise en forme, ma méthode te permet de la conserver, donc no probleme.
En ce qui concerne les formules, il faut savoir où elles sont et lesquelles... Donc un fichier complet.

Cordialement

 

[yusukens2]

Re : Insérer ligne avec formule en VBA

Re

Justement c'est pour cela que je voulais faire la copie de la ligne 15 dans ça totalité.
car faisant la copie de son inégralité, elle prendra forcement les différents formules telle que formule, mise en condition, couleur etc...

 

[Spitnolan08]

Re : Insérer ligne avec formule en VBA

Re,
Ma dernière proposition...:

Sub Macro3()
Dim n As Integer
n = Range("A65500").End(xlUp).Row + 1
    Rows(n).Select
    Selection.Insert Shift:=xlDown
    Application.CutCopyMode = False
Rows(Selection.Row - 1).Copy
Rows(Selection.Row).Select
ActiveSheet.Paste
End Sub

Cordialement

Edit : la modification du code n'avait pas été enregistrée...

 

[yusukens2]

Re : Insérer ligne avec formule en VBA

Merci Spitnolan08 mais c'est la même macro, que ton ancien message.
merci quand même d'avoir consacrer un peu de ton temps.

 

[Spitnolan08]

Re : Insérer ligne avec formule en VBA

C'est pour ça que je viens de la changer...

 

[yusukens2]

Re : Insérer ligne avec formule en VBA

A si dsl il y a une différence entre les deux macro,
dans un c'est "rows" et l'autre c'est "cell".
néamoins en appliquant cette macro 5fois, l'onglet AVANT ne resemble pas à l'onglet APRÉS.

 

[Spitnolan08]

Re : Insérer ligne avec formule en VBA

Re,
Tant pis...
Bonne continuation
Cordialement

 

[Spitnolan08]

Re : Insérer ligne avec formule en VBA

Re,
Juste un coup de pouce à yusukens2... avec un p'tit up.
C'est ça faire un up : faire une réponse sybilline qui permet de remonter le message. A utiliser avec modération quand même!
Cordialement