Projet userform et calcul VBA

goldenboy · 7 Janvier 2013

Bonjour à tous,

Je suis actuellement sur un projet, et j'aimerais le réaliser avec un userform, et les calculs se font par VBA.
L'objectif, est d'éviter à l'utilisateur de travailler sur les feuilles du classeur, mais uniquement via les userforms.
Ce fichier doit être compatible Excel 2003. Là je le travaille de chez moi avec Excel 2007.

Là je bloque sur ce que je viens de commencer, j'ai une erreur après l'ouverture du userform, si je ne rentre pas de date, cela donne un bug à la sortie du textbox2 et un bug pour fermer le userform.

Si quelqu'un à une solution pour que si l'utilisateur ne rentre pas d'information dans le textbox2, il puisse tout de même continuer à travailler, je suis preneur.

Evidemment, le fichier est disponible, sinon on n'y comprendrait rien du tout.

Mon travail sera suivi sur ce forum, je viendrait certainement régulièrement faire appel à vos prouesses.

A vous lire,

cordialement.

Gareth · 8 Janvier 2013

Re : Projet userform et calcul VBA

Bonsoir,

Tu peux essayer ceci :

Code:

Private Sub TextBox2_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Dim annee As Integer
annee = Right(TextBox2, 4)
plage = Sheets("Feuil1").Range("A1:B4")
If TextBox2.Value <> "" Then Me.Label9.Caption = Application.VLookup(annee * 1, plage, 2, False)
End Sub

goldenboy · 8 Janvier 2013

Re : Projet userform et calcul VBA

Bonsoir Gareth.

Je viens de tester, mais cela ne fonctionne pas.
J'ai bien rajouté le end if.
Je t'avoue avoir déjà tenter une condition sans parvenir au résultat attendu.

Merci.

Yaloo · 8 Janvier 2013

Re : Projet userform et calcul VBA

Re,

Si tu mets juste

VB:

Private Sub TextBox2_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Dim année As Integer
On Error Resume Next
année = Right(TextBox2, 4)
plage = Sheets("Feuil1").Range("A1:B4")
Me.Label9.Caption = Application.VLookup(année, plage, 2, False)
End Sub

Tu passes outre l'erreur.

A te relire

Martial

goldenboy · 8 Janvier 2013

Re : Projet userform et calcul VBA

Merci Martial, cela fonctionne comme je le souhaite à présent.

Merci beaucoup.

Gareth · 8 Janvier 2013

Re : Projet userform et calcul VBA

Re,

Mon exemple fontionne bien chez moi !?
Quelle erreur as tu ?
Il n'est pas necessaire de rajouter un End If.

Le On Error Resume Next masque les autres erreurs potentielles

Projet userform et calcul VBA

goldenboy

XLDnaute Occasionnel

Pièces jointes

Gareth

XLDnaute Impliqué

goldenboy

XLDnaute Occasionnel

Yaloo

XLDnaute Barbatruc

goldenboy

XLDnaute Occasionnel

Gareth

XLDnaute Impliqué

Discussions similaires