VBA - ajout d'une ligne avec prolongement des formules

[ninanani]

Bonjour,

J'ai essayé en enregistrant une macro de l'arranger à ma sauce mais hélas, sans grand résultat

J'aimerais une macro me permettant la chose suivante:
je sélectionne une ligne puis lorsque j'active ma macro, elle m'insère une autre ligne dessous avec les mêmes formules présentent dans chaque cellules de ma ligne sélectionnée.

Ci joint mon fichier parce que c'est assez galère à expliquer.

Merci pour votre aide

 

[Dranreb]

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

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

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

À +

 

[Grand Chaman Excel]

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+

 

[ninanani]

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

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

 

[ninanani]

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

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

 

[dede869]

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

 

[Dranreb]

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.