VBA - ajout d'une ligne avec prolongement des formules

Dranreb

XLDnaute Barbatruc

• 7 Mai 2012

• #2

Re : VBA - ajout d'une ligne avec prolongement des formules

Bonjour.
Cette procédure fait ce que vous demandez :

VB:

Sub essai()
With ActiveCell.EntireRow
   .Copy: .Insert
   .SpecialCells(xlCellTypeConstants).ClearContents
   .Select
   End With
End Sub

À +

 

Vote positif 0 Vote négatif

Grand Chaman Excel

XLDnaute Impliqué

• 7 Mai 2012

• #3

Re : VBA - ajout d'une ligne avec prolongement des formules

Bonjour ninanani,

Voir ici, une macro que j'utilise :
Le Grand Chaman Excel: Macro pour insérer lignes et copier formules (2)

Le Grand Chaman Excel: Macro pour insérer lignes et copier formules

A+

 

Vote positif 0 Vote négatif

N

ninanani

XLDnaute Occasionnel

• 7 Mai 2012

• #4

Re : VBA - ajout d'une ligne avec prolongement des formules

Merci beaucoup Dranreb, c'était exactement ce que je voulais 🙂

 

Vote positif 0 Vote négatif

N

ninanani

XLDnaute Occasionnel

• 7 Mai 2012

• #5

Re : VBA - ajout d'une ligne avec prolongement des formules

Merci également pour ta réponse "Grand Chaman d'excel"!

 

Vote positif 0 Vote négatif

D

dede869

XLDnaute Occasionnel

• 15 Avril 2016

• #6

Re : VBA - ajout d'une ligne avec prolongement des formules

Bonjour a vous, j'aimerais avoir las même formule mais ajouter la ligne au dessus au lieu de en dessous!


Merci de votre aide

 

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 15 Avril 2016

• #7

Re : VBA - ajout d'une ligne avec prolongement des formules

Bonjour.
C'est le même principe sauf qu'il faut copier la ligne 1 de la plage de données, l'insérer devant la ligne 2, effacer les constantes de la ligne 1 sur laquelle on va donc travailler.
Attention: ne s'applique pas si la plage a été mise sous forme de tableau.
Dans ce cas il faut récupérer: Set PlgLgn = PlgTab.ListObject.ListRows.Add(1).Range
avec: PlgLgn As Range et PlgTab une expression Range représentant au moins une cellule du tableau.

 

Vote positif 0 Vote négatif