Problème format texte en nombre (VBA)

Résolu/Fermé

Kris01. Messages postés 3 Date d'inscription lundi 10 février 2020 Statut Membre Dernière intervention 11 février 2020 - 10 févr. 2020 à 21:36
Kris01. Messages postés 3 Date d'inscription lundi 10 février 2020 Statut Membre Dernière intervention 11 février 2020 - 11 févr. 2020 à 15:57

Bonsoir à tous,

Je me permets de vous écrire car j’ai un problème de macro.
En effet, je rempli sous user forme plusieurs valeur dans les textbox et par la formule suivante j’arrive à renseigner une feuille Excel :
Sheets(« ma feuille »).range(« macellule »).value = me.textbox.value

Pour transformer mes valeurs issues des textbox en format nombre, j’ajoute « * 1 » à la suite de cette formule où « cdbl » avant (me.textbox.value)

Ceci fonctionne concernant la conversation de mes valeurs textes en format nombre cependant lorsque qu’une textbox n’est pas remplies, mon code plante et l’ensemble des valeurs reste en format texte.

Pouvez vous m’aider SVP ?

Merci de votre aide
Cordialement

A voir également:

Vba format texte
Telecharger format factory - Télécharger - Conversion & Codecs
Format epub - Guide
Formule excel si contient texte alors texte ✓ - Forum Excel
Dans le texte, un seul mot a réellement été écrit en lettres capitales (majuscules). quel est ce mot ? - Forum Word
[Excel VBA] Formater une cellule en texte ✓ - Forum VB / VBA

2 réponses

Réponse 1 / 2

pijaku Messages postés 12263 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 4 janvier 2024 2 743
11 févr. 2020 à 15:42

Bonjour,

> CDbl => transforme une donnée de type numérique (ou qui y "ressemble") en Double.
Pas une bonne idée car tout nombre n'est pas de type Double...

> * 1 => Je n'aime pas multiplier une chaîne de caractères (un textbox en est une) par un chiffre.

Reste la fonction Val qui semble faite pour ça...

Sheets(« ma feuille »).range(« macellule »).value = Val(Me.Textbox1.Value)

https://docs.microsoft.com/fr-fr/office/vba/language/reference/user-interface-help/val-function
Val, Fonction
Renvoie les nombres contenus dans une chaîne en tant que valeur numérique de type approprié.

Kris01. Messages postés 3 Date d'inscription lundi 10 février 2020 Statut Membre Dernière intervention 11 février 2020
11 févr. 2020 à 15:57

Super ! Ça marche !!!!
Merci beaucoup !!! :) :)

Réponse 2 / 2

jordane45 Messages postés 38136 Date d'inscription mercredi 22 octobre 2003 Statut Modérateur Dernière intervention 16 avril 2024 4 649
10 févr. 2020 à 21:46

Bonjour
pourquoi de pas simplement faire un test de façon à vérifier si ton text boxest vide ou pas ?
Tu peux aussi te pencher sur la fonction isnumber.

Kris01. Messages postés 3 Date d'inscription lundi 10 février 2020 Statut Membre Dernière intervention 11 février 2020
10 févr. 2020 à 22:34

Merci de ton retour, :)
Le processus de ma macro est le suivant :
L’utilisateur rempli un userform avec des textbox. Une fois celles ci remplies, la macro vient chercher les valeurs de mes textbox pour les inscrire en cellules D3:D36 d’une feuille Excel.
Cependant il est possible que l’utilisateur ne remplisse pas toutes les textbox de mon userform, malgré tout cela doit quand même permettre au bouton enregistrer de fonctionner et ne pas bloquer la macro parce qu’une textbox n’a pas été remplie
Voilà...
Le problème est survenu à partir du moment où j’ai ajouté « * 1 » à mon code d’enregistrement pour que les valeurs de mes textbox soient prises en compte sous format nombre dans mes cellules Excel et non en format texte... car j’ai absolument besoin que les valeurs de mes textbox soient reporté dans mes cellules sous format nombre

jordane45 Messages postés 38136 Date d'inscription mercredi 22 octobre 2003 Statut Modérateur Dernière intervention 16 avril 2024 4 649 > Kris01. Messages postés 3 Date d'inscription lundi 10 février 2020 Statut Membre Dernière intervention 11 février 2020
10 févr. 2020 à 22:38

Oui et donc ?
comme je te l'ai dit une simple conditions pour vérifier si ta textbox est vide ou si c'est bien un nombre suffirait à régler ton problème...
En VBA il te suffit d'utiliser un if else

Discussions similaires

Convertir une cellule de format texte en format nombre VBA Excel Combobox

Convertir chiffre en format Texte vba

Valeur d'une textbox dans une cellule avec le format nombre décimale

[VBA] Code pour modifié format du texte dans zone de texte

[Excel VBA] Formater une cellule en texte

vba "nombre dans cette cellule est au format texte"

Discussions similaires

Newsletters