suivi des formules

[sebMA]

salut a tous
j'ai fait une macro afin d'inserer automatiquement des lignes et des colonnes mais les formules de mon tableau ne suivent pas. voila la macro en question :
Do
reponse = InputBox("numéro de la ligne à insérer éxepté 1" + vbCr + "taper 1 pour arrêter")
j = reponse
If j > 1 Then
Rows(reponse).EntireRow.Insert
End If
Loop Until reponse = 1
End Sub

merci d'avance pour vos reponses.

 

[Gorfael]

Re : suivi des formules

salut a tous
j'ai fait une macro afin d'inserer automatiquement des lignes et des colonnes mais les formules de mon tableau ne suivent pas. voila la macro en question :
Do
reponse = InputBox("numéro de la ligne à insérer éxepté 1" + vbCr + "taper 1 pour arrêter")
j = reponse
If j > 1 Then
Rows(reponse).EntireRow.Insert
End If
Loop Until reponse = 1
End Sub

merci d'avance pour vos reponses.

Salut
Met une copie de ton fichier avec 2 lignes de ton tableau. Qu'on ait une idée de ton problème.
A+

 

[jp14]

Re : suivi des formules

Bonjour


La macro fonctionne correctement au niveau de l'insertion, pour faire "suivre" les macros il faut les recopier.

JP

 

[wilfried_42]

Re : suivi des formules

bonjour à tous

Regarde Filldown -----> range("A" & i-1 & ":Z" & i).filldown

Le probleme c'est que ca copie tout : remetre à zero les cellules à saisir

bonne journée

 

[sebMA]

Re : suivi des formules

voila mon tableau

 

[Gorfael]

Re : suivi des formules

voila mon tableau

Salut
Tu as vraisemblablement un problème de Références absolues/relatives, mais comme c'est le fichier qui a perdu ses références, je ne sais pas à quoi #REF faisait allusion

Si tu pouvais mettre ton fichier avant l'erreur, on pourrait t'aider
Les formules de tes macros sont en format R1C1 : Cmeth1()
Cellule active : A10 (pour l'exemple
ActiveCell.FormulaR1C1 = "=ITCf!R228C1+(ITCf!R228C2/2)"
A10 : "=ITCf!$A$228+(ITCf!$B$228/2) dans la cellule active
Si tu inserres une ligne manuellement en ligne 8:
-A228/B228 deviennent A229/B229
-A10 devient A11 et sa formule devient "=ITCf!$A$229+(ITCf!$B$229/2)

Par contre, ta formule dans la macro pointe toujours A228/B228
Le plus simple est dans ce cas de refaire la formule, soit en se basant sur une ligne avant (la deux par exemple :
activecell.formula = cells(2,columns(activecell).formula
soit travailler avec des cellules nommées

A+

 

[sebMA]

Re : suivi des formules

le problème c'est que mon fichier excel fait 700Ko

 

[sebMA]

Re : suivi des formules

les ref qui apparaissent dans les cellules sont des valeurs numérique rentré a la main car j'ai créer des liens entre les cellules afin d'avoir a rentrer le moin de valeur possible a la main.