Bonjour Tout le monde
Je cherche =E0 convertie des cellules de nombre en nombre stock=E9s au
format texte
Par exemple, la cellule contient 1 affiche sous la forme 1,00 EURO .
Je souhaiterais que la ma macro transforme en '1,00 EURO
Or la formule
Macell.Value =3D "'" & Format(Macell.Value,
Range(ActiveCell.Address).NumberFormat)
renvoie la valeur '_-1.00 F_-
Est ce qu'il y aurait une propri=E9t=E9 qui renvoie le format tel qu'on le
voit ??
Car sinon, il faut analyser le format et supprimer les "_" , les "-",
et cela me parait une usine =E0 gaz
D'avance Merci
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Tatanka
Salut,
Essaie ceci :
Sub Format_Personnalisé_En_Texte() For Each v In Selection v.Value = v.Text Next v End Sub
Serge
"loamar67" a écrit dans le message de news: Bonjour Tout le monde Je cherche à convertie des cellules de nombre en nombre stockés au format texte Par exemple, la cellule contient 1 affiche sous la forme 1,00 EURO . Je souhaiterais que la ma macro transforme en '1,00 EURO Or la formule Macell.Value = "'" & Format(Macell.Value, Range(ActiveCell.Address).NumberFormat) renvoie la valeur '_-1.00 F_- Est ce qu'il y aurait une propriété qui renvoie le format tel qu'on le voit ?? Car sinon, il faut analyser le format et supprimer les "_" , les "-", et cela me parait une usine à gaz D'avance Merci
Salut,
Essaie ceci :
Sub Format_Personnalisé_En_Texte()
For Each v In Selection
v.Value = v.Text
Next v
End Sub
Serge
"loamar67" <loamar67@yahoo.fr> a écrit dans le message de news: ed2a90c9-fc3a-4d03-b40f-c7ce36169b2a@e6g2000prf.googlegroups.com...
Bonjour Tout le monde
Je cherche à convertie des cellules de nombre en nombre stockés au
format texte
Par exemple, la cellule contient 1 affiche sous la forme 1,00 EURO .
Je souhaiterais que la ma macro transforme en '1,00 EURO
Or la formule
Macell.Value = "'" & Format(Macell.Value,
Range(ActiveCell.Address).NumberFormat)
renvoie la valeur '_-1.00 F_-
Est ce qu'il y aurait une propriété qui renvoie le format tel qu'on le
voit ??
Car sinon, il faut analyser le format et supprimer les "_" , les "-",
et cela me parait une usine à gaz
D'avance Merci
Sub Format_Personnalisé_En_Texte() For Each v In Selection v.Value = v.Text Next v End Sub
Serge
"loamar67" a écrit dans le message de news: Bonjour Tout le monde Je cherche à convertie des cellules de nombre en nombre stockés au format texte Par exemple, la cellule contient 1 affiche sous la forme 1,00 EURO . Je souhaiterais que la ma macro transforme en '1,00 EURO Or la formule Macell.Value = "'" & Format(Macell.Value, Range(ActiveCell.Address).NumberFormat) renvoie la valeur '_-1.00 F_- Est ce qu'il y aurait une propriété qui renvoie le format tel qu'on le voit ?? Car sinon, il faut analyser le format et supprimer les "_" , les "-", et cela me parait une usine à gaz D'avance Merci
Youky
Un exemple..... [B1] = CStr(Format([A1], "#,##0.00 Euro")) Youky
Un exemple.....
[B1] = CStr(Format([A1], "#,##0.00 Euro"))
Youky
Un exemple..... [B1] = CStr(Format([A1], "#,##0.00 Euro")) Youky
Modeste
Bonsour® loamar67 avec ferveur ;o))) vous nous disiez :
Je cherche à convertie des cellules de nombre en nombre stockés au format texte Par exemple, la cellule contient 1 affiche sous la forme 1,00 EURO . Je souhaiterais que la ma macro transforme en '1,00 EURO
Function FixTexte(target) Application.Volatile FixTexte = "'" & target.Text End Function
-- -- @+ ;o)))
Bonsour® loamar67 avec ferveur ;o))) vous nous disiez :
Je cherche à convertie des cellules de nombre en nombre stockés au
format texte
Par exemple, la cellule contient 1 affiche sous la forme 1,00 EURO .
Je souhaiterais que la ma macro transforme en '1,00 EURO
Function FixTexte(target)
Application.Volatile
FixTexte = "'" & target.Text
End Function
Bonsour® loamar67 avec ferveur ;o))) vous nous disiez :
Je cherche à convertie des cellules de nombre en nombre stockés au format texte Par exemple, la cellule contient 1 affiche sous la forme 1,00 EURO . Je souhaiterais que la ma macro transforme en '1,00 EURO
Function FixTexte(target) Application.Volatile FixTexte = "'" & target.Text End Function
-- -- @+ ;o)))
loamar67
Merci ! Bien sur, il falait utiliser ma propriété Text J'ai ajouté Trim pour enlever les blancs et c'est PARFAIT
Merci !
Bien sur, il falait utiliser ma propriété Text
J'ai ajouté Trim pour enlever les blancs et c'est PARFAIT
