savoir comment faire

[benji1919]

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.

je vous met aussi mon fichier excel a disposition.

 

[Noel Bedard]

Oui Mr. ça aussi c'est fait. j'ai apporté toutes les modifications.

Merci

 

[Staple1600]

Re

Allez zou, au lit!
Une dernière suggestion pour la route

Sub raz()
Dim ctl As MSForms.Control
For Each ctl In Me.Controls
    Select Case TypeName(ctl)
        Case "TextBox": ctl.Text = ""
        Case "CheckBox": ctl.Value = False
        Case "ComboBox": ctl.ListIndex = -1
    End Select
Next ctl
End Sub

 

[Noel Bedard]

Oh oui, cela réduit un "listing" et de beaucoup.

Merci et bonne nuit
Noël

 

[benji1919]

bonjour, ouf merci en plus ce travaille la c'est un prof qui me la demander en devoir alors que j'ai pas beaucoup de base dans le codage grace a vous je suis content je vais avoir un 10/10 car s'en vous, j'aurais eu un 0/10.

 

[benji1919]

bonjour, ouf je suis deja content d'en arriver la, mon prof voulais voir ma collection de jeu donc voila quoi mais il y a encore des chose a modifier au quelle j'ai essayer mais n'arrive pas a résoudre mes erreur.

j'ai aussi rajouter une checkbox qui dit si oui ou non le jeux a été acquis mais je n'arrive pas j'ai regarder j'ai essayer mais pas moyen.

j'ai rajouter une colonne dans acquisition qui ce surnom pour les jeux "jeux acquis" est dans les films "films acquis". est j'ai fait sa sans copier coller, j'ai rajouter a chaque page a la main.

voila j'ai rajouer une checkbox dans ceci :

Private Sub ComboBox1_click()
      EnregBD = Me.ComboBox1.ListIndex + 1
      LigneEnreg = Me.ComboBox1.ListIndex + RngBD.Row
      Me.Enreg = LigneEnreg - 4
      If TblBD(EnregBD, 7) = "OUI" Then Me.CheckBox1 = True
      If TblBD(EnregBD, 7) = "NON" Then Me.CheckBox1 = False
      If TblBD(EnregBD, 7) = "" Then Me.CheckBox1 = False
      If TblBD(EnregBD, 8) = "OUI" Then Me.CheckBox2 = True
      If TblBD(EnregBD, 8) = "NON" Then Me.CheckBox2 = False
      If TblBD(EnregBD, 8) = "" Then Me.CheckBox2 = 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, 5)
      If ActiveWorkbook.CodeName <> "Feuil3" Or ActiveWorkbook.CodeName <> "Feuil5" Or ActiveWorkbook.CodeName <> "Feuil18" Then Me.TextBox6 = TblBD(EnregBD, 6)
   Me.TextBox7 = TblBD(EnregBD, 12)
   Me.Chemin = TblBD(EnregBD, 16)
   If Dir(Me.Chemin) <> "" Then
      Me.Image1.Picture = LoadPicture(Me.Chemin)
   Else
      Me.Image1.Picture = LoadPicture
   End If
End Sub

mais petit problemes il me dit qu'il y a une erreur dans cette ligne si :

Private Sub B_Enregistrer_Click()
Dim COL() As Variant, i As Integer
      If Me.TextBox1 <> "" Then
            LigneEnreg = Me.Enreg + 4
      With ComboBox1.Value
            COL = Array(7, 8, 9, 10)
            For i = 1 To 5
              Cells(LigneEnreg, COL(i - 1)) = IIf(Me.Controls("CheckBox" & i), "OUI", "NON")
            Next
      End With
            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, 5) = Me.TextBox5
            If ActiveWorkbook.CodeName <> "Feuil3" Or ActiveWorkbook.CodeName <> "Feuil5" Or ActiveWorkbook.CodeName <> "Feuil18" Then f.Cells(LigneEnreg, 6) = Me.TextBox6
            f.Cells(LigneEnreg, 12) = Me.TextBox7
            f.Cells(LigneEnreg, 16) = Me.Chemin
            UserForm_Initialize
      End If
End Sub

donc il me met une erreur sur cette ligne de code qui est :

Cells(LigneEnreg, COL(i - 1)) = IIf(Me.Controls("CheckBox" & i), "OUI", "NON")

maintenant supposons j'ai acquis une nouvelle console, je l'ajoute dans l'onglet "Accueil" mais dois-je changer quelque chose dans le code ?

en tout cas merci a vous tous.

 

[benji1919]

je suis obliger de ne pas utiliser le COL ou il suffit de modifier la ligne de code ?

 

[benji1919]

j'ai copier- coller ton code

Private Sub B_Enregistrer_Click()
Dim i&
      If Me.TextBox1 <> "" Then
            LigneEnreg = Me.Enreg + 4
      With Sheets(ComboBox1.Value)
            For i = 7 To 10
              .Cells(LigneEnreg, i) = IIf(Me.Controls("CheckBox" & i - 6), "OUI", "NON")
            Next
      End With
    f.Range(f.Cells(LigneEnreg, 1), f.Cells(LigneEnreg, 5)) = Array(Me.TextBox1, Me.TextBox2, Me.TextBox3, Me.TextBox4, Me.TextBox5)
    If ActiveWorkbook.CodeName <> "Feuil3" Or ActiveWorkbook.CodeName <> "Feuil5" Or ActiveWorkbook.CodeName <> "Feuil18" Then f.Cells(LigneEnreg, 6) = Me.TextBox6
    f.Cells(LigneEnreg, 11) = Me.TextBox7
    f.Cells(LigneEnreg, 16) = Me.Chemin
    UserForm_Initialize
    End If
End Sub

mais il me met une erreur a cette ligne de code :

With Sheets(ComboBox1.Value)

 

[Staple1600]

Re

Tu peux répondre à mes questions au préalable, stp ?

Si tu ne sais pas expliquer ou utiliser le code VBA que nous t'avons fourni, quel intérêt d'avoir 10/10 ???
Et j'aimerais bien savoir quelles études tu suis?
En théorie (et sauf erreur) à 15 ans tu dois être au collège, non ?
Jamais entendu parler de cours de VBA au collège?

Avant que je réponde aux tiennes

 

[benji1919]

en faite comment t'expliquer mon prof d'informatique m'apprend des cours particulier car je c'est deja tout ce qu'il apprend au autre.

 

[benji1919]

si tu veux savoir aux autre il n'apprend pas le code vba est je ne c'est pas a quoi sa sert.

 

[benji1919]

je n'est pas compris, a quoi cela sert.

 

[benji1919]

pfff il n'y a pas moyen que tu me donne ce que jedoit avoir pour que mon fichier fonctionne ?

 

[Staple1600]

Re

@benji1919
C'est ta question, ton projet, ton cours avec ton prof, tes notes
C'est à toi de produire les efforts (pas à moi)
Et j'estime avoir fait plus que ma part.
Je t'ai fourni explications, conseils et codes VBA.

Je te rends ton Pfff
(auquel j'ajoute: areuh, areuh)

 

[benji1919]

j'ai regarder mais je ne fois que des 7, 8, 9, 10

 

[Staple1600]

Re

Tu as relu les messages#57 et #58?