Discussion :

[peofofo]

Bonjour a tous,

Lorsque j'insère une ligne avec le code VBA avec :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Range("A6").Select
            Selection.EntireRow.Insert
            Selection.RowHeight = 15 'on définit sa hauteur

Cela me décale toutes mes formules

Exemples de formules: =SI(CA2=0;BD6-BC4;BD6+BC4)
Avec la nouvelle ligne cette formule devient :
=SI(CA2=0;BD7-BC4;BD7+BC4)
J'aimerais gardé l'intégralité des formules lors d'une insertion de ligne.

Comment faire?
Merci

[rvtoulon]

Slt, je vais peux-être dire une bêtise mais pourquoi pas ne pas utiliser les $ pour mettre les cellules BD6 en référence absolue comme ceci:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

=SI(CA2=0;$BD$6-BC4;$BD$6+BC4)

A+

[mercatog]

Bonjour

Slt, je vais peux-être dire une bêtise...

certes, as tu testé?

une manière de détourner est de ré insérer les formules par vba sur ajout de la ligne. ça risque d'être fastidieux si le nombre de formules est conséquent.
exemple

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Columns.Count = Columns.Count Then Range("A3").Formula = "=if(C3=0,B2-B6,B2+B6)"
End Sub

[rvtoulon]

Mea culpa, non j'ai pas testé, , c'était juste une idée, pas lumineuse j'en conviens.

[peofofo]

Merci pour vos réponses,

J'ai testé quand meme la solution avec l'ajout du dollar. Mais sans conséquence.
Malheuresement, j'ai 312 formules répartis sur 4 lignes et 78 colonnes.
Si j'ai une autre solution que d'ajouter les formules dans toutes les cellules, je suis preneur.

[mercatog]

Bonjour,
une première approche approximative (à développer)
ajouter la ligne 6 à l'aide d'un bouton

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Private Sub CommandButton1_Click()
Dim TabFormulas As Variant
Dim plage As Range, cel As Range
Dim i As Integer
Set plage = Range("A1:J100")
i = 0
On Error GoTo fin ' au cas où aucune formule
ReDim TabFormulas(0 To 1, 0 To plage.SpecialCells(xlCellTypeFormulas).Cells.Count - 1)
 
For Each cel In plage.SpecialCells(xlCellTypeFormulas).Cells 'tableau contenant la formule et l'adresse initiale de la cellule
    TabFormulas(0, i) = cel.Formula
    TabFormulas(1, i) = cel.Address
    cel.ClearContents                   'supprime les formules
    cel.Interior.ColorIndex = 33
    i = i + 1
Next cel
Rows(6).Insert                          'ajoute la ligne 6
For i = 0 To UBound(TabFormulas, 2)
    Range(TabFormulas(1, i)).Formula = TabFormulas(0, i)  'recopie les formules à leurs places
Next i
fin:
End Sub