Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11

Format Nombre

6 réponses
Avatar
pb
Bonjour,
J'ai ce code qui me permet de tranférer mes zones de saisies dans une
feuille

ActiveCell.Offset(0, 0).Value = Codeart
ActiveCell.Offset(0, 1).Value = Designart
ActiveCell.Offset(0, 2).Value = Fourart
ActiveCell.Offset(0, 3).Value = Prixart
Prixart = ""
Fourart = ""
Designart = ""
Codeart =

Hors pour Prixart et Codeart même si j'applique le format nombre et
Monétaire sur les cellules de réception,
les données sont toujours collées au format texte
Merci
Pascal

6 réponses

Avatar
Jacquouille
Bonjour
Essaie de multiplier par 1 la valeur de tes variables pour forcer Excel à
les reconnaitre comme numérique.
Bonne chance

--
Bien amicalmement,
"Le vin est au repas ce que le parfum est à la femme."

Jacquouille.

"pb" a écrit dans le message de news:
%
Bonjour,
J'ai ce code qui me permet de tranférer mes zones de saisies dans une
feuille

ActiveCell.Offset(0, 0).Value = Codeart
ActiveCell.Offset(0, 1).Value = Designart
ActiveCell.Offset(0, 2).Value = Fourart
ActiveCell.Offset(0, 3).Value = Prixart
Prixart = ""
Fourart = ""
Designart = ""
Codeart >
Hors pour Prixart et Codeart même si j'applique le format nombre et
Monétaire sur les cellules de réception,
les données sont toujours collées au format texte
Merci
Pascal



Avatar
isabelle
bonjour Pascal,

ActiveCell.Offset(0, 0).Value = CdBl(Codeart)
ActiveCell.Offset(0, 1).Value = Designart
ActiveCell.Offset(0, 2).Value = Fourart
ActiveCell.Offset(0, 3).Value = CdBl(Prixart)

isabelle


pb a écrit :
Bonjour,
J'ai ce code qui me permet de tranférer mes zones de saisies dans une
feuille

ActiveCell.Offset(0, 0).Value = Codeart
ActiveCell.Offset(0, 1).Value = Designart
ActiveCell.Offset(0, 2).Value = Fourart
ActiveCell.Offset(0, 3).Value = Prixart
Prixart = ""
Fourart = ""
Designart = ""
Codeart >
Hors pour Prixart et Codeart même si j'applique le format nombre et
Monétaire sur les cellules de réception,
les données sont toujours collées au format texte
Merci
Pascal





Avatar
pb
Merci Isabelle,
Mais je pige pas le CdB1
"isabelle" a écrit dans le message de news:

bonjour Pascal,

ActiveCell.Offset(0, 0).Value = CdBl(Codeart)
ActiveCell.Offset(0, 1).Value = Designart
ActiveCell.Offset(0, 2).Value = Fourart
ActiveCell.Offset(0, 3).Value = CdBl(Prixart)

isabelle


pb a écrit :
Bonjour,
J'ai ce code qui me permet de tranférer mes zones de saisies dans une
feuille

ActiveCell.Offset(0, 0).Value = Codeart
ActiveCell.Offset(0, 1).Value = Designart
ActiveCell.Offset(0, 2).Value = Fourart
ActiveCell.Offset(0, 3).Value = Prixart
Prixart = ""
Fourart = ""
Designart = ""
Codeart >>
Hors pour Prixart et Codeart même si j'applique le format nombre et
Monétaire sur les cellules de réception,
les données sont toujours collées au format texte
Merci
Pascal






Avatar
isabelle
bonjour Pascal,

c'est une Fonctions de conversion de types de données
c'est pour convertir une expression (string: texte) en un type de données spécifique

Fonction Type renvoyé Plage de valeurs de l'argument expression

CDbl Double -1.79769313486231E308 à
-4,94065645841247E-324 pour les valeurs négatives ;
4,94065645841247E-324 à
1,79769313486232E308 pour les valeurs positives.

si tu exécute cette macro en pas à pas et en plaçant le curseur sur les
variables tu verra la différence,

Sub Macro1()
Codeart = "999999999"
Codeart = CDbl(Codeart)
End Sub

isabelle


pb a écrit :
Merci Isabelle,
Mais je pige pas le CdB1
"isabelle" a écrit dans le message de news:


bonjour Pascal,

ActiveCell.Offset(0, 0).Value = CdBl(Codeart)
ActiveCell.Offset(0, 1).Value = Designart
ActiveCell.Offset(0, 2).Value = Fourart
ActiveCell.Offset(0, 3).Value = CdBl(Prixart)

isabelle


pb a écrit :

Bonjour,
J'ai ce code qui me permet de tranférer mes zones de saisies dans une
feuille

ActiveCell.Offset(0, 0).Value = Codeart
ActiveCell.Offset(0, 1).Value = Designart
ActiveCell.Offset(0, 2).Value = Fourart
ActiveCell.Offset(0, 3).Value = Prixart
Prixart = ""
Fourart = ""
Designart = ""
Codeart >>>
Hors pour Prixart et Codeart même si j'applique le format nombre et
Monétaire sur les cellules de réception,
les données sont toujours collées au format texte
Merci
Pascal












Avatar
isabelle
... et aussi ce n'est pas CDB1 mais bien CDBL

isabelle

pb a écrit :
Merci Isabelle,
Mais je pige pas le CdB1
"isabelle" a écrit dans le message de news:


bonjour Pascal,

ActiveCell.Offset(0, 0).Value = CdBl(Codeart)
ActiveCell.Offset(0, 1).Value = Designart
ActiveCell.Offset(0, 2).Value = Fourart
ActiveCell.Offset(0, 3).Value = CdBl(Prixart)

isabelle


pb a écrit :

Bonjour,
J'ai ce code qui me permet de tranférer mes zones de saisies dans une
feuille

ActiveCell.Offset(0, 0).Value = Codeart
ActiveCell.Offset(0, 1).Value = Designart
ActiveCell.Offset(0, 2).Value = Fourart
ActiveCell.Offset(0, 3).Value = Prixart
Prixart = ""
Fourart = ""
Designart = ""
Codeart >>>
Hors pour Prixart et Codeart même si j'applique le format nombre et
Monétaire sur les cellules de réception,
les données sont toujours collées au format texte
Merci
Pascal












Avatar
pb
Ok merci de ces infos et c'est vrai que cela marche mieux en CDbl qu'en
CBD1 -:)



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

bonjour Pascal,

c'est une Fonctions de conversion de types de données
c'est pour convertir une expression (string: texte) en un type de données
spécifique
Fonction Type renvoyé Plage de valeurs de l'argument expression

CDbl Double -1.79769313486231E308 à -4,94065645841247E-324
pour les valeurs négatives ;
4,94065645841247E-324 à
1,79769313486232E308 pour les valeurs positives.

si tu exécute cette macro en pas à pas et en plaçant le curseur sur les
variables tu verra la différence,

Sub Macro1()
Codeart = "999999999"
Codeart = CDbl(Codeart)
End Sub

isabelle


pb a écrit :
Merci Isabelle,
Mais je pige pas le CdB1
"isabelle" a écrit dans le message de news:


bonjour Pascal,

ActiveCell.Offset(0, 0).Value = CdBl(Codeart)
ActiveCell.Offset(0, 1).Value = Designart
ActiveCell.Offset(0, 2).Value = Fourart
ActiveCell.Offset(0, 3).Value = CdBl(Prixart)

isabelle


pb a écrit :

Bonjour,
J'ai ce code qui me permet de tranférer mes zones de saisies dans une
feuille

ActiveCell.Offset(0, 0).Value = Codeart
ActiveCell.Offset(0, 1).Value = Designart
ActiveCell.Offset(0, 2).Value = Fourart
ActiveCell.Offset(0, 3).Value = Prixart
Prixart = ""
Fourart = ""
Designart = ""
Codeart >>>>
Hors pour Prixart et Codeart même si j'applique le format nombre et
Monétaire sur les cellules de réception,
les données sont toujours collées au format texte
Merci
Pascal