Microsoft 365 format combobox en nombre

[nico224]

Bonjour,

Je souhaite faire une formule dans un tableau pour additionner une date est un nombre, le probléme est que le nomBre venant d'une combobox est au format texte, quel est le code pour mettre au format nombre?

 

[AtTheOne]

Bonsoir aux noctambule, bonsoir @nico224

En utilisant une des fonction de conversion selon le type de valeur contenue dans ta Combo
Aide VBA :
Fonctions de conversion de types de données

Les fonctions ci-dessous convertissent une expression en un type de données spécifique.


Syntaxe


CBool(expression)


CByte(expression)


CCur(expression)


CDate(expression)


CDbl(expression)


CDec(expression)


CInt(expression)


CLng(expression)


CSng(expression)


CStr(expression)


CVar(expression)


L'argument expression peut être n'importe quelle expression de chaîne ou expression numérique.


Types renvoyés


Le nom de la fonction détermine le type renvoyé, comme le montre le tableau suivant :

Fonction	Type renvoyé	Plage de valeurs de l'argument expression
CBool	Boolean	Toute chaîne ou expression numérique valide.
CByte	Byte	0 à 255.
CCur	Currency	-922 337 203 685 477,5808 à 922 337 203 685 477,5807.
CDate	Date	Toute expression de date valide.
CDbl	Double	-1.79769313486231E308 à -4,94065645841247E-324 pour les valeurs négatives ; 4,94065645841247E-324 à 1,79769313486232E308 pour les valeurs positives.
CDec	Decimal	+/-79 228 162 514 264 337 593 543 950 335 pour les nombres sans décimales. La plage de valeurs des nombres à 28 décimales est +/-7,9228162514264337593543950335. Le plus petit nombre différent de zéro est 0,0000000000000000000000000001.
CInt	Integer	-32 768 à 32 767 ; les fractions sont arrondies.
CLng	Long	-2 147 483 648 à 2 147 483 647 ; les fractions sont arrondies.
CSng	Single	-3,402823E38 à -1,401298E-45 pour les valeurs négatives ; 1,401298E-45 à 3,402823E38 pour les valeurs positives.
CStr	String	Les valeurs renvoyées par la fonction Cstr dépendent de l'argument expression.
CVar	Variant	Même plage de valeurs que le type Double pour les nombres et que le type String pour les chaînes non numériques.

Remarques


Si l'argument expression passé à la fonction excède la plage de valeurs du type de données cible, une erreur se produit.

Par exemple CLng("12058736") vaut 12058736"

Amicalement
Alain

 

[Robert]

Bonsoir le fil, bonsoir le forum,

Pour compléter l'excellente réponse d'Alain, il te suffirait de renvoyer la valeur de la Combobox comme ça :

Range("Ta_cellule").Value=CInt(Me.ComboBox1.Value)

en adaptant la conversion mais je suppose que si tu veux additionner avec une date c'est forcément un entier.

 

[nico224]

Je vous remerci, j'ai résolu mon 1er soucis ^^
Merci Alain, du coup j'ai utilisé la fonction: CDbl

ActiveCell.Offset(0, 16).Value = CDbl(ComboBox6)