USF de Therry

[Dur_Dur]

Bonjour à tous,

Je suis un ptit nouveau dans le VBA, depuis 3 ou 4 mois et je plane vraiment, mais quand j'ai découvert les possibilités de cette outil, il y a de quoi réver son potentiel!
Et puis un petit mot à vous tous qui à travers ce site contribuez à nous former en apportant votre petite goutte de savoir dans cette océan de gentillesse qu’est ce forum, un belle exemple de modestie, CHAPEAU A TOUS !

Ma question :
Voilà, j'ai téléchargé un USF de Thierry, mais j'ai un probléme avec le code qui suit :

Private Sub TextBoxQuantite_Change()
Dim Chiffre As Integer
If TextBoxQuantite = '' Then Exit Sub
On Error GoTo Sortie
Chiffre = TextBoxQuantite
LabelPrixTotal = Format(LabelPrixUnit * TextBoxQuantite, 0#)
CommandButton1.Visible = True
Exit Sub
Sortie:
MsgBox 'Saisir Uniquement un Entier Numérique'
End Sub

Le résultat que j'aimerai avoir est sans nombre entier, alors comment je doit transformer le code pour cela?

Merci d'avance pour votre aide,

A+ Dur

 

[PascalXLD]

Bonjour

essaies pour accepter autre chose que des entiers mais toujours des nombres

Private Sub TextBoxQuantite_Change()
Dim Chiffre As Double
If TextBoxQuantite = '' Then Exit Sub
On Error GoTo Sortie
Chiffre = TextBoxQuantite
LabelPrixTotal = Format(LabelPrixUnit * TextBoxQuantite, 0#)
CommandButton1.Visible = True
Exit Sub
Sortie:
MsgBox 'Saisir Uniquement un Nombre'
End Sub

Bon courage

 

[_Thierry]

Bonsoir Pascal, Mr Dur Dur, le Forum

Ah !! ouf j'ai entendu mon nom et comme je ne passe pas trop sur le Net ces jours-ci je remercie Pascal d'avoir répondu...
En tout cas je ne suis pas mort ni enterré

Sinon on peut aussi faire une condition de test au cas où...

Private Sub TextBoxQuantite_Change()
Dim Chiffre As Double
If TextBoxQuantite = '' Then Exit Sub

If Not IsNumeric(TextBoxQuantite) Then
MsgBox 'Saisir Uniquement un Nombre'
TextBoxQuantite = ''
Else
Chiffre = TextBoxQuantite
End If

...le reste du code

Bonne Soirée
[ol]@+Thierry[/ol]

 

[PascalXLD]

RE

Salut Thierry

ça fait plaisir de te voir et de te croiser.

J'essayé justemetn de t'envoyer un mot pour te demander des nouvelles et te deire que ça faisait un bail qu'on ne s'etait croisé mais ta BAL privé est pleine

Bonne soirée à toi

 

[Dur_dur]

Bonsoir à tous,
Merci Pascal et Thierry pour vos responses,

Bien, il y a un petit probléme dans USFFacturationGestionStockV3 de Thierry,
dans la basse, il y a des articles et des prix,
et bien les prix qui ont un chiffre après la virgule sont dans USF arrondis sup. et le résultat est faux bien sur, donc comment je pourrai remettre tout ça en ordre dans un premier temps, le reste nous verrons plus tard.

Merci d'avance,

A+ Dur