Discussion :

[debutVBA]

Bonjour à tous et à toutes.


J'ai tenté de comprendre l'utilisation des USER form mais j'avoue ne pas avoir tout compris

Est -ce que quequ'un pourrait juste faire un petit exemple d'un user form

avec du texte,un titre,couleur de fond etc...


Merci par avance et bon courage

[jfontaine]

Bonjour,

Tout est expliqué ici : Les USerforms

Un fichier exemple ne te donnera pas les manipulations de sa création

[debutVBA]

Bonjour,

j'ai compris l'utilisation des UserFOrm Merci Jfontaine


Par contre est- il possible d'avoir dans les USers form les memes fonctionnalites qu'un input box

je m'explique si par exemple j'ai ceci

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Dim var 
var =Application.InputBox("saisissez votre valeur",type:=1)
 
if var >10 
 
UserForm.Show

Je souhaiterai que la saisit ecran se fasse dans le User Form ,puis récuperer la valeur et la tester.

COmment faire cela?

Merci à tous et à toutes

[jfontaine]

il te faut ajouter une userform à ton projet, puis insérer les objets suivants :
- un label pour texte question
- une textbox pour la réponse de l'utilisateur
- un bouton Valider
- un bouton Annuler

Ensuite il te faudra coder les évènements liés à ces objets.

C'est un très bon exercice quand on débute le VBA

[debutVBA]

Re ,

Voici ce que je tente de faire :

J'affiche successivement 3 user Form,Dans UserForm2 il y a deux Zones de texte.

Dans la premiere Zone il y a une question et la deuxieme zone de texte on doit saisir la reponse a la question.Il s'avere que dans ce cas ,on doit saisit une valeur entiere numerique.

j'arrive donc a recuperer cette valeur ainsi
maVariable = UserForm2.TextBox2.Value

mais des que je souhaite tester cette valeur ou l'utiliser pour faire un calcul ,visiblement il ne reconnait pas la variable en tant que valeur entiere ou autre.
j'ai l'impression qui considere cela comme du texte..

Qui pourrait m'aider à resoudre cela?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
 UserForm5.Show
 UserForm1.Show
 UserForm2.Show
 
monNombreDeMachines = UserForm2.TextBox2.Value
nbMachines = monNombreDeMachines
MsgBox nbMachines ' Affiche bien une valeur numérique
 
 
'Meme si on saisit une valeur < 5 il ne rentre jamais dans le If
If nbMachines < 5 Then
MsgBox " nbMachines est plus petit que 5 "
End If

[jfontaine]

As tu déclaré et typé ta variable nbMachines ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Dim nbMachines as Integer
nbMachines = cInt(UserForm2.TextBox2.Value)
 
'Meme si on saisit une valeur < 5 il ne rentre jamais dans le If
If nbMachines < 5 Then MsgBox " nbMachines est plus petit que 5 "