Discussion :

[blackstrange]

Bonjour,

A l'ouverture de mon classeur je souhaiterai que les utilisateurs est le choix entre deux activités qui lancera l'ouverture de InputBox afin d'ouvrir les feuilles correspondantes.

Comment puis-je écrire le code vba pour ce userform ?

Merci!

[lelensois16]

Bonjour,

Il faut utiliser l'évenement Workbook.Open :

Code :

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

1
2
3
4
 
Private Sub Workbook_Open()
  UserForm.Show
End Sub

Cdt

[blackstrange]

Bonjour!

Merci, donc si j'ai bien compris, ce code sert à afficher l'userform que j'aurai préalablement créé ?
comment écrire l'userform pour qu'il m'envoie sur une feuille spécifique lorsque j'ai coché une des cases puis appuyé sur un bouton ok ?

[rvtoulon]

bonjour,
dans ton userform puisque tu as deux activités, utilises des optionbuttons car il n'y a pas de risque de valider les deux en même temps. c'est soit un, soit l'autre.

ensuite dans ton userform dans le code du bouton tu met ceci:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Private Sub CommandButton1_Click()
'si l'optionbutton 1 est cliqué alors
If Me.OptionButton1.Value = True Then
 'affiche "Feuil1"
 Sheets("Feuil1").Activate
 
'si l'option button 2 est cliqué alors
ElseIf Me.OptionButton2 = True Then
 'affiche Feuil2   
 Sheets("Feuil2").Activate
End If
 
'ferme l'userform
Unload Me
End Sub

voilà le principe

EDIT : à lire pour faire des userforms : tuto 1
pour utiliser les contrôles dans un userform : tuto 2

[blackstrange]

Merci!

J'étais justement en train de lire ces tutos!
Si je souhaite mettre un bouton Ok et un bouton annuler, je dois utiliser une condition IF ? dès le départ ?

[blackstrange]

Re!

J'ai réussi à faire mon premier UserForm ("Accueil") qui doit ouvrir les UserForms "Bureau" ou "Employé" selon le choix fait sur l'OptionButton. Mais cela ne fonctionne pas. Puis-je vous demander votre aide ?
je vous joint mon fichier!

Merci d'avance

[rvtoulon]

re voici comment tu dois présenter tes codes:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
Private Sub Accueil_Initialize()
Me.OptionButton1.Value = False
Me.OptionButton2.Value = False
End Sub
 
Private Sub CommandButton1_Click()
 'si l'optionbutton 1 (remplir une nouvelle fiche) est coché alors
If Me.OptionButton1.Value = True Then
    'ferme l'userform
    Unload Me
    'affiche l'UserForm "Employé"
    Employé.Show
 
'si l'option button 2 (consulter des fiches) est coché alors
ElseIf Me.OptionButton2 = True Then
    'ferme l'userform
    Unload Me
    'affiche l'UserForm "Bureau"
    Bureau.Show
End If
End Sub
 
Private Sub CommandButton2_Click()
'ferme le classeur sans sauvegarder
ThisWorkbook.Close False
End Sub

Une remarque évite d'utiliser des noms avec des Accents "employé" c'est parfois cause de problème.

[blackstrange]

Merci! ça fonctionne!

j'aurai une autre question,

l'userform "employéé demande un mot de passe (j'ai réussi à l'écrire) puis ouvre une InputBox qui demande la date du jour. (varibale DateJour)
Elle propose par défaut la date du jour de manière à rendre plus rapide l'ouverture de la fiche puis que celle-ci ne se fera qu'une fois par jour.
Comment faire pour vérifier que la date a été écrite au bon format dans le cas où la personne taperai elle-même la date ?

Sinon merci beaucoup! je commence à me débrouiller un peu plus toute seule!

[rvtoulon]

Bonjour,
je ne vois pas l'utilité de proposer de saisir une date si celle-ci doit toujours être la date du jour.
Tu n'as qu'a mettre cette date directement dans ta variable "DateJour"

Code :

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

1
2
Dim DateJour As Date
DateJour = Date

Cela évitera bien des erreurs, des lignes de code de contrôle et de formatage et tu peux te servir de ta variable comme tu le souhaites.

exemple j'affiche la Date du jour dans un msgbox :

Code :

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

1
2
3
Dim DateJour As Date
DateJour = Date
msgbox "Nous sommes le " & DateJour

[blackstrange]

Re!

En effet cette une très bonne remarque!
Je vous joins le code et sa suite qui permet de créer une nouvelle feuille à la fin de classeur dont le nom reprend la date du jour. Je me suis aidée d'un tuto que j'ai trouvé sur internet mais il y a pas mal de code "On Error Go To" et j'aimerai avoir un avis sur la cohérence de l'ensemble!

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
 Private Sub CommandButtonOK_Click()
'La personne a appuyé sur le bouton ok
 
    If TextBox1 = "EMPLOYE" Then 'Vérifie le mot de passe tapé
        TextBox1 = "" 'Vide la case de saisie
        Unload Employe 'ferme l'userform "Employe"
 
            Dim DateJour As Date
            DateJour = Format(Date, "dd mmmm yyyy")
            MsgBox "Nous sommes le" & DateJour, vbOKOnly + vbInformation, "Ouverture d'une nouvelle fiche"
                'La boite de dialogue affiche le message et le titre définit précédemment et donne la date du jour
 
 
            Sheets("Fiche").Copy After:=Sheets(Sheets.Count)
                'Ajoute une copie de la feuille "Fiche" à la fin du classeur.
 
            On Error GoTo S 'Si une erreur se produit dans la ligne qui _
                suit, elle est ignorée, et l'exécution continue à la ligne _
                suivante après le traitement de l'erreur (ligne S).
 
            Sheets(Sheets.Count).Name = Format(DateJour, "dd mm yyyy")
            '...renomme la feuille créée avec la date du jour, contenue dans la variable DateJour _
            Si ce nom existe déjà dans le classeur, une erreur se produit. Grâce à la ligne précédente cette erreur _
            est ignorée et l'exécution du code continue.
 
E:          On Error GoTo 0 'A partir d'ici, les éventuelles erreurs ne sont plus _
                ignorées.
 
Exit Sub
 
      'Suppression de la feuille créée si une erreur survient.
S:     With Application: .DisplayAlerts = False: Sheets(Sheets.Count).Delete: .DisplayAlerts = True: End With
    Resume Next
 
    Else 'Message d'erreur si le mot de passe tapé est incorrect
        MsgBox "Mot de passe invalide", vbOKOnly + vbExclamation, "ERREUR"
        TextBox1 = "" 'Vide la case de saisie
 
    End If
 
End Sub