Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel Convertir en nombre + VBA

Convertir en nombre + VBA

4 réponses
Avatar
G. L
Bonsoir à toutes et à tous,



Convertir en nombre ou les limites de l'enregistreur de macro !

Suite à divers manip (copiés/collés d'origine différente d'office) j'ai
souvent « Le nombre de cette cellule est en format texte .) comment
convertir à la suite de la macro qui déjà remplace le point par la virgule
comme séparateur décimal

J'ai essayé :

Range(Cells(L, c), Cells(L + 23, c)).Select

Selection.NumberFormat = "# ##0.00"

Merci d'avance.

J'en profite pour vous souhaiter une bonne fin d'année et vous présenter mes
meilleurs voux pour 2005, encore plein de bonnes solutions dans, comme
toujours, la bonne humeur ;)

Très sincèrement.

Gérard

(lecteur assidu)
Signaler un problème avec ce contenu

4 réponses

Supprimer
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
Avatar
Gaenonius
Essaye d'appliquer une opération neutre :

Range(Cells(L, c), Cells(L + 23, c)).Value= _
Range(Cells(L, c), Cells(L + 23, c)).Value*1

--
Gaenonius

Bonsoir à toutes et à tous,



Convertir en nombre ou les limites de l'enregistreur de macro !

Suite à divers manip (copiés/collés d'origine différente d'office) j'ai
souvent « Le nombre de cette cellule est en format texte .) comment
convertir à la suite de la macro qui déjà remplace le point par la virgule
comme séparateur décimal

J'ai essayé :

Range(Cells(L, c), Cells(L + 23, c)).Select

Selection.NumberFormat = "# ##0.00"

Merci d'avance.

J'en profite pour vous souhaiter une bonne fin d'année et vous présenter mes
meilleurs voux pour 2005, encore plein de bonnes solutions dans, comme
toujours, la bonne humeur ;)

Très sincèrement.

Gérard

(lecteur assidu)








Avatar
G. L
Bonjour Gaenonius
Merci pour l'intérêt porté à la question, mais ça ne marche pas.
J'ai enfin trouvé :

Selection.TextToColumns Destination:=Range(Cells(L, c), Cells(L + 23,
c)), DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:úlse,
Tab:=True, _
Semicolon:úlse, Comma:úlse, Space:úlse, Other:úlse,
FieldInfo _
:=Array(1, 1), TrailingMinusNumbers:=True

Merci

Bonne fin d'année

Gérard


"Gaenonius" a écrit dans le message de
news:
Essaye d'appliquer une opération neutre :

Range(Cells(L, c), Cells(L + 23, c)).Value= _
Range(Cells(L, c), Cells(L + 23, c)).Value*1

--
Gaenonius

Bonsoir à toutes et à tous,



Convertir en nombre ou les limites de l'enregistreur de macro !

Suite à divers manip (copiés/collés d'origine différente d'office) j'ai
souvent « Le nombre de cette cellule est en format texte .) comment
convertir à la suite de la macro qui déjà remplace le point par la
virgule


comme séparateur décimal

J'ai essayé :

Range(Cells(L, c), Cells(L + 23, c)).Select

Selection.NumberFormat = "# ##0.00"

Merci d'avance.

J'en profite pour vous souhaiter une bonne fin d'année et vous présenter
mes


meilleurs voux pour 2005, encore plein de bonnes solutions dans, comme
toujours, la bonne humeur ;)

Très sincèrement.

Gérard

(lecteur assidu)










Avatar
Gaenonius
Merci pour l'intérêt porté à la question, mais ça ne marche pas.


Il faut dire que tu n'avais pas signalé que ton problème était lié à
l'importation d'un fichier texte ou csv...
M'enfin, ça me confirme une chose : je suis nul comme devin !

--
Gaenonius

Bonjour Gaenonius
Merci pour l'intérêt porté à la question, mais ça ne marche pas.
J'ai enfin trouvé :

Selection.TextToColumns Destination:=Range(Cells(L, c), Cells(L + 23,
c)), DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:úlse,
Tab:=True, _
Semicolon:úlse, Comma:úlse, Space:úlse, Other:úlse,
FieldInfo _
:=Array(1, 1), TrailingMinusNumbers:=True

Merci

Bonne fin d'année

Gérard


"Gaenonius" a écrit dans le message de
news:

Essaye d'appliquer une opération neutre :

Range(Cells(L, c), Cells(L + 23, c)).Value= _
Range(Cells(L, c), Cells(L + 23, c)).Value*1

--
Gaenonius


Bonsoir à toutes et à tous,



Convertir en nombre ou les limites de l'enregistreur de macro !

Suite à divers manip (copiés/collés d'origine différente d'office) j'ai
souvent « Le nombre de cette cellule est en format texte .) comment
convertir à la suite de la macro qui déjà remplace le point par la



virgule

comme séparateur décimal

J'ai essayé :

Range(Cells(L, c), Cells(L + 23, c)).Select

Selection.NumberFormat = "# ##0.00"

Merci d'avance.

J'en profite pour vous souhaiter une bonne fin d'année et vous présenter



mes

meilleurs voux pour 2005, encore plein de bonnes solutions dans, comme
toujours, la bonne humeur ;)

Très sincèrement.

Gérard

(lecteur assidu)















Avatar
G. L
"je suis nul comme devin !"


Mais non !
Question mal présentée de ma part.
Merci sincèrement, initialement j'étais bloqué avec l'enregistreur de macro.
Ce soir il faut oublié l'ordinateur ;)

Gérard

"Gaenonius" a écrit dans le message de
news:%
Merci pour l'intérêt porté à la question, mais ça ne marche pas.


Il faut dire que tu n'avais pas signalé que ton problème était lié à
l'importation d'un fichier texte ou csv...
M'enfin, ça me confirme une chose : je suis nul comme devin !

--
Gaenonius

Bonjour Gaenonius
Merci pour l'intérêt porté à la question, mais ça ne marche pas.
J'ai enfin trouvé :

Selection.TextToColumns Destination:=Range(Cells(L, c), Cells(L +
23,


c)), DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:úlse,
Tab:=True, _
Semicolon:úlse, Comma:úlse, Space:úlse, Other:úlse,
FieldInfo _
:=Array(1, 1), TrailingMinusNumbers:=True

Merci

Bonne fin d'année

Gérard


"Gaenonius" a écrit dans le message de
news:

Essaye d'appliquer une opération neutre :

Range(Cells(L, c), Cells(L + 23, c)).Value= _
Range(Cells(L, c), Cells(L + 23, c)).Value*1

--
Gaenonius


Bonsoir à toutes et à tous,



Convertir en nombre ou les limites de l'enregistreur de macro !

Suite à divers manip (copiés/collés d'origine différente d'office) j'ai
souvent « Le nombre de cette cellule est en format texte .) comment
convertir à la suite de la macro qui déjà remplace le point par la



virgule

comme séparateur décimal

J'ai essayé :

Range(Cells(L, c), Cells(L + 23, c)).Select

Selection.NumberFormat = "# ##0.00"

Merci d'avance.

J'en profite pour vous souhaiter une bonne fin d'année et vous
présenter





mes

meilleurs voux pour 2005, encore plein de bonnes solutions dans, comme
toujours, la bonne humeur ;)

Très sincèrement.

Gérard

(lecteur assidu)