Discussion :

[ERICKO]

Salut
j ai une macro qui copie les valeurs d une feuille vers une autre.
mais lorsque je ne met pas manuellement le format de mes cellules a standard la formulle s affiche dans la cellule ou j ai introduit la formule et non le resultat de ces formule.
Comment mettre a l aide d une macro le format de mes cellules a standard avant d y mettre les formules?
merci

[Bigalo]

Bonsoir,

Tu dis que la macro copie les valeurs, puis un peu plus loin "la cellule où j’ai introduit la formule".

Ce serait plus facile si tu indiquais ton code VBA.

[fred65200]

bonjour

utilise Coller Valeur

Code :

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

1
2
 
...........PasteSpecial Paste:=xlPasteValues

cordialement

[ERICKO]

voici la partie qui me derange

Code :

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

1
2
3
4
5
6
 
 
For j = 1 To 11
             position = "='fenster1'!C" & CStr(j)
             Sheets(fenster2).Cells(j, 1).Formula = position
     Next

Lorsque je ne met pas le format de toutes mes cellules a standard avant de lancer la macro j obtiens par exemple dans la cellule C2

Code :

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

1
2
3
 
 
"='fenster1'!C2"

et non la valeur qu elle contient.
comment mettre le format de la á standard .
merci

[fred65200]

bonjour,

essaie

Code :

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

[c2].NumberFormat = "General"

mais ça semble surprenant, l'idéal serai de savoir comment tu copies tes valeurs

cordialement

[Bigalo]

Re,

Chez moi, ton code fonctionne directement.

Es-tu sûr que tes cellules ne sont au départ au format Texte ? Cela expliquerait ce que tu décris et serait normal, puisque le rôle du format texte est de ne pas interprêter ce qui est entré dans la cellule ainsi formatée.

[ERICKO]

Merci a tous
ca marche avec

Code :

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

1
2
3
4
5
6
 
For j = 1 To 11
             position = "='fenster1'!C" & CStr(j)
             Sheets("fenster2").Cells(j, 1).NumberFormat = "General"
             Sheets("fenster2"Cells(j, 1).Formula = position
     Next

effectivement le format des mes cellules etait au format TEXT