Problème Listbox, mise à jour BD via textbox

Version imprimable

11/12/2014, 23h07
Invité

1 pièce(s) jointe(s)

Problème Listbox, mise à jour BD via textbox

Bonsoir à toutes et à tous,

En cliquant sur une ligne d'une Listbox, je récupère les données de celle-ci dans des textboxs, où j'effectue mes modifications puis en validant avec un bouton ces données doivent être transférées sur la feuille (mise à jour des données) et la Listbox doit se mettre à jour.

j'ai suivi la procédure pas à pas et je me suis rendu compte qu'après le transfert du 1er textbox (le textbox2) , elle saute à Private Sub ListBox1_Change() et du coup toutes mes modifications disparaissent.

J'ai eu beau chercher le pourquoi et le comment pour résoudre le problème sans succès. D'autant plus que c'est la première fois que je travaille avec une Listbox.

je suis parvenu à faire ce formulaire en suivant des tutos et exemples.

la 1ere colonne représente des outils de productions, les colonnes suivantes leurs caractéristiques et la dernière colonne l’état de l'outil (en service ou hors service).

Généralement on ne change que l’état de l'outil, c'est pour cela que j'ai mis une checkbox qui doit transmettre directement le changement sur la feuille et la Listbox doit se mettre à jour.

En espérant que mes explications sont assez claires. Je vous remercie par avance.

Cordialement

Bonsoir Cathodique, bonsoir le forum,

Le problème vient de l'alimentation de la ListBox1 par la méthode RowSource... C'est pour cela que je n'utilise jamais cette méthode. Son seul avantage c'est que la propriété [ColumnHeads] fonctionne. À toi de choisir la propriété [ColumnHeads] ou un code qui ne plante pas...

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub UserForm_Initialize()
Set F = ThisWorkbook.Worksheets("Outils")
Set rng = F.Range("A1").CurrentRegion
With rng
    Set rng = .Offset(1).Resize(.Rows.Count - 1)    ' Redimensionnement de la plage des données pour ne pas prendre en compte la première ligne
End With
 
With Me.ListBox1
    .List = rng.Value
    .ColumnCount = 13   ' Nombre de colonnes à afficher
    .ColumnWidths = "50;60;50;80;80;80;50;50;60;60;80;120;80"    ' Largeur des colonnes à affciher si 0 = invisible
End With
End Sub

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
Private Sub Btn_Modif_Outil_Click()
Dim LI As Integer
 
If Me.TextBox1 = "" Then MsgBox "Aucun Poste sélectionné!": Exit Sub
LI = Me.ListBox1.ListIndex + 2
 
On Error Resume Next
' F.Cells(c.Row, 1) = Me.TextBox1.Value    'No Outil
F.Cells(LI, 2) = Me.TextBox2.Value    ''site
F.Cells(LI, 3) = Me.TextBox3.Value    'p
F.Cells(LI, 4).Value = Me.TextBox4.Value  ' xxxxxx
F.Cells(LI, 5).Value = Me.TextBox5.Value  'marque
F.Cells(LI, 6).Value = Me.TextBox6.Value  'no serie
F.Cells(LI, 7).Value = CInt(Me.TextBox7.Value)  't
F.Cells(LI, 8).Value = CInt(Me.TextBox8)   'i
F.Cells(LI, 9).Value = CInt(Me.TextBox9)   'année de fabrication
F.Cells(LI, 10).Value = CInt(Me.TextBox10)   'année mise en service
F.Cells(LI, 11).Value = Me.TextBox11.Value   'code
F.Cells(LI, 12).Value = Me.TextBox12.Value   'observation
F.Cells(LI, 13).Value = Me.TextBox13.Value   'etat outil
MsgBox "Correction terminée!", vbInformation
Unload Me
UserForm1.Show
End Sub

Bonjour Thautheme

As-tu essayé le truc qui consiste à supprimer le lien Rowsource avant les modifications pour le rétablir après les modifications ?
Ca semble bien fonctionner.
Ceci dit, je ne suis pas un spécialiste de Rowsource car je ne l'ai jamais utilisé jusqu'à maintenant dans mes programmes.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Rowsource = Me.ListBox1.Rowsource
  Me.ListBox1.Rowsource = ""
 
    ' F.Cells(c.Row, 1) = Me.TextBox1.Value    'No Outil
    F.Cells(c.Row, 2) = Me.TextBox2.Value    ''site
     F.Cells(c.Row, 3) = Me.TextBox3.Value    'p
     F.Cells(c.Row, 4).Value = Me.TextBox4.Value  ' xxxxxx
     F.Cells(c.Row, 5).Value = Me.TextBox5.Value  'marque
     F.Cells(c.Row, 6).Value = Me.TextBox6.Value  'no serie
     F.Cells(c.Row, 7).Value = CInt(Me.TextBox7.Value)  't
     F.Cells(c.Row, 8).Value = CInt(Me.TextBox8)   'i
     F.Cells(c.Row, 9).Value = CInt(Me.TextBox9)   'année de fabrication
     F.Cells(c.Row, 10).Value = CInt(Me.TextBox10)   'année mise en service
     F.Cells(c.Row, 11).Value = Me.TextBox11.Value   'code
     F.Cells(c.Row, 12).Value = Me.TextBox12.Value   'observation
     F.Cells(c.Row, 13).Value = Me.TextBox13.Value   'etat outil
 
  Me.ListBox1.Rowsource = Rowsource

12/12/2014, 07h26
Invité

3 pièce(s) jointe(s)

Bonjour, je vous remercie beaucoup. Je teste et vous met au courant.

En fait, mon idée initiale était l'utilisation d'une listview puis je me suis tourné vers une listbox et ce, par rapport à ce que j'ai pu lire sur la listview.

Il parait qu'elle n'est pas fiable pour des raisons de compatibilité entre les différentes versions d'excel et dépend aussi du système d'exploitation.

J'ai pu constaté que les fichiers exemples que j'ai pu trouver sur le forum et ailleurs plantaient. J'ai eu des messages d'erreur et dans l'userform on ne retrouve plus la listview.

Encore merci. Bonne journée!

Re,
@Tauthemene, en effet avec ton code ça fonctionne bien, merci beaucoup.

@Docmarti, Merci mais comment dois-je déclarer RowSource, car j'ai un message:"Erreur de compilation: Variable non définie."

Les 2 solutions m'intéresse pour en apprendre un peu plus. En vous remerciant.

Code:

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
Private Sub Btn_Modif_Outil_Click()
Dim c As Range
If Me.TextBox1 = "" Then MsgBox "Aucun outil sélectionné!": Exit Sub
'
RowSource = Me.ListBox1.RowSource
  Me.ListBox1.RowSource = ""
 
    ' F.Cells(c.Row, 1) = Me.TextBox1.Value    'No Outil
    F.Cells(c.Row, 2) = Me.TextBox2.Value    ''site
     F.Cells(c.Row, 3) = Me.TextBox3.Value    'p
     F.Cells(c.Row, 4).Value = Me.TextBox4.Value  ' xxxxxx
     F.Cells(c.Row, 5).Value = Me.TextBox5.Value  'marque
     F.Cells(c.Row, 6).Value = Me.TextBox6.Value  'no serie
     F.Cells(c.Row, 7).Value = CInt(Me.TextBox7.Value)  't
     F.Cells(c.Row, 8).Value = CInt(Me.TextBox8)   'i
     F.Cells(c.Row, 9).Value = CInt(Me.TextBox9)   'année de fabrication
     F.Cells(c.Row, 10).Value = CInt(Me.TextBox10)   'année mise en service
     F.Cells(c.Row, 11).Value = Me.TextBox11.Value   'code
     F.Cells(c.Row, 12).Value = Me.TextBox12.Value   'observation
     F.Cells(c.Row, 13).Value = Me.TextBox13.Value   'etat outil
 
  Me.ListBox1.RowSource = RowSource
 
MsgBox "Correction terminée!", vbInformation
End Sub

12/12/2014, 07h58
Invité

Re,

Désolé, juste une question qui n'est pas en rapport avec mon sujet.

Comment avez-vous inséré du texte au bas de votre message. je doute bien que ça se trouve dans mon profil mais où exactement?

C'est pour ne pas faire de bêtise, merci.

Bonne journée
12/12/2014, 10h51
Thautheme
Bonjour le fil, bonjour le forum,

Je me permets de répondre à la place de Docmarti. À mon avis c'est le nom de la variable Rowsource qui pose problème. Essaie comme ça :
Code:

1 2 Dim RS As String RS = ListBox1.RowSource
Pour le texte en bas, c'est dans Tableau de Bord / Modifier la Signature...
12/12/2014, 14h29
Docmarti

Citation:

Envoyé par cathodique

Re,

@Docmarti, Merci mais comment dois-je déclarer RowSource, car j'ai un message:"Erreur de compilation: Variable non définie."

C'est parce que tu as mis la commande

Code:

Option Explicit

en tête du code de ce module.
Lorsque Option Explicit apparaît dans un module, on doit déclarer explicitement toutes les variables à l'aide des instructions Dim ou ReDim.

Code:

Dim Rowsource As String

Le but de Option Explicit est de supprimer le risque de mal orthographier le nom des variables.

1 pièce(s) jointe(s)

Bonjour,

Je vous remercie beaucoup pour votre aide. Voilà, j'ai refait un autre fichier que je joins, ça pourrait servir.

J'ai créé une plage dynamique BD_Outil=DECALER(outil!$A$1;1;0;NBVAL(outil!$A:$A)-1;NBVAL(outil!$1:$1)) et j'ai renseigné les propriétés suivantes de la ListBox:

ColumnCount=13
ColumnWidhts=50;60;50;80;80;80;50;50;60;60;80;120;80
RowSource=BD_Outil

On n'a plus besoin d'initialiser l'userform. En suivant vos conseils, je suis parvenu à le faire fonctionner.

Pour le partage,voici le code et le fichier

Code:

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
Option Explicit
Dim F As Worksheet, rng As Range
Private Sub Btn_Modif_Outil_Click()
Dim c As Range, RS As String
Set F = ThisWorkbook.Worksheets("Outil")
 
If Me.TextBox1 = "" Then MsgBox "Aucun Poste sélectionné!": Exit Sub
 
RS = Me.ListBox1.rowsource
  Me.ListBox1.rowsource = ""
 Set c = F.[A:A].Find(Me.TextBox1, LookIn:=xlValues)
 
 If Not c Is Nothing Then
On Error Resume Next
    ' F.Cells(c.Row, 1) = Me.TextBox1.Value    'No Outil
    F.Cells(c.Row, 2) = Me.TextBox2.Value    ''site
     F.Cells(c.Row, 3) = Me.TextBox3.Value    'p
     F.Cells(c.Row, 4).Value = Me.TextBox4.Value  ' xxxxxx
     F.Cells(c.Row, 5).Value = Me.TextBox5.Value  'marque
     F.Cells(c.Row, 6).Value = Me.TextBox6.Value  'no serie
     F.Cells(c.Row, 7).Value = CInt(Me.TextBox7.Value)  't
     F.Cells(c.Row, 8).Value = CInt(Me.TextBox8)   'i
     F.Cells(c.Row, 9).Value = CInt(Me.TextBox9)   'année de fabrication
     F.Cells(c.Row, 10).Value = CInt(Me.TextBox10)   'année mise en service
     F.Cells(c.Row, 11).Value = Me.TextBox11.Value   'code
     F.Cells(c.Row, 12).Value = Me.TextBox12.Value   'observation
     F.Cells(c.Row, 13).Value = Me.TextBox13.Value   'etat outil
 
  Me.ListBox1.rowsource = RS
  End If
 
MsgBox "Correction terminée!", vbInformation
 
End Sub
 
Private Sub Btn_Ajout_Outil_Click()
Dim i As Byte
For i = 1 To 13
Me.Controls("textbox" & i) = ""
Next
End Sub
 
Private Sub Btn_Quitter_Click()
Unload Me
End Sub
'
Private Sub ListBox1_Change()
    Dim n As Integer
    If ListBox1.ListCount <= 1 Or ListBox1.ListIndex < 0 Then
        Exit Sub
    End If
    For n = 0 To 12
        Controls("TextBox" & n + 1) = ListBox1.List(ListBox1.ListIndex, n)
    Next
End Sub

Encore merci à vous deux.

le problème venait de Private Sub ListBox1_Change()

Code:

1
2
3
Option Explicit
Dim F As Worksheet, rng As Range
Dim StopEvent As Boolean

Code:

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
Private Sub Btn_Modif_Outil_Click()
Dim c As Range
If Me.TextBox1 = "" Then MsgBox "Aucun Poste sélectionné!": Exit Sub
Set c = F.[A:A].Find(Me.TextBox1, LookIn:=xlValues)
If Not c Is Nothing Then
    On Error Resume Next
    StopEvent = True
    ' F.Cells(c.Row, 1) = Me.TextBox1.Value    'No Outil
    F.Cells(c.Row, 2) = Me.TextBox2.Value    ''site
    F.Cells(c.Row, 3) = Me.TextBox3.Value    'p
    F.Cells(c.Row, 4).Value = Me.TextBox4.Value  ' xxxxxx
    F.Cells(c.Row, 5).Value = Me.TextBox5.Value  'marque
    F.Cells(c.Row, 6).Value = Me.TextBox6.Value  'no serie
    F.Cells(c.Row, 7).Value = CInt(Me.TextBox7.Value)  't
    F.Cells(c.Row, 8).Value = CInt(Me.TextBox8)   'i
    F.Cells(c.Row, 9).Value = CInt(Me.TextBox9)   'année de fabrication
    F.Cells(c.Row, 10).Value = CInt(Me.TextBox10)   'année mise en service
    F.Cells(c.Row, 11).Value = Me.TextBox11.Value   'code
    F.Cells(c.Row, 12).Value = Me.TextBox12.Value   'observation
    F.Cells(c.Row, 13).Value = Me.TextBox13.Value   'etat outil
    '----------------------------------------
End If
StopEvent = false
MsgBox "Correction terminée!", vbInformation
End Sub

Code:

1
2
Private Sub ListBox1_Change()
If StopEvent = True Then Exit Sub

12/12/2014, 16h03
Invité

Bonjour Rdurupt et un grand bravo, c'est impeccable.

Bonjour rdurupt

EDIT: Il n'y a rien à dire. Ta solution est parfaitement fonctionnelle.

La solution du ListBox1.RowSource = ""
donne le même résultat et présente certains avantages :

- Elle ne déclenche pas l'événement ListBox1_Change
- Elle est 10 fois plus rapide.

Code:

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
Private Sub Btn_Modif_Outil_Click()
Dim c As Range
If Me.TextBox1 = "" Then MsgBox "Aucun Poste sélectionné!": Exit Sub
 
Dim rs As String
rs = ListBox1.RowSource
 
Dim ListBox1_Listindex As Long
ListBox1_Listindex = ListBox1.Listindex
 
Set c = F.[A:A].Find(Me.TextBox1, LookIn:=xlValues)
 
  If Not c Is Nothing Then
On Error Resume Next
 
 
ListBox1.RowSource = ""
 
    ' F.Cells(c.Row, 1) = Me.TextBox1.Value    'No Outil
    F.Cells(c.Row, 2) = Me.TextBox2.Value    ''site
     F.Cells(c.Row, 3) = Me.TextBox3.Value    'p
     F.Cells(c.Row, 4).Value = Me.TextBox4.Value  ' xxxxxx
     F.Cells(c.Row, 5).Value = Me.TextBox5.Value  'marque
     F.Cells(c.Row, 6).Value = Me.TextBox6.Value  'no serie
     F.Cells(c.Row, 7).Value = CInt(Me.TextBox7.Value)  't
     F.Cells(c.Row, 8).Value = CInt(Me.TextBox8)   'i
     F.Cells(c.Row, 9).Value = CInt(Me.TextBox9)   'année de fabrication
     F.Cells(c.Row, 10).Value = CInt(Me.TextBox10)   'année mise en service
     F.Cells(c.Row, 11).Value = Me.TextBox11.Value   'code
     F.Cells(c.Row, 12).Value = Me.TextBox12.Value   'observation
     F.Cells(c.Row, 13).Value = Me.TextBox13.Value   'etat outil
 
    ' ListBox1_Change
 
'----------------------------------------
End If
   ListBox1.RowSource = rs
 
   ListBox1.Listindex = ListBox1_Listindex
 
MsgBox "Correction terminée!", vbInformation
 
End Sub

12/12/2014, 20h57
Invité

Bonsoir Rdurupt, Bonsoir Docmarti, Bonsoir Le Forum,

Milles mercis, tu m'as considérablement améliorer le code de mon petit projet.

ça s'exécute très bien et rapidement, merci beaucoup.

Mais mon petit projet ne s'arrête pas là. Je voudrais mettre une checkbox pour modifier l'état de outils (en service ou hors-service).

Le fait de cliquer sur la checkbox doit se répercuter sur la textbox13 et la mise à jour de la BD.

Pour l'ajout d'un nouvel outil, j'envisage de mettre un bouton pour vider les textboxs (bloquer textbox13(etat) qui ne peut se faire si l'outil est inexistant dans la BD.

Si ça coince, j'ouvrirai un autre fil.

Encore merci et très bonne soirée.