Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Insérer ligne avec formule en VBA

  • Initiateur de la discussion Initiateur de la discussion yusukens2
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

Y

yusukens2

Guest
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
------------------------------------------------------
 

Pièces jointes

Re : Insérer ligne avec formule en VBA

Merci à Spitnolan08 pour son aide malgré nos désagréments
je met en piece joint deux solutions de mon problème :

1) Insère ligne.xls (en s'inspirant de la macro de Spitnolan08)
2) Insère ligne2.xls (autre solution)
 

Pièces jointes

Re : Insérer ligne avec formule en VBA

Bonjour,

Une variante ci-joint.

EDIT :
Ou bien :

Sub Test2()
With ActiveSheet.Range("A65536").End(xlUp).Resize(1, 4)
.Copy
.Offset(1, 0).Insert Shift:=xlDown
.Offset(1, 0).Resize(1, 3).ClearContents
End With
Application.CutCopyMode = False
End Sub
 

Pièces jointes

Dernière édition:
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

Réponses
4
Affichages
243
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…