savoir comment faire

benji1919

XLDnaute Occasionnel
bonjour je voudrais qu'on procede par etape,

donc j'ai une grosse base de données excel, j'aimerais que dans ma combobox il ya tout les nom de mes feuilles de mon classeur excel, pour pouvoir choisir dans quelle feuille encoder les données.
je vous mais aussi mon fichier excel. comme sa vous pouvez comprendre mieux.forme.jpg
je vous met aussi mon fichier excel a disposition.
 

Fichiers joints

cp4

XLDnaute Impliqué
Bonjour,
code à mettre dans l'userform
VB:
Private Sub UserForm_Initialize()
Dim ws As Worksheet
    For Each ws In ActiveWorkbook.Sheets
        ComboBox2.AddItem ws.Name
    Next
End Sub
Bon dimanche.
 

benji1919

XLDnaute Occasionnel
bonjour, alors j'ai tester sa met bien les nom des onglet dans ma combobox mais parcontre sa n'enregistre pas les données ou je veux je te met si dessous tout mon code de mon usf.
Code:
Dim f, RngBD, TblBD(), LigneEnreg

Private Sub CheckBox1_Click()

End Sub

Private Sub CheckBox2_Click()

End Sub

Private Sub Enreg_Change()

End Sub

Private Sub Image1_Click()

End Sub

Private Sub UserForm_Initialize()
    Dim ws As Worksheet
    For Each ws In ActiveWorkbook.Sheets
        ComboBox2.AddItem ws.Name
    Next
   Set f = Feuil1
   Set RngBD = f.Range("A3:M" & f.[A65000].End(xlUp).Row)
   RngBD.Sort key1:=Application.Index(RngBD, 1, 1)    ' Tri alpha
   TblBD = RngBD.Value
   If f.[A65000].End(xlUp).Row > 1 Then Me.ComboBox1.List = TblBD
   B_ajout_Click
End Sub

Private Sub ComboBox1_click()
   EnregBD = Me.ComboBox1.ListIndex + 1
   LigneEnreg = Me.ComboBox1.ListIndex + RngBD.Row
   Me.Enreg = LigneEnreg - 1
   If TblBD(EnregBD, 8) = "OUI" Then Me.CheckBox6 = True
   If TblBD(EnregBD, 8) = "NON" Then Me.CheckBox6 = False
   If TblBD(EnregBD, 8) = "" Then Me.CheckBox6 = False
   If TblBD(EnregBD, 9) = "OUI" Then Me.CheckBox3 = True
   If TblBD(EnregBD, 9) = "NON" Then Me.CheckBox3 = False
   If TblBD(EnregBD, 9) = "" Then Me.CheckBox3 = False
   If TblBD(EnregBD, 10) = "OUI" Then Me.CheckBox4 = True
   If TblBD(EnregBD, 10) = "NON" Then Me.CheckBox4 = False
   If TblBD(EnregBD, 10) = "" Then Me.CheckBox4 = False
   If TblBD(EnregBD, 11) = "OUI" Then Me.CheckBox5 = True
   If TblBD(EnregBD, 11) = "NON" Then Me.CheckBox5 = False
   If TblBD(EnregBD, 11) = "" Then Me.CheckBox5 = False
   Me.TextBox1 = TblBD(EnregBD, 1)
   Me.TextBox2 = TblBD(EnregBD, 2)
   Me.TextBox3 = TblBD(EnregBD, 3)
   Me.TextBox4 = TblBD(EnregBD, 4)
   Me.TextBox5 = TblBD(EnregBD, 6)
   Me.TextBox6 = TblBD(EnregBD, 7)
   Me.TextBox8 = TblBD(EnregBD, 12)
   Me.Chemin = TblBD(EnregBD, 13)
   If Dir(Me.Chemin) <> "" Then
      Me.Image1.Picture = LoadPicture(Me.Chemin)
   Else
      Me.Image1.Picture = LoadPicture
   End If
End Sub

Private Sub B_photo_Click()
   nf = Application.GetOpenFilename("Fichiers jpg,*.jpg")
   If Not nf = False Then
     Me.Chemin = nf
     Me.Image1.Picture = LoadPicture(nf)
   End If
End Sub

Private Sub B_valid_Click()
      If Me.TextBox1 <> "" Then
            LigneEnreg = Me.Enreg + 1
            If Me.CheckBox6.Value = True Then f.Cells(LigneEnreg, 8) = "OUI"
            If Me.CheckBox6.Value = False Then f.Cells(LigneEnreg, 8) = "NON"
            If Me.CheckBox6.Value = "" Then f.Cells(LigneEnreg, 8) = ""
            If Me.CheckBox3.Value = True Then f.Cells(LigneEnreg, 9) = "OUI"
            If Me.CheckBox3.Value = False Then f.Cells(LigneEnreg, 9) = "NON"
            If Me.CheckBox3.Value = "" Then f.Cells(LigneEnreg, 9) = ""
            If Me.CheckBox4.Value = True Then f.Cells(LigneEnreg, 10) = "OUI"
            If Me.CheckBox4.Value = False Then f.Cells(LigneEnreg, 10) = "NON"
            If Me.CheckBox4.Value = "" Then f.Cells(LigneEnreg, 10) = ""
            If Me.CheckBox5.Value = True Then f.Cells(LigneEnreg, 11) = "OUI"
            If Me.CheckBox5.Value = False Then f.Cells(LigneEnreg, 11) = "NON"
            If Me.CheckBox5.Value = "" Then f.Cells(LigneEnreg, 11) = ""
            f.Cells(LigneEnreg, 1) = Me.TextBox1
            f.Cells(LigneEnreg, 2) = Me.TextBox2
            f.Cells(LigneEnreg, 3) = Me.TextBox3
            f.Cells(LigneEnreg, 4) = Me.TextBox4
            f.Cells(LigneEnreg, 6) = Me.TextBox5
            f.Cells(LigneEnreg, 7) = Me.TextBox6
            f.Cells(LigneEnreg, 12) = Me.TextBox8
            f.Cells(LigneEnreg, 13) = Me.Chemin
            UserForm_Initialize
      End If
End Sub

Private Sub B_ajout_Click()
  LigneEnreg = f.[A65000].End(xlUp).Row + 1
  Me.Enreg = LigneEnreg - 1
  raz
  Me.ComboBox1 = ""
  Me.Image1.Picture = LoadPicture
  Me.Chemin = ""
  Me.TextBox1.SetFocus
End Sub

Sub raz()
  For i = 1 To 6
    Me("Textbox" & i) = ""
  Next i
  Me.CheckBox6 = False
  Me.CheckBox3 = False
  Me.CheckBox4 = False
  Me.CheckBox5 = False
End Sub

Private Sub B_sup_Click()
   Enreg = Me.Enreg + 1
If MsgBox("Etes vous sûr de suppimer " & f.Cells(Enreg, 1) & "?", vbYesNo) = vbYes Then
   f.Cells(Enreg, 1).Resize(, UBound(TblBD, 2)).Delete Shift:=xlUp
   raz
   Me.Enreg = ""
   UserForm_Initialize
End If
End Sub
 

cp4

XLDnaute Impliqué
[COLOR=#0059b3 a dit:
"benji1919, post: 20168219, member: 209998"][/COLOR]bonjour, alors j'ai tester sa met bien les nom des onglet dans ma combobox mais parcontre sa n'enregistre pas les données ou je veux je te met si dessous tout mon code de mon usf.
Et tu penses que c'est de ma faute que ça n'enregistre pas où tu voudrais.
Tu as demandé d'afficher les onglets dans la combobox, je me suis limité à ta demande initiale.
D'autant plus que ton fichier est vide de code.
 
Dernière édition:

benji1919

XLDnaute Occasionnel
lis bien mon premier message
bonjour je voudrais qu'on procede par etape,

donc j'ai une grosse base de données excel, j'aimerais que dans ma combobox il ya tout les nom de mes feuilles de mon classeur excel, pour pouvoir choisir dans quelle feuille encoder les données.
je vous mais aussi mon fichier excel. comme sa vous pouvez comprendre mieux.
 

Noel Bedard

XLDnaute Occasionnel
Ne joue plus avec ton vieux fichier il n'est pas bon, tu as fais copie collé et les boutons se sont copiés 3 et même 4 fois l'un sur l'autre. Tu as toutes mêlé les champs de tes pages par rapport à ton formulaire.

Tu auras trop de problèmes à le réparer.

Crois-moi.
 

Noel Bedard

XLDnaute Occasionnel
Benji,
cette fois ne déplace rien sur les pages.
Demande avant de tout défaire.

Le formulaire fonctionne pour la feuille qui est active.
 

benji1919

XLDnaute Occasionnel
t'es secret sont super, mais ya pas moyen de faire genre un racourcis avec une combobox ? pour pouvoir encoder directement mes données.
sinon vraiment bravos parcontre j'ai remarquer un truc c'est le meme formulaire que pour les films sa c'est un peux chiant.
 

Noel Bedard

XLDnaute Occasionnel
C'est vraiment beau d'avoir une telle reconnaissance mon ami. Ça m'encourage beaucoup de continuer.
Qu'est-ce qui est plus long de presser sur un bouton que d'ouvrir une liste?

Lorsque tu reconnaîtra toute la chance que tu as, nous verrons.
Pour l'instant comme tu dis c'est un peu chiant.


Merci.
 

benji1919

XLDnaute Occasionnel
je reconnais la chance que j'ai mais j'aimerais comme j'ai expliquer qu'il y a une combobox dans le quelle il y aura toutes les nom des feuilles pour pouvoir choisir dans quelle feuille encoder mes données.
 

Créez un compte ou connectez vous pour répondre

Vous devez être membre afin de pouvoir répondre ici

Créer un compte

Créez un compte Excel Downloads. C'est simple!

Connexion

Vous avez déjà un compte? Connectez vous ici.

Haut Bas