Formule avec valeur absolue

[creepy]

Bonjour à toutes & tous,

Je voudrais dans un ensemble de cellules selectionnées ecrire la formule suivante :

Par exemple en D7 = A7/$A$7

Je sais bien faire mon bon vieux for each ... in selection
etc ....

Par contre je ne sais pas comment lui dire d'ecrire la formule colonne-3 / $colonne $-3

Merci d'avance

++

Creepy

 

[JCA06]

Salut Creepy,

Tu peux essayer avec l'enregistreur de macro.

C'est de cette façon que j'avais obtenu la propriété FORMULAR1C1.

Dans ton exemple, voilà ce que ça devrait donner :

.FormulaR1C1 = "=+RC[-3]/R71]"

 

[sousou]

Bonjour Creepy

Utilise la fonction formulalocal
pas besoin de each avec sélection

Selection.FormulaLocal = "=lc(-2)/l7c1"

Bonne chance, si j'ai bien compris ta demande

 

[Abel]

Bonjour creepy,

Je viens d'essayer avec l'enregistreur qui me donne ça :

ActiveCell.FormulaR1C1 = "=RC[2]/R4C[3]" :

RC[2] : la même ligne et deux colonnes à droite de la cellule active
R4C[3] : la quatrième ligne à partir de 1 (donc ligne 4 de la feuille) et trois colonnes à droite de la cellule active.

Donc pour toi, à priori, un truc du genre :

si la formule "A7/$A$7" est en D7 :
Range ("d7").Select
ActiveCell.FormulaR1C1 = "=RC[-3]/R7C1"


En espérant que cela te dépanne.

Abel

 

[Yeahou]

Bonjour Creepy, le forum

pour ton exemple précis

Range("D7").FormulaR1C1 = "=RC[-3]/R7C1"

Cordialement, A+

 

[Yeahou]

Bonjour JCA06, sousou, Abel

je me suis encore fait avoir avec l'actualisation

A+

 

[Abel]

Pas d'mal Yeahou !

Tou'manière, pareil !

A+

Abel