Projet userform et calcul VBA

[goldenboy]

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]

Re : Projet userform et calcul VBA

Bonsoir,

Tu peux essayer ceci :

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]

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]

Re : Projet userform et calcul VBA

Re,

Si tu mets juste

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]

Re : Projet userform et calcul VBA

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

Merci beaucoup.

 

[Gareth]

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