Insertion d'une ligne avec formules de calcul

Version imprimable

01/06/2024, 18h07
Campomoro2A

Insertion d'une ligne avec formules de calcul

Bonjour

J'ai un tableau avec un nombre variable de lignes Détail.
Sur chaque ligne, il y a une ou plusieurs formules de calcul.
J'ai créé une macro pour insérer une nouvelle ligne au dessus de la cellule active., en effaçant les valeurs, mais pas les formules.

' Sélection de la ligne à copier
Selection.EntireRow.Select
' Copie de la ligne
Selection.Copy
' Coller
Selection.Insert Shift:=xlDown

' On error évite de provoquer un blocage si une instruction ci-après provoque une erreur
' ce qui se produirait s'il n'y a pas de cellule avec une formule sur la ligne insérée
On Error Resume Next
' Effacer valeur des cellules ne contenant pas de formule
' pour la ligne ajoutée
Selection.SpecialCells(xlCellTypeConstants, 23).Select
Selection.ClearContents

Mon problème :
Cela fonctionne bien la première fois.
J'obtiens une nouvelle ligne sans valeur, mais avec maintien des formules.

Mais si je relance ma macro depuis cette nouvelle ligne - donc sans aucune valeur -, la nouvelle ligne créée n'emporte plus les formules.

A noter que si je supprime l'instruction On Error, VBA provoque alors une anomalie "Pas de cellules correspondantes"

Merci de votre aide

Salut, teste ceci:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
Sub test()
 
    Dim rng As Range
    Dim newRow As Range
 
    ' Désélectionner toute autre sélection pour éviter des comportements imprévus
    Application.CutCopyMode = False
 
    Set rng = Selection.EntireRow
 
    rng.Insert Shift:=xlDown
 
    Set newRow = rng.Offset(-1, 0)
 
    rng.Copy
    newRow.PasteSpecial Paste:=xlPasteFormulasAndNumberFormats
 
    Application.CutCopyMode = False
 
    On Error Resume Next
    newRow.SpecialCells(xlCellTypeConstants).ClearContents
    On Error GoTo 0
 
End Sub

02/06/2024, 12h32
Campomoro2A

Bonjour
Merci de votre retour.
J'ai testé. Ca marche
Super :lol:
Bonne journée
02/06/2024, 16h27
78chris

Bonjour

Il suffit d’utiliser les tableaux structurés présents depuis plus de 20 ans dans Excel et toute ligne insérée hérite des formules, formats, validation définis pour toutes les colonnes du tableau
02/06/2024, 16h48
Nain porte koi

Je "plussoie" la réponse de 78chris, les macro c'est bien quand la fonction n'existe pas, mais il est inutile de réinventer la roue