comment récupérer un contenue de cellule dans son format

bonjour,

j'ai une cellule qui a un format 000.
si je saisis 3 j'aurais 003 d'affiché.
lors d'une copy dans un fichier texte je récupere juste 3 et que je voudrais avoir 003.
comment fiare

x = 000 c'est du numerique

Si tu tape 3 tu as 003 numerique

et quand tu copie sur du texte le numerique enleve ce qui ne sert à rien

Donc au moment de copier transforme x en string

Code:

---

1 2	y = cstr(x)

---

Tu trouveras des info sur ce code dans ce forum.

Autre possibillité :

Si tu veux récuperer le format de la cellule que tu copie,
on nommera cette cellule LaCellCopiee
le format FormatDLaCell

Code:

---

1 2 3 4 5 6 7

Sub CopieAvecFormat(LaCellCopiee as Range) Dim FormatDLaCell as String Dim Valeur   FormatDLaCell = LaCellCopiee .NumberFormat Valeur = LaCellCopiee.Value End Sub

---

tu pourras donc avoir la valeur et le format de la cellule que tu as copiée

ensuite pour coller tu fais dans le sens inverse
CelluleOuOnColle sera ... la cellule où on colle ^^ (dsl ;D)

Code:

---

1 2 3 4

Sub CollerAvecFormat(CelluleOuOnColle) CelluleOuOnColle.Value = Valeur CelluleOuOnColle.NumberFormat = FormatDLaCell End Sub

---

si tu as des questions .. ;)

merci pour votre aide

finalement je fais comme suit :

Code:

---

MaVar = (Sheets("mafeuil").Cells(1, 2).Text)

---

et ça marche

par contre j'ai retenue vos solution pour d'autre traitements

Pourquoi pas ça?

Code:

---

1 2	Range("A1").Copy Range("B1").PasteSpecial Paste:=xlPasteValuesAndNumberFormats

---

:arf:

Et si la solution est bonne, marques la discussion comme étant Résolue s'il-te-plait.;)

c'est vrai que c'est pas mal comme ça aussi.

c'est juste pour de la lisibilité par des débutant complet que je le laisse comme ça

T'as toujours pas marqué la discussion comme étant résolue.

Et, pour ma part, je crois que mëme un débutant devrait comprendre et se servir des fonctionnalités de VBA-Excel quand elles existent.

A+;)

oki