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.
 

Pièces jointes

  • blio.xlsm
    83.7 KB · Affichages: 42

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 Barbatruc
[COLOR=#0059b3 à 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.
 

Discussions similaires

Réponses
5
Affichages
165

Statistiques des forums

Discussions
311 720
Messages
2 081 917
Membres
101 839
dernier inscrit
laurentEstrées