Discussion :

[fstrobel]

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

[scully2501]

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 :

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

1
2
 
y = cstr(x)

Tu trouveras des info sur ce code dans ce forum.

[mordrhim]

Autre possibillité :

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

Code :

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

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 :

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

1
2
3
4
Sub CollerAvecFormat(CelluleOuOnColle)
    CelluleOuOnColle.Value = Valeur
    CelluleOuOnColle.NumberFormat = FormatDLaCell
End Sub

si tu as des questions ..

[fstrobel]

merci pour votre aide

finalement je fais comme suit :

Code :

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

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

et ça marche

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

[Singular]

Pourquoi pas ça?

Code :

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

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

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

[fstrobel]

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

[Singular]

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+

[fstrobel]

oki