[E03] Propriétés des userforms

Version imprimable

22/02/2009, 15h49
helprojet

[E03] Propriétés des userforms

environnement : excel 2003.

Bonjour,

Je suis en train de me battre avec les différents objets de mon UserForm pour trouver les propriétés me permettant de réaliser les taches que je dois réaliser.

Je vous serais très reconnaissant de bien vouloir m'éclairer sur ces questions.

Objet Textbox1 :

Comment :
- récuperer la saisie de l'utilisateur ?
- vérifier la saisie de cet utilisateur et lui demander de recommencer lorsqu'il appuie sur bouton5 si celle-ci ne respecte pas le format suivant :
"11/11/1111".

Objet optionbutton1 et 2 :

Comment :
- lorsqu'un utilisateur choisit le bouton 1, que le bouton 2 soit désaisi ?
- savoir quel est le bouton qui a été choisi.

Si le bouton 1 est choisi, alors lorsque l'utilisateur va appuyer sur bouton5(bouton final de validation), ouvrir un nouveau formulaire,
sinon si le bouton 2 est choisit, faire directement tourner mes macros, et afficher une page excel avec les résultats.

ENFIN,

comment lancer cet userform directement lorsque l'utilisateur entre sur le fichier excel ?

J'espère avoir été assez clair.

Je vous remercie encore d'avoir pris le temps de tout lire !!

Merci.

PS : Si vous connaissez d'autres propriétés très utile, je suis preneur.
22/02/2009, 16h14
casefayere

Bonjour,
déjà pour :

Citation:

Objet Textbox1 :

Comment :
- récuperer la saisie de l'utilisateur ?

si tu veux récupérer la saisie du textbox dans une cellule (ex : "a1"), tu as plusieurs choix, en voici un:

clique 2 fois sur ton textbox et choisis en haut à droite dans l'ascenceur "exit" et tape le code

Code:

range("a1") = textbox1.value

ça c'est pour commencer

Bonjour à tous
Bonjour helprojet, casefayere

En complément :
1ère question :

Code:

1
2
3
4
5
6
7
Private Sub TextBox1_AfterUpdate()
If TextBox1.Text Like "##/##/####" Then
MsgBox "Saisie valide"
Else
MsgBox "Saisie non valide"
End If
End Sub

2ème question :

Code:

1
2
3
4
5
6
7
8
Private Sub CommandButton1_Click()
If OptionButton1.Value = True Then
    ouvreformulaire   'Userformxxxx.show
Else
    macro
End If
 
End Sub

et 3ème question :

Code:

1
2
3
Private Sub Workbook_Open()
userformxxx.Show
End Sub

Tu nous dis

Eric

22/02/2009, 16h34
laetitia

bonjour le fil le forum en complement un exemple en piece jointe

Bonjour tous

j'ajouterais au code d'edelweisseric :

Code:

1
2
3
4
5
6
7
8
Private Sub TextBox1_AfterUpdate()
If TextBox1.Text Like "##/##/####" Then
 
Range("a1") = TextBox1
Else
MsgBox "Saisie non valide"
End If
End Sub

22/02/2009, 17h11
Heureux-oli

Salut,

Un peu de lecture !

http://silkyroad.developpez.com/VBA/UserForm/
23/02/2009, 12h19
helprojet

Merci à vous tous pour toutes ces réponses !!!

Et un gros merci à laetitia pour ce programme qui m'a bien servi :).