[E03] Propriétés des userforms

**helprojet** · 22/02/2009, 15h49

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.

**casefayere** · 22/02/2009, 16h14

Bonjour,
déjà pour :

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 :

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

range("a1") = textbox1.value

ça c'est pour commencer

**edelweisseric** · 22/02/2009, 16h30

Bonjour à tous
Bonjour helprojet, casefayere

En complément :
1ère question :

Code :

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

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 :

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

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 :

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

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

Tu nous dis

Eric

**laetitia** · 22/02/2009, 16h34

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

**casefayere** · 22/02/2009, 16h58

Bonjour tous

j'ajouterais au code d'edelweisseric :

Code :

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

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