Valeur tronquée

Le
Jacques
Bonjour,

J'ai une cellule au format texte. Cette cellule contient "030".

Lorsque je récupère sa valeur, je perd le premier 0 et je me retrouve avec
la valeur "30"
( ValCode = ThisWorkbook.Sheets("Resultats").Cells(J, 2).Value)

Comment garder le texte au complet lorsque je récupère la valeur de la
cellule ?

Merci de vos réponses


Jacques
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
francois.forcet
Le #5329461
On 25 mar, 15:03, "Jacques"
Bonjour,

J'ai une cellule au format texte. Cette cellule contient "030".

Lorsque je récupère sa valeur, je perd le premier 0 et je me retrouve avec
la valeur "30"
( ValCode = ThisWorkbook.Sheets("Resultats").Cells(J, 2).Value)

Comment garder le texte au complet lorsque je récupère la valeur de la
cellule ?

Merci de vos réponses

Jacques


Salut Jacques
Si ta cellule est en format texte et qu'elle contient bien la valeur
"030"
avec ta ligne :

ValCode = ThisWorkbook.Sheets("Resultats").Cells(J, 2).Value

Si ta variable J est bien ciblé pour la bonne cellule ValCode est bien
égale à 030

C'est ce que j'obtiens chez moi

JB
Le #5329391
Bonjour

Si format 000 et 30: affiche 030

Pour récupéréer 030:

x = Cells(2, 2).Text

JB
http://boisgontierjacques.free.fr/

On 25 mar, 15:03, "Jacques"
Bonjour,

J'ai une cellule au format texte. Cette cellule contient "030".

Lorsque je récupère sa valeur, je perd le premier 0 et je me retrouve avec
la valeur "30"
( ValCode = ThisWorkbook.Sheets("Resultats").Cells(J, 2).Value)

Comment garder le texte au complet lorsque je récupère la valeur de la
cellule ?

Merci de vos réponses

Jacques


Tatanka
Le #5328931
Salut Jacques,

Un exemple simplifié :
Si la cellule B10 contient 030, cette macro récupère
cette valeur correctement ( MsgBox v ) mais pour
la transférer dans une autre cellule, tu dois d'abord
la formater « texte ».

Sub Récupère()
j = 10
v = Cells(j, 2)
MsgBox v
Cells(j, 3).NumberFormat = "@"
Cells(j, 3) = v
End Sub

Serge


"Jacques"
Bonjour,

J'ai une cellule au format texte. Cette cellule contient "030".

Lorsque je récupère sa valeur, je perd le premier 0 et je me retrouve avec
la valeur "30"
( ValCode = ThisWorkbook.Sheets("Resultats").Cells(J, 2).Value)

Comment garder le texte au complet lorsque je récupère la valeur de la
cellule ?

Merci de vos réponses


Jacques




Publicité
Poster une réponse
Anonyme