Discussion :

[l.flipper]

Bonjour,
J'ai une formule en feuille 2 que je souhaite mettre en feuille 1 à une colonne et ligne différente.

Code :

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

1
2
 
sheets("a").cells(ligA,6)=sheets("b").cells(ligB,8)

Ca ne fonctionne pas, puisque ça me met la valeur et non la formule.
Si j'utilise

Code :

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

1
2
 
sheets("a").cells(ligA,6)=sheets("b").cells(ligB,8).formula

Ca ne fonctionne pas non plus, puisque ça me copie littéralement la formule sans tenir compte du déplacement de ligne ou de colonne.
Comment faire sans passer par un copy/paste ?
Merci

[halaster08]

Ca ne fonctionne pas non plus, puisque ça me copie littéralement la formule sans tenir compte du déplacement de ligne ou de colonne.
Comment faire sans passer par un copy/paste ?
Merci

Bonjour,

Je ne suis pas sur que ce soit possible sans copy/paste, pourquoi cette méthode ne convient pas?

[joe.levrai]

Bonjour,

pourquoi éviter la méthode Copy ?

Code :

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

sheets("b").cells(ligB,8).Copy sheets("a").cells(ligA,6)

[l.flipper]

Bonjour,

pourquoi éviter la méthode Copy ?

Code :

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

sheets("b").cells(ligB,8).Copy sheets("a").cells(ligA,6)

Je voulais savoir si il y avait la possibilité de passer par un "=" mais vous avez raison cette méthode fonctionne parfaitement (je ne savais pas le faire sur une seule ligne de code).
Merci

[Phil'oche]

Salut,

As-tu essayé :

Code :

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

Sheets("a").Cells(ligA, 6).FormulaLocal = Sheets("b").Cells(ligB, 8).FormulaLocal

?

Si tes formules utilisent le même décalage sur le 2 feuilles, tu peux essayer aussi en remplaçant FormulaLocal par FormulaR1C1Local (des 2 côtés du signe "=")

[Phil Free]

Bonjour,

ah oui ! encore une rencontre du grands esprits des Philippe(s)

par contre la méthode copy à l’inconvénient de tout copier de la cellule source comme les bordures la couleur de la cellule etc

Donc si tu ne veux que la formule :

Code :

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

1
2
sheets("b").cells(ligB,8).Copy
sheets("a").cells(ligA,6).PasteSpecial Paste:=xlPasteFormulas