Discussion :

[Pierre Fauconnier]

Merci de commencer un nouveau sujet pour le problème des boutons.

[Sparfell29]

Je vais faire ça pas de soucis pour l'histoire de boutons. Quelqu'un peut-il m'expliquer comment il a fait pour résoudre le problème de ce topic ci du coup ? Je suis ravis que cela soit résolu mais je suis curieux et j'aimerai pouvoir le refaire =D
Je vais aller lire ce que Marcel m'a donné comme lien pour progresser peut être que je trouverai tout seul

[Pierre Fauconnier]

[...]Je suis ravis que cela soit résolu mais je suis curieux et j'aimerai pouvoir le refaire[...]

C'est le problèmes des solutions plaquées sans explications alors que d'autres intervenants ont eu le respect et la patience de t'expliquer les choses pour que tu gagnes en autonomie. On ne peut pas avoir le beurre, l'argent du beurre et le cul de la crémière...

[boisgontierjacques]

Bonjour,

Pour remettre à zéro la LIstBox (fiche vierge)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

For J = 0 To Me.ListBox1.ListCount - 1: Me.ListBox1.Selected(J) = False: Next J

En PJ, un exemple de Création,Modif,Suppression (le bouton Ajout crée une fiche vierge)

Boisgontier

[Sparfell29]

C'est le problèmes des solutions plaquées sans explications alors que d'autres intervenants ont eu le respect et la patience de t'expliquer les choses pour que tu gagnes en autonomie. On ne peut pas avoir le beurre, l'argent du beurre et le cul de la crémière...

C'est justement pour ca que je ne m'en sers pas bêtement mais que j'essaye de décortiquer morceaux par morceaux ce qui a été fait pour le comprendre. Vous m'avez tous bien aidé et tout ce que tu m'appris m'a servi ou me servira.
Tu n'as pas perdu ton temps pour que je me jette sur la première correction qui ne me demande pas de boulot. Ma démarche est sincère et j'ai vraiment à coeur de comprendre je vais d'ailleurs me servir de tout ce qui m'a été expliqué ici pour se faire.
Ce n'est que ma première semaine de stage et j'ai déjà appris à faire des choses dont je ne soupçonnais même pas l'existence, un grand merci à tous

[Sparfell29]

Bonjour,

Pour remettre à zéro la LIstBox (fiche vierge)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

For J = 0 To Me.ListBox1.ListCount - 1: Me.ListBox1.Selected(J) = False: Next J

En PJ, un exemple de Création,Modif,Suppression (le bouton Ajout crée une fiche vierge)

Boisgontier

Merci bien je regarde ça =D

[Philippe Tulliez]

Bonjour,
Exemple d'utilisation dans cette contribution USERFORM CRUD - Version 3,2 avec fichier à télécharger.
Nouvelle version de la contribution titrée USERFORM - Créer, Consulter, Modifier et Supprimer des enregistrements à l'aide d'un formulaire

Toutes les explications s'y trouvent.

[boisgontierjacques]

Bonsoir,

Nouvelle version

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
Option Compare Text
Dim nomtableau
Private Sub UserForm_Initialize()
  nomtableau = "produit"
  Me.enreg = Range(nomtableau).Rows.Count + 1
  Me.Id = Application.Max(Range(nomtableau).Columns(1)) + 1
  Tbl = Range(nomtableau).Value
  Tri Tbl, LBound(Tbl), UBound(Tbl), 1
  Me.Recherche.List = Tbl
  Me.ListBox1.List = [Tableau2].Value
End Sub
 
Private Sub Recherche_Change()
  Me.enreg = Application.Match(Val(Me.Recherche), Range(nomtableau).Columns(1), 0)
  Me.Id = Me.Recherche
  For i = 2 To 3
    Me("TextBox" & i) = Range(nomtableau).Item(enreg, i)
  Next i
  Me.Textbox4 = Range(nomtableau).Item(enreg, 4)
  Me.Textbox5 = Range(nomtableau).Item(enreg, 5)
  Me.Textbox6 = Range(nomtableau).Item(enreg, 6)
  Me.Textbox7 = Range(nomtableau).Item(enreg, 7)
  For i = 9 To 11
    Me("TextBox" & i) = Range(nomtableau).Item(enreg, i)
  Next i
  '--- services
   temp = Range(nomtableau).Item(enreg, 8)
   a = Split(temp, ",")
   For j = 0 To Me.ListBox1.ListCount - 1: Me.ListBox1.Selected(j) = False: Next j
   If UBound(a) >= 0 Then
        For j = 0 To Me.ListBox1.ListCount - 1
           If Not IsError(Application.Match(Me.ListBox1.List(j), a, 0)) Then
               Me.ListBox1.Selected(j) = True
           Else
               Me.ListBox1.Selected(j) = False
           End If
         Next j
    End If
End Sub
 
Private Sub B_valid_Click()
  enreg = Me.enreg
  Range(nomtableau).Item(enreg, 1) = Val(Me.Id)
  For i = 2 To 3
    Range(nomtableau).Item(enreg, i) = Me("TextBox" & i)
  Next i
  temp = Range(nomtableau).Item(enreg, 4): If IsDate(temp) Then temp = CDate(temp)
  Range(nomtableau).Item(enreg, 4) = temp
  temp = Range(nomtableau).Item(enreg, 5): If IsDate(temp) Then temp = CDate(temp)
  Range(nomtableau).Item(enreg, 5) = temp
  Range(nomtableau).Item(enreg, 6) = Me.Textbox6
  Range(nomtableau).Item(enreg, 7) = Me.Textbox7
  For i = 9 To 11
    Range(nomtableau).Item(enreg, i) = Me("TextBox" & i)
  Next i
  '-- services
   temp = ""
   For i = 0 To Me.ListBox1.ListCount - 1
      If Me.ListBox1.Selected(i) = True Then temp = temp & Me.ListBox1.List(i) & ","
   Next i
   Range(nomtableau).Item(enreg, 8) = temp
   raz
   UserForm_Initialize
End Sub
 
Private Sub B_sup_Click()
  If MsgBox("Etes vous sûr de supprimer " & Me.Nom & "?", vbYesNo) = vbYes Then
     Range(nomtableau).Rows(Me.enreg).Delete
     Me.Recherche.List = Range(nomtableau).Value
  End If
End Sub
 
Private Sub B_ajout_Click()
  raz
  Me.Id = Application.Max(Range(nomtableau).Columns(1)) + 1
  Me.enreg = Range(nomtableau).Rows.Count + 1
End Sub
 
Sub raz()
  For i = 2 To 7
     Me("TextBox" & i) = ""
  Next i
  For i = 9 To 11
     Me("TextBox" & i) = ""
  Next i
  For j = 0 To Me.ListBox1.ListCount - 1: Me.ListBox1.Selected(j) = False: Next j
End Sub
 
Private Sub B_suivant_Click()
 If Me.Recherche.ListIndex < Me.Recherche.ListCount - 1 Then
   Me.Recherche.ListIndex = Me.Recherche.ListIndex + 1
  End If
End Sub
 
Private Sub b_précédent_Click()
  If Me.Recherche.ListIndex > 0 Then
    Me.Recherche.ListIndex = Me.Recherche.ListIndex - 1
  End If
End Sub

Boisgontier