Discussion :

[nox75]

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 :

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

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

[Jean-Philippe André]

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 ? ^^

[nox75]

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 :'(

[Invité]

Bonjour Nox75,

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

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 :

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

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

[nox75]

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 !

[ouskel'n'or]

Remplace

Code :

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

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

par

Code :

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

    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+