For Each c In Selection c.Value = (Right(c.Value, 1) & Left(c.Value, Len(c.Value) - 1)) c.Value = c.Value + 0 Next
Camille
oui c'est ça j'ai des espaces après les nombre. En fait mon point de départ est que j'ai des nombres écrit comme ceci : 33- 169,35- 4,12- et je dois obtenir ceci : -33 -169,35 -4,12 etc
je bloque...
merci par avance pour l'aide aportée a+ "MichDenis" a écrit dans le message de news:
Dans tes cellules nombres tu dois avoir le caractère (code ascii 0) Ce dernier est invisible car il représente un "espace" semblable à celui généré par la touche "barre d'espacement"
L'insertion de ce caractère dans les données nombres est fréquent lorsque l'on importe des data d'une application à l'autre.
Pour t'en défaire, utilise la fonction "Replace" Range("A1:A10").Replace Chr(160), ""
Ensuite tu pourras créer et exécuter ta macro.
"boblebob" <a> a écrit dans le message de news:
bjr, je cherche à transformer des "nombres-texte" en "vrai" nombre. Et ça marche pas :
Dim C
For Each C In Selection.Range
If Not IsNumeric(C.Value) Then IsNumeric (C.Value) End If
Next C
une idée svp ? merci a+
Ben fallait le dire tout de suite...
For Each c In Selection
c.Value = (Right(c.Value, 1) & Left(c.Value, Len(c.Value) - 1))
c.Value = c.Value + 0
Next
Camille
oui c'est ça j'ai des espaces après les nombre. En fait mon point de départ
est que j'ai des nombres écrit comme ceci :
33-
169,35-
4,12-
et je dois obtenir ceci :
-33
-169,35
-4,12
etc
je bloque...
merci par avance pour l'aide aportée
a+
"MichDenis" <michdenis@hotmail.com> a écrit dans le message de news:
ewhP77PMIHA.1164@TK2MSFTNGP02.phx.gbl...
Dans tes cellules nombres tu dois avoir le caractère (code ascii 0)
Ce dernier est invisible car il représente un "espace" semblable à celui
généré par la touche "barre d'espacement"
L'insertion de ce caractère dans les données nombres est fréquent lorsque
l'on importe des data d'une application à l'autre.
Pour t'en défaire, utilise la fonction "Replace"
Range("A1:A10").Replace Chr(160), ""
Ensuite tu pourras créer et exécuter ta macro.
"boblebob" <a> a écrit dans le message de news:
e7SS9lPMIHA.1188@TK2MSFTNGP04.phx.gbl...
bjr,
je cherche à transformer des "nombres-texte" en "vrai" nombre.
Et ça marche pas :
Dim C
For Each C In Selection.Range
If Not IsNumeric(C.Value) Then
IsNumeric (C.Value)
End If
For Each c In Selection c.Value = (Right(c.Value, 1) & Left(c.Value, Len(c.Value) - 1)) c.Value = c.Value + 0 Next
Camille
oui c'est ça j'ai des espaces après les nombre. En fait mon point de départ est que j'ai des nombres écrit comme ceci : 33- 169,35- 4,12- et je dois obtenir ceci : -33 -169,35 -4,12 etc
je bloque...
merci par avance pour l'aide aportée a+ "MichDenis" a écrit dans le message de news:
Dans tes cellules nombres tu dois avoir le caractère (code ascii 0) Ce dernier est invisible car il représente un "espace" semblable à celui généré par la touche "barre d'espacement"
L'insertion de ce caractère dans les données nombres est fréquent lorsque l'on importe des data d'une application à l'autre.
Pour t'en défaire, utilise la fonction "Replace" Range("A1:A10").Replace Chr(160), ""
Ensuite tu pourras créer et exécuter ta macro.
"boblebob" <a> a écrit dans le message de news:
bjr, je cherche à transformer des "nombres-texte" en "vrai" nombre. Et ça marche pas :
Dim C
For Each C In Selection.Range
If Not IsNumeric(C.Value) Then IsNumeric (C.Value) End If
Next C
une idée svp ? merci a+
MichDenis
Excellente proposition de l'utilisation de la fonction de conversion CDBL().
Ma question : que se passerait-il si l'usager avait utilisé le "point" comme séparateur décimale dans le panneau de configuration au lieu de la virgule ?
Je n'ai pas fait le test explicitement sur la problématique proposée, mais CDBL() utilise le séparateur décimale du panneau de configuration... sinon semble-t-il, il éprouve des difficultés !
"JB" a écrit dans le message de news:
Bonjour,
For Each c In Selection c.Value = CDbl(c.Text) Next c
JB
On 27 nov, 15:21, "boblebob" <a> wrote:
oui c'est ça j'ai des espaces après les nombre. En fait mon point de départ est que j'ai des nombres écrit comme ceci : 33- 169,35- 4,12- et je dois obtenir ceci : -33 -169,35 -4,12 etc
je bloque...
merci par avance pour l'aide aportée a+ "MichDenis" a écrit dans le message de news:
Dans tes cellules nombres tu dois avoir le caractère (code ascii 0) Ce dernier est invisible car il représente un "espace" semblable à celui généré par la touche "barre d'espacement"
L'insertion de ce caractère dans les données nombres est fréquent lorsque l'on importe des data d'une application à l'autre.
Pour t'en défaire, utilise la fonction "Replace" Range("A1:A10").Replace Chr(160), ""
Ensuite tu pourras créer et exécuter ta macro.
"boblebob" <a> a écrit dans le message de news:
bjr, je cherche à transformer des "nombres-texte" en "vrai" nombre. Et ça marche pas :
Dim C
For Each C In Selection.Range
If Not IsNumeric(C.Value) Then IsNumeric (C.Value) End If
Next C
une idée svp ? merci a+- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -
Excellente proposition de l'utilisation de la fonction de conversion CDBL().
Ma question : que se passerait-il si l'usager avait utilisé le "point" comme
séparateur décimale dans le panneau de configuration au lieu de la virgule ?
Je n'ai pas fait le test explicitement sur la problématique proposée, mais CDBL()
utilise le séparateur décimale du panneau de configuration... sinon semble-t-il, il
éprouve des difficultés !
"JB" <boisgontier@hotmail.com> a écrit dans le message de news:
8bcad7d7-bc9f-483f-a747-ded2146c3271@b15g2000hsa.googlegroups.com...
Bonjour,
For Each c In Selection
c.Value = CDbl(c.Text)
Next c
JB
On 27 nov, 15:21, "boblebob" <a> wrote:
oui c'est ça j'ai des espaces après les nombre. En fait mon point de départ
est que j'ai des nombres écrit comme ceci :
33-
169,35-
4,12-
et je dois obtenir ceci :
-33
-169,35
-4,12
etc
je bloque...
merci par avance pour l'aide aportée
a+
"MichDenis" <michde...@hotmail.com> a écrit dans le message de news:
ewhP77PMIHA.1...@TK2MSFTNGP02.phx.gbl...
Dans tes cellules nombres tu dois avoir le caractère (code ascii 0)
Ce dernier est invisible car il représente un "espace" semblable à celui
généré par la touche "barre d'espacement"
L'insertion de ce caractère dans les données nombres est fréquent lorsque
l'on importe des data d'une application à l'autre.
Pour t'en défaire, utilise la fonction "Replace"
Range("A1:A10").Replace Chr(160), ""
Ensuite tu pourras créer et exécuter ta macro.
"boblebob" <a> a écrit dans le message de news:
e7SS9lPMIHA.1...@TK2MSFTNGP04.phx.gbl...
bjr,
je cherche à transformer des "nombres-texte" en "vrai" nombre.
Et ça marche pas :
Dim C
For Each C In Selection.Range
If Not IsNumeric(C.Value) Then
IsNumeric (C.Value)
End If
Next C
une idée svp ?
merci
a+- Masquer le texte des messages précédents -
Excellente proposition de l'utilisation de la fonction de conversion CDBL().
Ma question : que se passerait-il si l'usager avait utilisé le "point" comme séparateur décimale dans le panneau de configuration au lieu de la virgule ?
Je n'ai pas fait le test explicitement sur la problématique proposée, mais CDBL() utilise le séparateur décimale du panneau de configuration... sinon semble-t-il, il éprouve des difficultés !
"JB" a écrit dans le message de news:
Bonjour,
For Each c In Selection c.Value = CDbl(c.Text) Next c
JB
On 27 nov, 15:21, "boblebob" <a> wrote:
oui c'est ça j'ai des espaces après les nombre. En fait mon point de départ est que j'ai des nombres écrit comme ceci : 33- 169,35- 4,12- et je dois obtenir ceci : -33 -169,35 -4,12 etc
je bloque...
merci par avance pour l'aide aportée a+ "MichDenis" a écrit dans le message de news:
Dans tes cellules nombres tu dois avoir le caractère (code ascii 0) Ce dernier est invisible car il représente un "espace" semblable à celui généré par la touche "barre d'espacement"
L'insertion de ce caractère dans les données nombres est fréquent lorsque l'on importe des data d'une application à l'autre.
Pour t'en défaire, utilise la fonction "Replace" Range("A1:A10").Replace Chr(160), ""
Ensuite tu pourras créer et exécuter ta macro.
"boblebob" <a> a écrit dans le message de news:
bjr, je cherche à transformer des "nombres-texte" en "vrai" nombre. Et ça marche pas :
Dim C
For Each C In Selection.Range
If Not IsNumeric(C.Value) Then IsNumeric (C.Value) End If
Next C
une idée svp ? merci a+- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -
boblebob
j'ai pas eu le temps de tester la réponse de JB et de Ellimac je vais essayer demain. En tout cas merci à eux ! "MichDenis" a écrit dans le message de news:
Excellente proposition de l'utilisation de la fonction de conversion CDBL().
Ma question : que se passerait-il si l'usager avait utilisé le "point" comme séparateur décimale dans le panneau de configuration au lieu de la virgule ?
Je n'ai pas fait le test explicitement sur la problématique proposée, mais CDBL() utilise le séparateur décimale du panneau de configuration... sinon semble-t-il, il éprouve des difficultés !
"JB" a écrit dans le message de news:
Bonjour,
For Each c In Selection c.Value = CDbl(c.Text) Next c
JB
On 27 nov, 15:21, "boblebob" <a> wrote:
oui c'est ça j'ai des espaces après les nombre. En fait mon point de départ est que j'ai des nombres écrit comme ceci : 33- 169,35- 4,12- et je dois obtenir ceci : -33 -169,35 -4,12 etc
je bloque...
merci par avance pour l'aide aportée a+ "MichDenis" a écrit dans le message de news:
Dans tes cellules nombres tu dois avoir le caractère (code ascii 0) Ce dernier est invisible car il représente un "espace" semblable à celui généré par la touche "barre d'espacement"
L'insertion de ce caractère dans les données nombres est fréquent lorsque l'on importe des data d'une application à l'autre.
Pour t'en défaire, utilise la fonction "Replace" Range("A1:A10").Replace Chr(160), ""
Ensuite tu pourras créer et exécuter ta macro.
"boblebob" <a> a écrit dans le message de news:
bjr, je cherche à transformer des "nombres-texte" en "vrai" nombre. Et ça marche pas :
Dim C
For Each C In Selection.Range
If Not IsNumeric(C.Value) Then IsNumeric (C.Value) End If
Next C
une idée svp ? merci a+- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -
j'ai pas eu le temps de tester la réponse de JB et de Ellimac je vais
essayer demain.
En tout cas merci à eux !
"MichDenis" <michdenis@hotmail.com> a écrit dans le message de news:
uUHmcLSMIHA.4880@TK2MSFTNGP03.phx.gbl...
Excellente proposition de l'utilisation de la fonction de conversion
CDBL().
Ma question : que se passerait-il si l'usager avait utilisé le "point"
comme
séparateur décimale dans le panneau de configuration au lieu de la virgule
?
Je n'ai pas fait le test explicitement sur la problématique proposée, mais
CDBL()
utilise le séparateur décimale du panneau de configuration... sinon
semble-t-il, il
éprouve des difficultés !
"JB" <boisgontier@hotmail.com> a écrit dans le message de news:
8bcad7d7-bc9f-483f-a747-ded2146c3271@b15g2000hsa.googlegroups.com...
Bonjour,
For Each c In Selection
c.Value = CDbl(c.Text)
Next c
JB
On 27 nov, 15:21, "boblebob" <a> wrote:
oui c'est ça j'ai des espaces après les nombre. En fait mon point de
départ
est que j'ai des nombres écrit comme ceci :
33-
169,35-
4,12-
et je dois obtenir ceci :
-33
-169,35
-4,12
etc
je bloque...
merci par avance pour l'aide aportée
a+
"MichDenis" <michde...@hotmail.com> a écrit dans le message de news:
ewhP77PMIHA.1...@TK2MSFTNGP02.phx.gbl...
Dans tes cellules nombres tu dois avoir le caractère (code ascii 0)
Ce dernier est invisible car il représente un "espace" semblable à
celui
généré par la touche "barre d'espacement"
L'insertion de ce caractère dans les données nombres est fréquent
lorsque
l'on importe des data d'une application à l'autre.
Pour t'en défaire, utilise la fonction "Replace"
Range("A1:A10").Replace Chr(160), ""
Ensuite tu pourras créer et exécuter ta macro.
"boblebob" <a> a écrit dans le message de news:
e7SS9lPMIHA.1...@TK2MSFTNGP04.phx.gbl...
bjr,
je cherche à transformer des "nombres-texte" en "vrai" nombre.
Et ça marche pas :
Dim C
For Each C In Selection.Range
If Not IsNumeric(C.Value) Then
IsNumeric (C.Value)
End If
Next C
une idée svp ?
merci
a+- Masquer le texte des messages précédents -
j'ai pas eu le temps de tester la réponse de JB et de Ellimac je vais essayer demain. En tout cas merci à eux ! "MichDenis" a écrit dans le message de news:
Excellente proposition de l'utilisation de la fonction de conversion CDBL().
Ma question : que se passerait-il si l'usager avait utilisé le "point" comme séparateur décimale dans le panneau de configuration au lieu de la virgule ?
Je n'ai pas fait le test explicitement sur la problématique proposée, mais CDBL() utilise le séparateur décimale du panneau de configuration... sinon semble-t-il, il éprouve des difficultés !
"JB" a écrit dans le message de news:
Bonjour,
For Each c In Selection c.Value = CDbl(c.Text) Next c
JB
On 27 nov, 15:21, "boblebob" <a> wrote:
oui c'est ça j'ai des espaces après les nombre. En fait mon point de départ est que j'ai des nombres écrit comme ceci : 33- 169,35- 4,12- et je dois obtenir ceci : -33 -169,35 -4,12 etc
je bloque...
merci par avance pour l'aide aportée a+ "MichDenis" a écrit dans le message de news:
Dans tes cellules nombres tu dois avoir le caractère (code ascii 0) Ce dernier est invisible car il représente un "espace" semblable à celui généré par la touche "barre d'espacement"
L'insertion de ce caractère dans les données nombres est fréquent lorsque l'on importe des data d'une application à l'autre.
Pour t'en défaire, utilise la fonction "Replace" Range("A1:A10").Replace Chr(160), ""
Ensuite tu pourras créer et exécuter ta macro.
"boblebob" <a> a écrit dans le message de news:
bjr, je cherche à transformer des "nombres-texte" en "vrai" nombre. Et ça marche pas :
Dim C
For Each C In Selection.Range
If Not IsNumeric(C.Value) Then IsNumeric (C.Value) End If
Next C
une idée svp ? merci a+- Masquer le texte des messages précédents -