Décaler une formule copiée

Version imprimable

04/01/2020, 13h07
Mod77

Décaler une formule copiée

Bonjour,
Je galère trop sur ce problème pour rester seul dessus:

J'ai copié un tableau 'personnel' de feui2 à feuil3.
Sur feuil3 j'ai donc les renvois qu'il y a en feuil2: feuil1!D22 par exemple en C13.

J'ai créé un nouveau 'budget' sur feuil1, mais il est en dessous du 1er tableau budget en D42. En fait il y a +20 lignes à chaque fois.

Je souhaiterais qu'à chaque copie du tableau 'personnel' les formules soient décalées automatiquement,
mais je ne sais comment faire.
J'avais en tête quelque chose du type mais sans aboutir :roll:

Code:

ActiveWorkbook.Sheets("feuil3").Range("C13") = Sheets("feuil3").Range("C13").formulalocal.offset(0.20)

Pouvez-vous m'aider svp?
04/01/2020, 13h31
Philippe Tulliez

Bonjour,
Sans avoir examiné quoi que ce soit dans votre demande, je vois déjà des problèmes dans cette ligne de code.

Code:

ActiveWorkbook.Sheets("feuil3").Range("C13")= Sheets("feuil3").Range("C13").formulalocal.offset(0.20)

Il y a lieu d'ajouter la propriété formulalocal à l'objet Range de la partie gauche de la ligne de code et il y a également une anomalie dans la partie droite. La propriété Offset doit se trouver avant FormulaLocal
et attention Offset(0, 20) signifie qu'il y a déplacement de 20 colonnes et pas de 20 lignes comme votre demande semble l'indiquer
Vous évoquiez également une copie de feuil2 vers feuiil3 or dans la ligne de code il y a une copie dans la même feuille

Cette modification ne garanti pas que cela réponde à vos souhaits mais il est impératif de le faire.
04/01/2020, 14h42
Mod77

Merci Philippe Tulliez de votre aide.

Je sais que l'instruction n'est pas bonne c'était juste une idée car je ne connais pas la mise en oeuvre d'où ma question.

Néanmoins, vous auriez du comprendre dans la lecture car comme je l'indique, la feuil3 est la copie de la feuil2 donc la formule en "C13" est la même quelque soit la feuil(>1).
Ce que je souhaite c'est que la formule en C13, qui fait référence à la feuil1, ait sa formule 'feuil1!D22' avec un décalage de +20 lignes, comme vous l'avez compris, et devienne donc 'feuil1!D42' et ainsi de suite après chaque copie de feuil3 vers feuil4...

si je tape le code suggéré:

Code:

ActiveWorkbook.Sheets("feuil3").Range("C13").formulalocal= Sheets("feuil3").Range("C13").offset(20,0).formulalocal

c'est C13 qui sera décalé pas le code de sa formule, voyez-vous?
05/01/2020, 18h14
Mod77

Comme je me suis peut-être mal exprimé ou mal exprimé mon problème, voici les formules en C13, sur lesquelles je bug:

1)

Code:

=(feuil1!E22*8)/4

2)

Code:

=feuil1!D25+feuil1!D26

Je souhaite donc que la formule en place devienne:

1')

Code:

=(feuil1!E42*8)/4

2')

Code:

=feuil1!D45+feuil1!D46

Pour avoir 1') j'ai écris:

Code:

ActiveWorkbook.Sheets(feuil3).Range("C13").FormulaLocal = (Left(Sheets(feuil3).Range("C13").FormulaLocal, 10)) & (Split(Sheets(feuil3).Range("C13").FormulaLocal, "D")(1) + 20)

ça marche
mais pour la 2) je bug completement :?:(
05/01/2020, 18h41
Patrice740

Bonjour,

Dans l'ordre :
- Copier / coller le tableau budget 20 lignes en dessous
- Copier le tableau personnel de la feuille 2 / coller 20 lignes en dessous sur la feuille 3
- Couper le tableau de la feuille 3 / coller 20 lignes au dessus sur la feuille 3

Pas besoin de VBA
05/01/2020, 19h31
Mod77

Bonsoir Patrice740,
Il y a mieux encore c'est en copiant et collant les tableaux dans une autre feuille comme ça les coordonnées des formules ne changent pas;-)
Mais par souci de non étalement des feuilles copiées j'ai préféré créer les budgets dans la même feuille les uns sous les autres avec toujours le même nombre de lignes de séparation (20) et et de créer les tableaux 'personnel' dans des feuilles différentes chaque année.
D'où ma galère de décalage de 20 pour les formules :-(

mon bug est simplement sur l'addition de 20 lignes...
06/01/2020, 00h28
Patrice740

Re,

J'avais cru comprendre que :
- le tableau personnel de la feuill2 prend des infos dans le 1er tableau budget (feuil1)
- tu voulais ajouter un tableau personnel sur la feuill3 qui prend des infos dans un 2ème tableau budget qui se trouve 20 lignes en dessous du premier (feuil1)

Si c'est le cas, il suffit d'appliquer la méthode que je t'ai donné, Excel se charge "d'ajouter 20 lignes" à toutes les formules du tableau personnel qui sont liées à la feuille 1

Merci Patrice740 pour votre aide,
Mais je dois passer par VBA.

J'ai avancé avec ceci mais il bug sur la dernière ligne avec une erreur 1004 définie par l'application ou l'objet

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
    '=0.25*(Budgets!E45+Budgets!E46)
    formule = Sheets("feuil1").Range("D17").FormulaLocal

    '=0,25*(Budgets!E45
    part1 = Left(formule, 16) & Mid(formule, (InStr(formule, "E") + 1), InStr(formule, "+") - (InStr(formule, "E") + 1)) + 20     'passe à E65

    '+Budgets!E46)
    part2 = "+" & Left(Split(formule, "+")(1), 14) '& Split(formule, "E")(2)

    part2 = Left(part2, 10) & Mid(part2, (InStr(part2, "E") + 1), InStr(part2, ")") - (InStr(part2, "E") + 1)) + 20 & ")"     'passe à E66

    'reconstitution de la formule complète
    Range("H15") = part1 & part2 <- Bug erreur 1004

Quelqu'un serait-il m'éclairer SVP ?

19/01/2020, 13h17
Mod77
J'ai enfin trouvé ce qui n'allait pas:
Code:

1 2 Range("H15").Formulalocal = part1 & part2