Macro inserer ligne tab et recopier formules ligne sup
Bonjour,
Je bloque sur cette macro qui doit me permettre :
1- d'inserer une ligne dans un tableau excel avant la ligne des totaux
2- de recopier les formules de la ligne précedentes dans la nouvelle ligne
L'insertion fonctionne mais toutes les formules de calcul ne sont pas recopier.
Par exemple dans le fichier joint la cellule I27 a bien été mise à jour( egale I26) mais pas les cellules K27 et suivante sur la ligne.
Est-ce que vous pourriez m'indiquer où se situe l'erreur dans le code ?
Merci
Benjamin21, le forum
Comme tu as inséré une ligne, il faut en ajouter une autre dans le décompte.
.Rows(DLig - 1).Insert ' ne contient pas de formule
.Rows(DLig - 3).SpecialCells(xlCellTypeFormulas).Select ' -3 et non -2LaCéline
Merci de ta réponse Laceline.
J'avais déjà testé cette solution. Mais cela ne resoud pas mon problème. Car même en faisant cette modif la cellule I27 a bien été mise à jour( egale I26) mais pas les cellules K27 et suivante sur la ligne.
Comprend pas !
bonjour,
Sub Inserer_ligne_tableau()
Dim i%
i = [Ligne_total_NDF].Row - 1
With Rows(i)
.Copy
.Insert Shift:=xlDown
.Hidden = False
End With
Application.CutCopyMode = False
End SubA+
C'est top Galopin !
Ca fonctionne tip top.
Je n'ai plus qu'a ajouter les fonctions Unprotect et Protect.
Je reste quand même sur ma fin car je ne sais toujours pas ce qui clochait dans ma macro initiale
Et encore merci à Laceline