Convertir texte en nombre sortie userform

Créer une discussion
Répondre
  • Initiateur de la discussion Initiateur de la discussion bibbip35
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
B

bibbip35

XLDnaute Occasionnel
Bonjour à tous

C'est encore moi!!!

Je reviens vous soliciter car

J'ai 1 souci a la sortie de mon formulaire de saisie, les valeurs numérique resorte au formats texte,
Il est pas possible quelle soit convertit directement en nombre; je sais comment convertir manuelement
mais j'aurrais souhaité pour les utilisateurs que ca se fasse de façon autonome en faite

=> Message excel : le nombre de cette cellule est au format texte....

Merci à tous

Bonne journée
 

Pièces jointes

Trier par date Trier par votes
Re : Convertir texte en nombre sortie userform

Bonjour à tous

bibbip35
Tu as fait des recherches dans les archives du forum avant de poser ta question ?
(en cliquant sur la loupe en haut à droite de l'écran)
Car la réponse s'y trouve déjà...

PS: Ce conseil de recherche avant question est aussi déjà présent dans la charte du forum...🙄
 
Vote positif 0 Vote négatif
Re : Convertir texte en nombre sortie userform

Merci

Je prends note, je vais nettoyer ma loupe ainsi que mes lunettes....🙁

Par contre, je dois être également a moitié.......

Car je ne comprends ou mettre le code
range('A1')=val(textbox1)
ou
range('A1')=dbl(textbox1)


Pourquoi A1...C'est 1 userform qui insere sur differentes lignes

Merci en tous cas
 
Vote positif 0 Vote négatif
Re : Convertir texte en nombre sortie userform

Re


Apparemment ce serait ici, non ?
If r > 0 Then Feuil1.Cells(derligne, r) = Val(Ctrl.value)
ou
If r > 0 Then Feuil1.Cells(derligne, r) = CDbl(Ctrl.value)'' Voir touche F1 pour CDbl
ou
If r > 0 Then Feuil1.Cells(derligne, r) = Cstr(Ctrl.value) ' Voir touche F1 pour Cstr
Bref tu peux tester beaucoup de choses

PS: Tu es l'auteur du code VBA présent dans ta PJ?
Si non, tu as compris toutes ces lignes de codes ?
(car Val était déjà employé pour autre chose Val(Ctrl.Tag) ...)
 
Dernière édition:
Vote positif 0 Vote négatif
Re : Convertir texte en nombre sortie userform

Merci pour votre aide

Ca fonctionne , mais le souci c'est que j'ai également de valeurs en TEXT de saisie...
Ce que je voudrais, c'est convertir que les valeurs uniquement numérique ==> Textbox

Sinon, non ce n'est pas moi qui a écrit le code a proprement dit; j'ai adapté differents code trouvé pour
construire mon fichier...Je suis débutant en VBA...et j'aimerais apprendre justement
Si vous des réferences a me conseiller ; je suis preneur ( livre; tuto...)

Bonne journée
 
Vote positif 0 Vote négatif
Re : Convertir texte en nombre sortie userform

Re

Regardes ce petit exemple et redis moi si tu le comprends.
Code VB:
Private Sub CommandButton1_Click()
Dim ctrl As Control
For Each ctrl In Me.Controls
'test si ctrl=TextBox
If TypeOf ctrl Is MSForms.TextBox Then
'Test si Value est numérique
If IsNumeric(ctrl.Value) Then
MsgBox Val(ctrl.Value)
End If
End If
Next ctrl
End Sub

Si vous des réferences a me conseiller ; je suis preneur ( livre; tuto...)
Cliquez pour agrandir...
• La première des référence est accessible avec un de tes cinq doigts 😉
(la touche F1)
• La seconde: les bibliothèques municipales avec un rayon informatique digne de ce nom
(en plus cela permet de s'éloigner de l'écran et du clavier et de prendre l'air)
• La troisième: les communautés sur le web qui gravitent autour d'Excel (forums, blogs etc)
(Il suffit d'utiliser un quelconque moteur de recherche pour les trouver)
• La quatrième: le site de Microsoft dédié à Office
• La cinquième: toi
​
(qui testes, tâtonnes, cherches, échoues, testes, échoues de nouveau, découvre, s'impatiente, s'enthousiasme etc...)​
 
Dernière édition:
Vote positif 0 Vote négatif
Re : Convertir texte en nombre sortie userform

Merci pour votre reponse

Si j'ai bien compris le code , il test pour voir si les valeurs sont numériques et renvoie 1 msgbox

Mais je ne comprends ou placer votre code , pour l'intégrer a celui de mon fichier

Dim ctrl As Control
Dim R As Integer
Dim t As Integer
Dim derligne As Integer

With Worksheets("Config. ligne")
derligne = .Range("A65536").End(xlUp).Row + 1


For Each ctrl In FORM_AJOUTER.Controls

R = Val(ctrl.Tag)

If R > 0 Then Feuil1.Cells(derligne, R) = ctrl
Next
End With

Merci pour votre aide...🙂
 
Vote positif 0 Vote négatif
Re : Convertir texte en nombre sortie userform

Re


Dans cette boucle non ?
For Each ctrl In FORM_AJOUTER.Controls
'test si ctrl=TextBox
If TypeOf ctrl Is MSForms.TextBox Then
'Test si Value est numérique
If IsNumeric(ctrl.Value) Then
Feuil1.Cells(derligne, R) = ctrl
End If
End If
Next ctrl
 
Vote positif 0 Vote négatif
Re : Convertir texte en nombre sortie userform

Bonsoir

après essai , hélas le code ne focntionne pas
mais je pense que c'est moi qui le positionne mal en faite

Je suis perdu en faite...

Si vous pouvez m'aider ?

Voici mon code entier : Je ne vois pas quoi supprimer et ou inserer: j'ai essayer mais sans succes

Private Sub CommandButton3_Click()

Dim Ctrl As Control
Dim r As Integer
Dim t As Integer
Dim derligne As Integer

With Worsheets("Config. ligne")
derligne = .Range("A65536").End(x1up).Row + 1

For Each Ctrl In FORM_AJOUTER.Controls

r = Val(Ctrl.Tag)

If r > 0 Then Config.Ligne.Cells(derligne, r) = Ctrl
Next

End With


End

End Sub
 
Vote positif 0 Vote négatif
Re : Convertir texte en nombre sortie userform

Re


C'est mieux comme ceci
(Mais il faudra peaufiner je te laisse tester pour que tu vois de quoi je parle)

NB😛our le code ci-dessou fonctionne, cela présuppose que la propriété Tag de tes TextBox soit renseignée.
Code: 
Private Sub CommandButton3_Click()
Dim Ctrl As Control
Dim r As Integer
Dim t As Integer
Dim derligne As Integer

With Worsheets("Config. ligne")
derligne = .Range("A65536").End(x1up).Row + 1
    For Each Ctrl In FORM_AJOUTER.Controls
    'test si ctrl=TextBox
        If TypeOf Ctrl Is MSForms.TextBox Then
        'Test si Value est numérique
            If IsNumeric(Ctrl.Value) Then
r = Val(Ctrl.Tag)
            .Cells(derligne, r) = Val(Ctrl.Value)
            End If
        End If
    Next Ctrl
End With
End Sub
 
Dernière édition:
Vote positif 0 Vote négatif
Re : Convertir texte en nombre sortie userform

bONSOIR

Merci Staple 1600 , j'ai tester le code j'ai reussi a le faire fonctionner , mais malgré des essais , du coup
les combobox ne sont pas inséré ; de plus j'ai la textbox9 qui peut ne mettre numérique

A mon avis , il faut que je devellope mon code avec des conditions differentes pour chaque textbox et combobox

Par contre, je ne sais pas trop comment procéde???

Pourriez vous 1 nouvelle fois m'aiguiller?

Merci à tous
 
Vote positif 0 Vote négatif
Re : Convertir texte en nombre sortie userform

Bonsoir à tous


Jean-Marcel
Il arrive sur XLD, qu'on tombe dans cette cellule 😉
VB: 
Range("Invisible").Interior.ColorIndex=xlVanishIntoThinAir

Cela m'est déjà arrivé plusieurs fois.

Bienvenue au club 😉
 
Vote positif 0 Vote négatif
Re : Convertir texte en nombre sortie userform

Bonsoir

Déja pour commencer , je presente mes escuses a Jean-Marcel
je n'ai pas assez preter attention a votre travail et le temps que vous avez passer pour moi!!!

La preuve , j'ai tester votre solution et ca fonctionne , seul souci pour moi
c'est que ca integre sur la 1er ligne et que moi je souhaite que ca integre sur la dernière...

J'ai voulu adptée votre code au mieux , et du coup ca integre a la dernière ligne , mais la convertion
ne fonctionne plus

Code en défault

Private Sub CommandButton1_Click()
Dim Ctrl As Control

Dim derligne As Integer
Dim ColonneModif As Byte
With Worksheets("Feuil1")
derligne = .Range("A65536").End(xlUp).Row + 1

For Each Ctrl In UserForm1.Controls
If Ctrl.Tag <> "" Then
ColonneModif = Split(Ctrl.Tag, " ")(0)
Unité = Split(Ctrl.Tag, " ")(1)
If Unité = "Cstr" Then
.Cells(1, ColonneModif) = CStr(Ctrl)
ElseIf Unité = "Cdbl" Then
If IsNumeric(Ctrl) Then
.Cells(1, ColonneModif) = CDbl(Ctrl)
Else
MsgBox "Valeur non numérique " & Ctrl.Name
End If
ElseIf Unité = "Date" Then
If IsNumeric(Ctrl) Then
.Cells(1, ColonneModif) = CDate(Ctrl)
Else
MsgBox Ctrl.Name & " n'est pas une date"
End If
End If
End If
R = Val(Ctrl.Tag)

If R > 0 Then Feuil1.Cells(derligne, R) = Ctrl

Next
End With
End Sub

Est ce que vous pourriez m'aider ?

Merci
 
Vote positif 0 Vote négatif
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

M
  • Question Question
Microsoft 365 Convertir données cellules en lignes
2 3
Réponses
38
Affichages
2 K
matmac
M
M
  • Résolu(e)
XL 2016 CONVERTIR DES CELLULES TEXTE EN NOMBRES
Réponses
3
Affichages
1 K
MR.O
M
E
  • Résolu(e)
Microsoft 365 convertir TEXTE en NOMBRE
Réponses
11
Affichages
1 K
eric72
E
A
  • Question Question
Autres Transformer dans mon userform un format "texte" en format "nombre"
Réponses
14
Affichages
2 K
alain.pierrephie
A
P
  • Résolu(e)
Microsoft 365 VBA Format Texte en N° Tél
Réponses
14
Affichages
1 K
Piment
P
L
  • Question Question
XL 2019 Trier une liste de noms latins en couleur sans doublons depuis une combobox d'un userform
2
Réponses
29
Affichages
3 K
lusert
L
S
  • Question Question
XL 2010 problème de format nombre/texte
2
Réponses
16
Affichages
3 K
Sheldor
S
X
  • Résolu(e)
Microsoft 365 VBA Textbox - Convertir au format "Nombre"
Réponses
5
Affichages
2 K
ChTi160
ChTi160
F
  • Question Question
XL 2016 Convertir plage de cellule texte en nombre
Réponses
7
Affichages
2 K
Fabinou62
F
H
  • Résolu(e)
Autres VBA-Convertir TextBox en nombre
Réponses
3
Affichages
3 K
Hauliege
H
J
  • Question Question
XL 2013 Comment attribuer une valeur relative à "value" d'un "TextBox" dans un "Userform" en VBA ?
Réponses
2
Affichages
2 K
JM W-S-P
J
C
  • Question Question
XL 2013 Convertir texte en nombre (résolu)
Réponses
7
Affichages
1 K
danielco
D
C
  • Question Question
XL 2013 Convertir valeurs en format texte en nombre (résolu)
Réponses
4
Affichages
1 K
ChTi160
ChTi160
T
  • Question Question
XL 2013 Recherche Userform d'un nombre au format texte
Réponses
1
Affichages
1 K
fanch55
fanch55
A
  • Question Question
Convertir un texte en nombre
Réponses
5
Affichages
3 K
job75
job75
David Aubert
  • Article Article
Extraire du texte d’une chaîne de caractères avec des fonctions
Réponses
13
Affichages
33 K
AZERUS
A
B
  • Question Question
VBA formulaire exportation en texte au lieu de numérique
Réponses
0
Affichages
647
Binbing
B
R
  • Question Question
convertir colonnes texte en nombre sauf la 1er ligne[RESOLU]
Réponses
2
Affichages
874
regnum
R
R
  • Question Question
convertir date et nombre stocké en format texte
Réponses
1
Affichages
2 K
Modeste geedee
Modeste geedee
BLACKHAYES
  • Question Question
macro pour convertir nombre texte en nombre
Réponses
2
Affichages
2 K
st007
S
Retour