Macro

Résolu/Fermé
ad1222
Messages postés
2
Date d'inscription
lundi 4 janvier 2016
Statut
Membre
Dernière intervention
4 janvier 2016
- 4 janv. 2016 à 11:50
ad1222
Messages postés
2
Date d'inscription
lundi 4 janvier 2016
Statut
Membre
Dernière intervention
4 janvier 2016
- 4 janv. 2016 à 12:40
Bonjour,

Je travaille sur Office 2013.
Je reprends un vieux tableau crée par mon predecesseur mais j'ai un petit souci. Cette macro sert à créer une nouvelle ligne vierge en ligne 6 tout en recopiant les formules associées à chaque cellule.

Mon problème est que maintenant la marco copie toujours la meme ligne N°15 qui est déjà écrite, et en plus elle recopie en ligne 15 et non en ligne 6 comme elle le devrait.

Pour information c'est un tableau qui comporte plus de 2000 lignes. On dirait que la macro ne s'étend pas suite à l'ajout de nombreuses lignes durant ces derniers mois.
Pourriez vous m'aider? ci dessous la macro en question
D'avance merci beaucoup

Sub New_Line()

With Application
.Calculation = xlManual
.Iteration = False
.ScreenUpdating = False
.DisplayAlerts = False
.EnableEvents = False
End With


Dim r As Integer

r = Range("First_Line").Row

Rows(r + 1).Select
Selection.Insert Shift:=x2Down
Rows(r).Select
Selection.Copy
Rows(r + 1).Select
Selection.PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, SkipBlanks:=False, Transpose:=False

Application.CutCopyMode = False
Calculate
Range("First_Line").Offset(1, 0).Select

End Sub

2 réponses

f894009
Messages postés
16508
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
28 mai 2022
1 635
4 janv. 2016 à 12:32
Bonjour,

First_line est un nom de cellule, verifiez qu'il est pour une cellule ligne 6 et pas 15
0
ad1222
Messages postés
2
Date d'inscription
lundi 4 janvier 2016
Statut
Membre
Dernière intervention
4 janvier 2016

4 janv. 2016 à 12:40
C'est tout à fait juste merci beaucoup,
0