Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Projet userform et calcul VBA

Créer une discussion

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
G

goldenboy

XLDnaute Occasionnel
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.
 

Pièces jointes

Trier par date Trier par votes
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
 
Vote positif 0 Vote négatif
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.
 
Vote positif 0 Vote négatif
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
 
Vote positif 0 Vote négatif
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 🙁
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
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

C
  • Résolu(e)
XL 2021 UserForm en guise de MsgBox qui ne fonctionne pas...
Réponses
11
Affichages
218
Constantin
C
W
  • Résolu(e)
XL 2016 Lignes vba "Saut de page" qui empêchent l'ouverture des Userform sur toutes les feuilles
Réponses
8
Affichages
101
Webperegrino
W
D
  • Question Question
XL 2019 User Form
Réponses
9
Affichages
526
Debie
D
I
  • Résolu(e)
XL 2021 msgbox : timer vbyes
2 3
Réponses
40
Affichages
2 K
isandre
I
D
  • Résolu(e)
XL 2016 Alimenter une combobox sur une feuille de calcul
Réponses
11
Affichages
383
dgil37
D
  • Résolu(e)
XL 2010 Travail base de données et UserForm
2 3
Réponses
40
Affichages
1 K
ChTi160
  • Question Question
XL 2019 Copier et coller automatiquement une nouvelle donnée par un bouton, ListView décallée à la sur la page (Multipage) et vibration du Userform
2
Réponses
16
Affichages
951
TooFatBoy
  • Question Question
Autres Affichage d'un Userform
Réponses
6
Affichages
329
Poltoine
  • Question Question
Microsoft 365 datepicker dynamique intra userform ou dans feuille 2 versions(frame dynamique)(toute version d'excel )
6 7 8
Réponses
105
Affichages
5 K
Usine à gaz
  • Résolu(e)
XL 2016 Bug liste déroulante dans UserForm
2
Réponses
20
Affichages
1 K
yannick64
  • Résolu(e)
XL 2021 Temps réel d'éxécution macro
Réponses
3
Affichages
252
treza88
A
  • Résolu(e)
XL 2019 VBA newbie
4 5 6
Réponses
80
Affichages
3 K
apocalypse
A
L
  • Résolu(e)
XL 2021 Aide VBA pour appli Gestion de stock
Réponses
2
Affichages
858
LuckyShuri
L
  • Résolu(e)
XL 2016 VBA - Redimensionner un UserForm après le retrait de la barre du menu système (Caption)
5 6 7
Réponses
101
Affichages
3 K
Dudu2
T
  • Résolu(e)
XL 2021 Incompatibilité de type avec un userform
2
Réponses
19
Affichages
1 K
Bernard38
P
  • Question Question
Autres Finalisation de projet VBA pour planning quotidien
2
Réponses
15
Affichages
952
vgendron
  • Question Question
XL 2016 VBA - Exporter / Importer un Projet VBA complet
5 6 7
Réponses
104
Affichages
5 K
Dudu2
M
  • Question Question
XL 2016 Excel UserForm VBA
Réponses
3
Affichages
650
patricktoulon
A
  • Résolu(e)
XL 2013 Afficher tableau sur userform
2
Réponses
25
Affichages
2 K
Appo1985
A
D
  • Résolu(e)
XL 2021 Selection listview et Envoie Emails automatique
Réponses
4
Affichages
454
delsart59
D
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…