USF / textbox / Val(..) - mettre par defaut " "

Pierrot93

XLDnaute Barbatruc

• 14 Février 2012

• #2

Re : USF / textbox / Val(..) - mettre par defaut " "

Bonjour,

regarde peut être ceci :

Code:

If Val(TextBox1) > 0 Then Cells(1, 1) = Val(TextBox1)

bonne journée
@+

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 14 Février 2012

• #3

Re : USF / textbox / Val(..) - mettre par defaut " "

Re,

ou bien ceci :

Code:

If IsNumeric(TextBox1) Then Cells(1, 1) = Val(TextBox1)

 

Vote positif 0 Vote négatif

A

alex53

Guest

• 14 Février 2012

• #4

Re : USF / textbox / Val(..) - mettre par defaut " "

Bonjour Pierrot 93 et merci pour ta reponse matinale.

Malheureusement aucune des 2 variantes ne fonctionne dans mon fichier. Est-ce que vous pourriez me donner plus de details svp.
Je pense que j'integre mal le code. je dois garder ce code egalement ou pas?:

dest.Offset(0, 7).Value = Val(UserFormA!TextBox1)

Merci

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 14 Février 2012

• #5

Re : USF / textbox / Val(..) - mettre par defaut " "

Re,

code proposé avec les éléments fournis... comme pas de fichier reprenant uniquement le problème posé, difficile à dire...

 

Vote positif 0 Vote négatif

A

alex53

Guest

• 14 Février 2012

• #6

Re : USF / textbox / Val(..) - mettre par defaut " "

Re,

Voici un fichier simplifie reprenant mon exemple. Le probleme se situe au moment du remplissage des textBox AI Concentration.
Ne pas faire attention au reste.

Merci pour votre aide

 

Pièces jointes

• Version pour aide.xlsm

  40.9 KB · Affichages: 43
• Version pour aide.xlsm

  40.9 KB · Affichages: 43
• Version pour aide.xlsm

  40.9 KB · Affichages: 49

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 14 Février 2012

• #7

Re : USF / textbox / Val(..) - mettre par defaut " "

Re,

je ne vois pas les codes proposés... à utiliser dans la sub :

Code:

CommandButton1_Click

en lieu et place des alimentations existantes.....

 

Vote positif 0 Vote négatif

A

alex53

Guest

• 14 Février 2012

• #8

Re : USF / textbox / Val(..) - mettre par defaut " "

Re,
Je ne suis pas sur de comprendre le dernier message.
Quoi qu'il en soit je mets en fichier joint le fichier. Les 3 textbox qui posent probleme sont:
- textbox1
- textbox2
- textbox3


Merci

 

Pièces jointes

• Version pour aide.xlsm

  34.7 KB · Affichages: 47
• Version pour aide.xlsm

  34.7 KB · Affichages: 51
• Version pour aide.xlsm

  34.7 KB · Affichages: 50

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 14 Février 2012

• #9

Re : USF / textbox / Val(..) - mettre par defaut " "

Re,

pour le textbox1, remplace :

Code:

dest.Offset(0, 7).Value = Val(TextBox1)

par :

Code:

If IsNumeric(TextBox1) Then dest.Offset(0, 7).Value = Val(TextBox1)

même punition pour les 2 autres....

 

Vote positif 0 Vote négatif

Robert

XLDnaute Barbatruc

Repose en paix

• 14 Février 2012

• #10

Re : USF / textbox / Val(..) - mettre par defaut " "

Bonjour Alex, Pierrot, bonjour le forum,

Peut-être comme ça :

Private Sub CommandButton1_Click()
Dim dest As Range 'declare la variable dest (cellule de DESTination)
Set dest = Sheets("PMF").Cells(dl + 1, 1) 'definit la cellule de destination
dest.Value = Format("RUA02000") 'place le nom du produit en colonne A
dest.Offset(0, 1).Value = CDate(Date)
dest.Offset(0, 2).Value = UserFormA!TextBoxLPDRu 'place le nom en russe en colonne C
dest.Offset(0, 3).Value = UserFormA!TextBoxCode
dest.Offset(0, 4).Value = UserFormA!TextBoxLPD
dest.Offset(0, 5).Value = ComboBoxCategoryProduct
dest.Offset(0, 6).Value = UserFormA!TextBoxAI1_Code
dest.Offset(0, 7).Value = IIf(Me.TextBox1.Value = "", "", Val(TextBox1))
dest.Offset(0, 8).Value = TextBoxAI2_Code
dest.Offset(0, 9).Value = IIf(Me.TextBox2.Value = "", "", Val(TextBox2))
dest.Offset(0, 10).Value = TextBoxAI3_Code
dest.Offset(0, 11).Value = IIf(Me.TextBox3.Value = "", "", Val(TextBox3))
dest.Offset(0, 13).Value = ComboBoxProductType

Unload Me 'vide et ferme l'Userform
'UserFormA.Hide 'cette ligne est inutile puisque Unload ferme l'UserForm
'pour archiver sur la page qu'on veut
Sheets("PMF").Select

End Sub

Cliquez pour agrandir...

 

Vote positif 0 Vote négatif

pierrejean

XLDnaute Barbatruc

• 14 Février 2012

• #11

Re : USF / textbox / Val(..) - mettre par defaut " "

Bonjour alex

Salut Pierrot 🙂

teste:

Code:

If TextBox1 <> "" Then dest.Offset(0, 7).Value = Val(TextBox1)

Edit: Salut Robert 🙂

 

Vote positif 0 Vote négatif

A

alex53

Guest

• 14 Février 2012

• #12

Re : USF / textbox / Val(..) - mettre par defaut " "

Merci pour vos reponses,
La solution de Pierrot et de PierreJean fonctionne. Du billard.

Bonne journee

 

Vote positif 0 Vote négatif