Programmation VB Fermé

Question

Bonjour, 

1) j'aurais voulus savoir comment programmer en VB une Combobox à partir d'un fichier Excel. Ce fichier comporte 9 onglets et ce sont ces onglets que je souhaiterais pouvoir afficher dans la Combobox puis valider mon choix par un Bouton. 

2) je voudrais créer une application VB me permettant de restreindre l'accès à ma base de donnée par un login 

Merci pour votre aide.

flofido · Answer

Salut, essaye un truc du genre :

Me.Combobox1.AddItem Worksheets(1).Name
Me.Combobox1.AddItem Worksheets(2).Name
Me.Combobox1.AddItem Worksheets(3).Name
Me.Combobox1.AddItem Worksheets(4).Name
Me.Combobox1.AddItem Worksheets(5).Name
Me.Combobox1.AddItem Worksheets(6).Name
Me.Combobox1.AddItem Worksheets(7).Name
Me.Combobox1.AddItem Worksheets(8).Name
Me.Combobox1.AddItem Worksheets(9).Name



Pour le mot de passe, je crois que tu peux pas que tu puisse utiliser un classeur excel protégé par un mot de passe dans un programme VB

aquarelle · Answer

Bonjour Rtom,
Pour le 1)
Il te faudrait créer une User Form, (que j'ai appelée fmListeOngletsClasseur), comme celle-ci  dans le classeur de macro personnelle comme ça elle peut servir pour tous les classeurs (cbListeOngletsClasseur est le nom que j'ai donné à la ComboBox dans ma UserForm) 
https://imageshack.com/

puis écrire dans son code ce qui suit :


-------------------------------------------------------------------------
Private Sub cbListeOngletsClasseur_Change()
   cbListeOngletsClasseur.MatchRequired = True
   cbListeOngletsClasseur.MatchEntry = fmMatchEntryComplete
End Sub
---------------------------------------------------------------------------
Private Sub cbListeOngletsClasseur_Click()
     Select Case cbListeOngletsClasseur.ListIndex
     End Select
End Sub
---------------------------------------------------------------------------
Private Sub cmdOK_Click()
    Num = (cbListeOngletsClasseur.ListIndex) + 1
        If Num = 0 Then
        MsgBox "Vous n'avez rien sélectionné, RECOMMENCER!!!"
        Unload fmListeOngletsClasseur
        Call ChoixOnglet
        Else
        Sheets.Item(Num).Select
        Unload fmListeOngletsClasseur
        End If
End Sub
---------------------------------------------------------------------------
Private Sub cmdOK_Enter()
Num = (cbListeOngletsClasseur.ListIndex) + 1
        If Num = 0 Then
        MsgBox "Vous n'avez rien sélectionné, RECOMMENCER!!!"
        Unload fmListeOngletsClasseur
        Call ChoixOnglet
        Else
        Sheets.Item(Num).Select
        Unload fmListeOngletsClasseur
        End If
End Sub
---------------------------------------------------------------------------
Private Sub cmdQuitter_Click()
    fmListeOngletsClasseur.Hide
    Unload fmListeOngletsClasseur
End Sub
---------------------------------------------------------------------------
Private Sub UserForm_Initialize()
    Dim Numfeuille As Integer
    Dim NomFeuille As Variant
    
        For Numfeuille = 1 To Worksheets.Count
            NomFeuille = Worksheets(Numfeuille).Name
            cbListeOngletsClasseur.AddItem "" & NomFeuille
        Next Numfeuille
   cbListeOngletsClasseur.Style = fmStyleDropDownCombo
End Sub
----------------------------------------------------------------------------

Ensuite tu crées (dans module du classeur de macro personnelle) une macro appelée ici ChoixOnglet dont le code est le suivant :

Sub ChoixOnglet()
    Load fmListeOngletsClasseur
    fmListeOngletsClasseur.Show
End Sub


J'espère que cela te sera utile, elle fonctionne et je l'utilise tous les jours.
Tiens moi au courant et n'hésite pas si tu as besoin de plus d'infos.

En ce qui concerne le 2) 
Pourquoi ne protèges-tu pas ta base de donnée (je suppose faite sur un classeur excel) en faisant : Enregistrer sous , puis quand la bîte est ouverte choisir ---->Outils (en haut à droite)---->choisir "Options générales..., une nouvelle boîte de dialogue s'ouvre où tu peux choisir comment tu veux protéger ton classeur.

-Si tu veux seulement protéger ton classeur en écriture c'est à dire qu'on ne puisse pas modifier ta base de donnée mais qu'on puisse la lire (ouvrir et voir ce qu'il y a dedans), tu mets un mot de passe seulement dans la case à côté de "Mot de passe pour la modification " (que tu devras confirmer en le tapant une deuxième fois) et tu coches la case "Lecture seule recommandée".
-Si tu veux aussi que personne ne puisse y accéder en lecture (ou seulement les personnes qui auront le mot de passe que tu leur donneras), il te faudra, alors,choisir un  autremot de passe (différent du premier) que tu mettras dans la case à côté de "Mot de passe pour la lecture" (que tu confirmeras, là aussi en le tapant une deuxième fois).
Là aussi, j'espère avoir répondu à ton attente.

Si ton problème est résolu, penses à mettre ton topic en résolu (tout en haut du topic choix à activer)
Bonne chance et à +

marouane · Answer

Bonjour

Pour répondre a votre cas il suffit de faire l'automation avec excel en visual basic ou un fichier texte pour récupérrer les donnée dans un msflexgrid ou combo.

Pour la solution du login sécurisé tu peut créer une table utilisateur et mot de passe par exemple et la lier a une fenetre comme ca tu vérifiera que le login et le mot de passe existe avant de valider.

http://www.maroudev.com

Rtom · Answer

Ok mais comment tu fais pour créer une "table utilisateur" ?

Merci :D

Programmation VB

4 réponses

Discussions similaires