macro de copie

Bonjour à tous,
je ne connais vraiment pas grand chose aux macros excel, mais j'ai le probleme suivant :
J'ai un doc excel et je veux à l'ouverture copier le contenu d'une cellule dans une autre...pas sorcier à priori...
Mais apparemment j'ai fait un truc de travers, ca ne marche pas.
Si vous pouvez me dire pourquoi :

Code:

---

1 2 3 4 5 6

Rows("2:2").Insert Shift:=xlDown Range("A2").FormulaR1C1 = "Date" Range("A2:B2").Font.Bold = True Range("C2").FormulaR1C1 = "'" + Str(Range("FI4").Value) Columns("FI:FI").Delete Shift:=xlToLeft

---

Ma cellule FI4 contient la bonne valeur, mais dans C2 j'ai '0

Merci de votre aide

salut,
tu cherches à modifier une liste de valeurs, ou bien une seule ?
le code que tu nous proposes, c'est toi qui l'a fait ou tu l'a récupéré de quelque part ? ^^

Salut
en fait toute ma colonne FI contient la meme donnée dans toutes les lignes, donc je prends la valeur de FI4 (premiere valeur puisque dans FI 1-2-3 j'ai des entetes), je copie dans C2 et puis je vire ma colonne FI4 qui ne me sert qu'à récup la valeur à copier.
C'est un code qui existait deja à la base, et marchait apparemment, mais comme j'ai modifié le doc excel, j'ai juste changé le nom de colonne (FI à la place de EV), et paf, ca marche plus...

Donc je m'interroge...quand j'ouvre mon doc sans activer les macro, dans ma colonne FI, et ma cellule FI4 j'ai bien la bonne donnée pourtant :'(

EDIT : rectification de mon premier post - en fait C2 ne contient meme pas '0...elle contient rien du tout :'(

Bonjour Nox75,

Si j'ai bien compris, au départ la valeur que vous voulez copier en C2 se trouve en FI4.

Citation:

---

donc je prends la valeur de FI4 (premiere valeur puisque dans FI 1-2-3 j'ai des entetes

---

Or dans votre code, vous insérez une ligne à partir de la ligne 2, donc votre valeur ne doit plus se trouver en FI4 mais en FI5 ?

Code:

---

1 2 3 4 5 6 7

Rows("2:2").Insert Shift:=xlDown     Range("A2").FormulaR1C1 = "Date" Range("A2:B2").Font.Bold = True Range("C2").FormulaR1C1 = "'" + Str(Range("FI4").Value) Columns("FI:FI").Delete Shift:=xlToLeft

---

Citation:

---

Envoyé par jacques_jean

Or dans votre code, vous insérez une ligne à partir de la ligne 2, donc votre valeur ne doit plus se trouver en FI4 mais en FI5 ?

---

Bonjour, et merci de votre réponse
Mais malheureusement non, j'ai bien pris cette insertion en compte, et quand je dis que ma valeur se trouve bien dans FI4 lorsque je désactive les macros, c'est en tenant compte de la ligne insérée.

je ne COMPRENDS PAS :'(

je viens de me taper un comparatif des 2 versions avec winmerge (avant mes changements - quand ca marchait - et apres mes changements) et il n'y a vraiment que les noms de colonnes qui changent !

Remplace

Code:

---

Range("C2").FormulaR1C1 = "'" + Str(Range("FI4").Value)

---

par

Code:

---

Range("C2").Value = "'" & cStr(Range("FI4").Value)

---

Si c'est une formule que tu copies alors tu dois copier la cellule, pas utiliser une simple égalité.
Tu dis
A+

Yes ! ca marche ! Merci beaucoup !
mais c'est pas une formule que je copie pourtant 8O
Et ca marchait avant, alors que le contenu de la cellule est toujours le meme (??)

Enfin bref, l'essentiel est que ca marche maintenant.

Encore merci !