1. Ce site utilise des "témoins de connexion" (cookies) conformes aux textes de l'Union Européenne. Continuer à naviguer sur nos pages vaut acceptation de notre règlement en la matière. En savoir plus.

XL 2007 savoir comment faire

Discussion dans 'Forum Excel' démarrée par benji1919, 11 Février 2018.

  1. benji1919

    benji1919 XLDnaute Occasionnel

    Inscrit depuis le :
    6 Février 2018
    Messages :
    110
    "J'aime" reçus :
    0
    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
      Taille du fichier:
      83.7 Ko
      Affichages:
      19
  2. cp4

    cp4 XLDnaute Occasionnel

    Inscrit depuis le :
    7 Novembre 2015
    Messages :
    245
    "J'aime" reçus :
    12
    Bonjour,
    code à mettre dans l'userform
    Code (Visual Basic):
    Private Sub UserForm_Initialize()
    Dim ws As Worksheet
        For Each ws In ActiveWorkbook.Sheets
            ComboBox2.AddItem ws.Name
        Next
    End Sub
    Bon dimanche.
     
  3. benji1919

    benji1919 XLDnaute Occasionnel

    Inscrit depuis le :
    6 Février 2018
    Messages :
    110
    "J'aime" reçus :
    0
    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 (Text):




    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

     
     
  4. cp4

    cp4 XLDnaute Occasionnel

    Inscrit depuis le :
    7 Novembre 2015
    Messages :
    245
    "J'aime" reçus :
    12
    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: 11 Février 2018
  5. benji1919

    benji1919 XLDnaute Occasionnel

    Inscrit depuis le :
    6 Février 2018
    Messages :
    110
    "J'aime" reçus :
    0
    lis bien mon premier message
     
  6. benji1919

    benji1919 XLDnaute Occasionnel

    Inscrit depuis le :
    6 Février 2018
    Messages :
    110
    "J'aime" reçus :
    0
    bah j'ai mis le code dans une balise code
     
  7. benji1919

    benji1919 XLDnaute Occasionnel

    Inscrit depuis le :
    6 Février 2018
    Messages :
    110
    "J'aime" reçus :
    0
    ducoup vue que j'ai mis un fichier sans code voici mon fichier excel que je suis entrain de travailler dessus.
     

    Pièces jointes:

    • bibi.xlsm
      Taille du fichier:
      31 Ko
      Affichages:
      7
  8. Noel Bedard

    Noel Bedard XLDnaute Occasionnel

    Inscrit depuis le :
    9 Janvier 2018
    Messages :
    148
    "J'aime" reçus :
    14
    Sexe :
    Masculin
    Habite à:
    Montréal, Province de Québec
    Utilise:
    Excel 2007 (PC)
    Salut Benji,

    Peux-tu essayer cela.

    Bye
     

    Pièces jointes:

    • blio1.xlsm
      Taille du fichier:
      143.7 Ko
      Affichages:
      16
  9. benji1919

    benji1919 XLDnaute Occasionnel

    Inscrit depuis le :
    6 Février 2018
    Messages :
    110
    "J'aime" reçus :
    0
    Noel, peux tu me dire ou je choisie dans quelle page encoder mes données ?
     
  10. Noel Bedard

    Noel Bedard XLDnaute Occasionnel

    Inscrit depuis le :
    9 Janvier 2018
    Messages :
    148
    "J'aime" reçus :
    14
    Sexe :
    Masculin
    Habite à:
    Montréal, Province de Québec
    Utilise:
    Excel 2007 (PC)
    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.
     
  11. Noel Bedard

    Noel Bedard XLDnaute Occasionnel

    Inscrit depuis le :
    9 Janvier 2018
    Messages :
    148
    "J'aime" reçus :
    14
    Sexe :
    Masculin
    Habite à:
    Montréal, Province de Québec
    Utilise:
    Excel 2007 (PC)
    Ça se fait seul
     
  12. benji1919

    benji1919 XLDnaute Occasionnel

    Inscrit depuis le :
    6 Février 2018
    Messages :
    110
    "J'aime" reçus :
    0
    oui mais comment le formulaire peut savoir que c'est un jeux 3DS ?
     
  13. Noel Bedard

    Noel Bedard XLDnaute Occasionnel

    Inscrit depuis le :
    9 Janvier 2018
    Messages :
    148
    "J'aime" reçus :
    14
    Sexe :
    Masculin
    Habite à:
    Montréal, Province de Québec
    Utilise:
    Excel 2007 (PC)
    Bon es-tu heureux maintenant.

    Essaies le et donne m'en des nouvelles.

    Salut
     
  14. Noel Bedard

    Noel Bedard XLDnaute Occasionnel

    Inscrit depuis le :
    9 Janvier 2018
    Messages :
    148
    "J'aime" reçus :
    14
    Sexe :
    Masculin
    Habite à:
    Montréal, Province de Québec
    Utilise:
    Excel 2007 (PC)
    HA j'ai des secrets
     
  15. Noel Bedard

    Noel Bedard XLDnaute Occasionnel

    Inscrit depuis le :
    9 Janvier 2018
    Messages :
    148
    "J'aime" reçus :
    14
    Sexe :
    Masculin
    Habite à:
    Montréal, Province de Québec
    Utilise:
    Excel 2007 (PC)
    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.
     
  16. benji1919

    benji1919 XLDnaute Occasionnel

    Inscrit depuis le :
    6 Février 2018
    Messages :
    110
    "J'aime" reçus :
    0
    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.
     
  17. Noel Bedard

    Noel Bedard XLDnaute Occasionnel

    Inscrit depuis le :
    9 Janvier 2018
    Messages :
    148
    "J'aime" reçus :
    14
    Sexe :
    Masculin
    Habite à:
    Montréal, Province de Québec
    Utilise:
    Excel 2007 (PC)
    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.
     
  18. benji1919

    benji1919 XLDnaute Occasionnel

    Inscrit depuis le :
    6 Février 2018
    Messages :
    110
    "J'aime" reçus :
    0
    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.
     
  19. Staple1600

    Staple1600 XLDnaute Barbatruc

    Inscrit depuis le :
    24 Juin 2005
    Messages :
    23415
    "J'aime" reçus :
    909
    Habite à:
    Roahzon
    Utilise:
    Excel 2013 (PC)
    Bonjour le fil,le forum

    Pour infos:
    C'est le 3ième fil pour la même question
    https://www.excel-downloads.com/threads/demande.20022577/
    Et peut-être sont les quinze ans d'âge de benji1919 qui explique sa promptitude à multiplier les fils...

    @benji1919
    La coutume c'est de rester dans la discussion initiale, sinon on ne sait plus où il faut répondre.
     
  20. benji1919

    benji1919 XLDnaute Occasionnel

    Inscrit depuis le :
    6 Février 2018
    Messages :
    110
    "J'aime" reçus :
    0
    d'appuyer sur un bouton c'est plus long.
     

Partager cette page