VBA - Problème d'insertion de ligne avec copie de formules

Bonjour à tous,

Voici le problème pour lequel je sollicite SVP votre aide :

1 - Dans les cellules suivantes (A2 à B100) j'ai une formule du type (bien évidemment il y a en plus d'autres cellules utilisées sur chaque ligne) :

A2 --> =SI(A2=A1;FaireCalcul_1;FaireCalcul_2) B2 --> =A2+C2
A3 --> =SI(A3=A2;FaireCalcul_1;FaireCalcul_2) B3 --> =A3+C3
A4 --> =SI(A4=A3;FaireCalcul_1;FaireCalcul_2) B4 --> =A4+C4
A5 --> =SI(A5=A4;FaireCalcul_1;FaireCalcul_2) B5 --> =A5+C5
" "
" "
A100 --> =SI(A100=A99;FaireCalcul_1;FaireCalcul_2) B100 --> =A100+C100

2 - Pour insérer une ligne j'utilise la procédure suivante (appelée depuis un simple bouton) :

Code:

---

1 2 3 4 5 6

Sub InsèreCopieLigne() ActiveCell.EntireRow.Insert Rows(ActiveCell.Row + 1).Copy Rows(ActiveCell.Row) On Error Resume Next Rows(ActiveCell.Row).SpecialCells(xlCellTypeConstants, 23).ClearContents End Sub

---

3 - Si maintenant j'insère par exemple une ligne entre les cellules A3 et A4, à l'aide de ma procédure : plus rien ne va !
En effet je constate qu'un décalage se crée dans les références, ce qui perturbe toute la logique mise en place initialement. Voilà les "dégats" :

A2 --> =SI(A2=A1;FaireCalcul_1;FaireCalcul_2) B2 --> =A2+C2
A3 --> =SI(A3=A2;FaireCalcul_1;FaireCalcul_2) B3 --> =A3+C3
A4 --> =SI(A4=A2;FaireCalcul_1;FaireCalcul_2) B4 --> =A4+C4 <-- Ligne insérée
A5 --> =SI(A5=A3;FaireCalcul_1;FaireCalcul_2) B5 --> =A5+C5 <-- ligne A4 avant insertion et qui a été décalée d'un rang vers le bas
A6 --> =SI(A6=A5;FaireCalcul_1;FaireCalcul_2) B6 --> =A6+C6

Au final dans la formule des cellules A4 et A5 la référence à la ligne précédente n'est pas correctement mise à jour que ce soit pour la ligne insérée comme pour la ligne décalée.:cry:
Alors que pour les cellules B4 et B5 tout est OK.

Y-a-t-il un truc pour palier à ce phénomène ?

J'espère avoir été suffisamment clair dans les explications du Pb rencontré.

D'avance MERCI pour m'aider à corriger ce qui ne va pas.
Cordialement
oracle7556;););)

Citation:

---

A2 --> =SI(A2=A1;FaireCalcul_1;FaireCalcul_2)

---

étrange formule en A2 qui fait référence à A28O

Bonjour mercatog,

Je conçois aisément que cette notation puisse être étonnante mais j'ai besoin dans mon process d'exploiter la valeur précédente de la cellule pour déterminer le type de calcul à appliquer à la cellule suivante (en fait une incrémentation dont le pas est variable). C'est tout simple sauf que dans le cas présent Excel ne réagit pas comme je l'escomptais lorsque j'insère une nouvelle ligne. A moins que tu ai une autre idée d'algorythme pour gérer cela ?
A noter que le problème est le même si je place mon test dans une autre cellule comme par exemple :

A1 --> "X"
A2 --> "Y" B2 --> =SI(A2=A1;FaireCalcul_1;FaireCalcul_2)
A3 --> "Y" B3 --> =SI(A3=A2;FaireCalcul_1;FaireCalcul_2)
etc...

Cordialement
oracle7;););)

Si on a une formule en B2=A1+A2.
et on insère une ligne à la place de la ligne 2
la formule devient en B3=A1+A3!
Parce qu'on a pas touché à la ligne 1.

Tu peux palier à ceci par vba

Code:

---

range("B3").formular1c1="=R[-1]C[-1]+RC[-1]

---

Bonsoir mercatog

Ton idée est bonne, j'avais aussi envisagé ce type de solution mais comment maintenant l'intégrer dans ma procédure d'insertion de ligne (voir le premier post ci-dessus), là je ne sais pas faire.:(

Cordialement
oracle7556;););)

Sur une ligne combien tu as de formules?

Bonjour mercatog

Sur une ligne de 42 colonnes j'ai :
- 2 cellules qui comportent une "grosse" formule du type qui me pose le problème évoqué ci-dessus (i.e. faisant référence à une ou plusieurs cellules de la ligne précédente).
- toutes les autres cellules si elles ne comportent pas de formules tout aussi complexes, ont au moins une MFC avec formule elle aussi souvent omplexe.

De fait j'ai un tableau assez complexe car très dynamique dans son affichage d'une part et d'autre part à cause de la multitude de contrôles de cohérence et de renseignement automatique de données en fonctions d'autres données.

Aussi si j'ai des formules qui "s'envoient en l'air" lors d'une insertion simple de ligne, cela a rapidement des conséquences importantes et c'est vite la catastrophe dans les données.

Bon cela dit, je réfléchis par ailleurs à gérer mes calculs (fonctions de données précédentes) par une fonction VBA pour éviter ces déboires.
Je vais voir ce que cela donne et auquel cas je changerais mon "fusil d'épaule" ...

Cordialement
oracle7556 ;););)

et en utilisant des références absolues dans votre feuille de calcul, est ce qu'on ne peut pas résoudre ce problème (la réécriture des formules va être longue malheureusement)

Code:

---

=$A$5+$B$6

---

Bonjour à tous,

Ne vous cassez plus la tête sur ce problème. Pour moi il n'en est plus un.
Avec une fonction VBA et quelques ".offset(-1, X)" bien placés j'arrive à mes fin et exit les formules dans les cellules faisant référence à la ligne précédente. L'insertion normale est "nickelle" maintenant.

Encore MERCI à tous ceux qui ont cherché à m'aider sur ce coup.:ccool::ccool::ccool:
A+

Cordialement
oracle7;););)