Traduction en code vba

Version imprimable

23/02/2011, 16h55
cedill23

1 pièce(s) jointe(s)

Traduction en code vba

Bonjour,

je voudrais le code correspondant au fichier ci-joint en vba Excel ? es-ce possible svp ?

Je ne sais pas comment faire et avec quel fonction, j'y connais vraiment rien. j'apprends de jour en jour. L'utilisateur aura la possibilité de cocher les cases qu'il veut et 7 cas probable ont été identifiés et dependamment des cases cochées on affiche le userform correspondant.

Pouvez-vous m'écrire le code correspondant svp ?

Merci par avance

Bonsoir,

Ici, les case à cocher sont des contrôles ActiveX incorporés dans une feuille et se nomment "Chk_3G", "Chk_3GS" et "Chk_4G". Mets ce code dans le module de la feuille où sont placées les cases à cocher et teste :

Code:

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
 
Sub OuvrirForm()
 
    Dim Sel As String
 
    If Chk_3G.Value = True Then Sel = Sel & 1
    If Chk_3GS.Value = True Then Sel = Sel & 2
    If Chk_4G.Value = True Then Sel = Sel & 3
 
    Select Case Sel
 
        Case "123"
            UserForm1.Show
        Case "23"
            UserForm2.Show
        Case "12"
            UserForm3.Show
        Case "1"
            UserForm6.Show
        Case "2"
            UserForm5.Show
        Case "3"
            UserForm4.Show
        Case "13"
            UserForm7.Show
        Case Else
            MsgBox "Vous devez faire un choix !"
 
    End Select
 
End Sub

Petite correction, écrire la première ligne de cette façon :

Code:

1
2
 
If Chk_3G.Value = True Then Sel = 1

et non :

Code:

1
2
 
If Chk_3G.Value = True Then Sel = Sel & 1

Hervé.

24/02/2011, 09h13
cedill23

Merci

:D

Par contre des lors que l'utilisateur coche des cases je voudrais que le userform qui s'ouvre soit consultable et modifiable ultérieurement dans un bouton sans cette fois ci passer par les case a cocher.

Avez vous une idée ?

Merci par avance.
24/02/2011, 11h17
casefayere

Bonjour,
D'après ce que je comprends, tu mets la propriété ShowModal de ton USF à false, tu peux ensuite lui ajouter un bouon qui exécutera tes instructions.
24/02/2011, 11h53
cedill23

Mais ensuite comment je récupère mon userform correspondant au case cochés dans mon bouton ? quel est le code à écrire ?

merci
24/02/2011, 13h56
casefayere

j'ai bien écris :

Citation:

D'après ce que je comprends, tu mets la propriété...

Donc là, je ne comprends pas car l'USF ouvert est bien celui que tu as provoqué en cochant tes cases ?
or tu parles de le récupérer alors qu'avec "ShowModal = false", il est toujours affiché et disponible, là je plane à 15000.....
24/02/2011, 14h32
cedill23

Bonjour,

Oui effectivement le userform se provoque et s'ouvre des lors que l'utilisateur coche une ou des cases par contre que se passe t-il si je ferme le userform. je veux pouvoir le re-afficher et pour ce faire je ne veux pas cliquer encore une fois sur les cases à cochées mais à travers d'un bouton nommée (consulter ou modifier le userform) ..es ce plus clair ?

alors peut etre que je n'ai pas compris le showmodal !

Bonsoir,

Je ne sais pas si moi aussi j'ai bien tout compris ?
Ce que j'en ai compris, tu veux ouvrir le formulaire correspondant au choix fait dans les cases à cocher, pouvoir faire autre chose dans Excel et éventuellement réafficher le formulaire sélectionné auparavant sans pour autant te servir des cases à cocher ? Donc, sur l'évennement clic d'un bouton sachant malgré tout que même non modal le formulaire reste affiché dans Excel. Regarde ce qui suit et dis moi :

Code:

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
 
Sub OuvrirForm()
 
    Dim Sel As String
 
    If Chk_3G.Value = True Then Sel = Sel & 1
    If Chk_3GS.Value = True Then Sel = Sel & 2
    If Chk_4G.Value = True Then Sel = Sel & 3
 
    'si déjà affiché, ferme celui en cours
    'avant d'en affecter un autre à la variable
    If Not Frm Is Nothing Then Unload Frm
 
    Select Case Sel
 
        Case "123"
            Set Frm = UserForm1
        Case "23"
            Set Frm = UserForm2
        Case "12"
            Set Frm = UserForm3
        Case "1"
            Set Frm = UserForm6
        Case "2"
            Set Frm = UserForm5
        Case "3"
            Set Frm = UserForm4
        Case "13"
            Set Frm = UserForm7
        Case Else
            MsgBox "Vous devez faire un choix !"
            Exit Sub
 
    End Select
 
 'non madal
 Frm.Show (False)
 
End Sub

A mettre dans un module standard :

Code:

1
2
 
Public Frm As Object

Pour tester le nom du formulaire chargé en mémoire :

Code:

1
2
3
4
5
6
7
8
 
Private Sub CommandButton2_Click()
 
    'une erreur est provoqué si plus en mémoire
    On Error Resume Next
    MsgBox Frm.Name
 
End Sub

Hervé.

25/02/2011, 09h34
cedill23

Je n'ai pas compris le code car je suis certainement novice mais ta compréhension du sujet est parfaite pourrais-tu me détailler ce que fait le code rajouté par rapport au premier code de la toute première discussion.

Merci

J'ai autre souci urgent avec le code suivant : Si veux que mes cases Iphon3G,3GS,4G soit cochées et que j'affiche mon userform correspondant donc un seul userform qui correspond a mes 3 cases cochées je dois passer par l'affichage du userform correspondant a ma case 1 cochéé puis à case 2 et enfin pour arriver à mon bon userform avec la 3ième case cochée.

C pouvoir cocher et obtenir un seul userform.
Code:

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 Sub OuvrirForm() Dim Sel As String If Chk_3G.Value = True Then Sel = 1 If Chk_3GS.Value = True Then Sel = Sel & 2 If Chk_4G.Value = True Then Sel = Sel & 3 Select Case Sel Case "123" UserForm1.Show Case "23" UserForm2.Show Case "12" UserForm3.Show Case "1" UserForm6.Show Case "2" UserForm5.Show Case "3" UserForm4.Show Case "13" UserForm7.Show Case Else MsgBox "Vous devez faire un choix !" End Select End Sub
Merci de m'aider je suis perdu
L'ideal finalement ce que je vois avec les contraintes évoqués ci-dessus c'est de ne rien faire comme exécution lors du coche des cases mais de rajouter un bouton qui va permettre d'afficher le userform correspondant.

26/02/2011, 09h08
Theze
Bonjour,

Remplace les lignes :
Code:

1 2 3 4 If Chk_3G.Value = True Then Sel = 1 If Chk_3GS.Value = True Then Sel = Sel & 2 If Chk_4G.Value = True Then Sel = Sel & 3
par :
Code:

1 2 3 4 If Chk_3G.Value = True Then Sel = "1" If Chk_3GS.Value = True Then Sel = Sel & "2" If Chk_4G.Value = True Then Sel = Sel & "3"
Pour ce qui est de mon second post, j'utilise une variable objet (Frm) afin de garder en mémoire le formulaire ouvert car tu dis vouloir le réactiver sans repasser par les cases à cocher. En fonction du choix dans les cases à cocher, l'Userform correspondant est affecté à Frm exemple, 'Set Frm = UserForm5'. Au début, si un userform est déjà afficher, le ferme avant d'en ouvrir un autre 'If Not Frm Is Nothing Then Unload Frm'

Hervé.