Discussion :

[mizou00]

Bonsoir à tous,

j'ai un petit soucis si vous pouvez m'aider

j'ai fait une macro à l'aide de l'enregistreur qui copie d'une plage de cellule vers une autre feuille
Cette plage de cellule contient des équations qui diffèrent bien évidement d'une cellule a une autre, le probleme c ke quand je copie une plage de cellule A:A vers une plage de cellule d'une autre feuille B:B, les valeurs sont erronées mais si les plages de cellules sont identiques ca marche ( A:A vers A:A d'une autre feuille)
Voici ma macro :

Code :

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

1
2
3
4
5
6
Sheets("Feuil1").Select
    Columns("B:B").Select
    Selection.Copy
    Sheets("Feuil3").Select
    Columns("C:C").Select
    ActiveSheet.Paste

Merci de m'aider

[mayekeul]

bonjour,

quelles sont les formules à copier?
peut-être devrait tu fixer les références dans les formules??

[mizou00]

J'ai des formules de ce genre :

Code :

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

1
2
 
.Range("A" & j).FormulaR1C1 = "=('Données(4)'!R[3]C[113]+'Données(4)'!R[3]C[115]+'Données(4)'!R[3]C[101]+'Données(4)'!R[3]C[103]+'Données(4)'!R[3]C[105]+'Données(4)'!R[3]C[107])"

[mayekeul]

tu as déjà essayé en en fixant la relativité de la formule

genre comme ça

Code :

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

=R[3]C12-R[3]C14

plutot que

Code :

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

=R[3]C[2]-R[3]C[3]

[mizou00]

J'ai réussi à le faire il me reste les graphes et je finis !!

Code :

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

Sheets("Graphe").Columns("C:C").Value = Sheets("GSM").Columns("B:B").Value

Merci beaucoup pour ton aide