Discussion :

[Ismagapi]

Bonjour le Forum,

J'ai un petit problème avec la modification de ma ListBox. Je vous explique ...

J'affiche ma ListBox venant de ma base données avec des combobox pour trier, jusque là tout va bien, cela affiche bien mes données dans les combobox et textbox de mon formulaire.

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
Private Sub UserForm_Initialize()
   Set f = Sheets("BDD 2")
   Set Rng = f.Range("A3:EW" & f.[A65000].End(xlUp).Row)    ' BD à adapter
   NomTableau = "Tableau2"
   ActiveWorkbook.Names.Add Name:=NomTableau, RefersTo:=Rng
   BD = Rng.Value
   ColCombo = Array(56, 77, 79)
   colVisu = Array(1, 56, 3, 5, 75, 76, 77, 79, 80, 93, 78) ' colonnes à visualiser (adapter)
   Ncol = UBound(colVisu) + 1
   Me.ComboBox1 = "*"
   Me.ComboBox2 = "*"
   Me.ComboBox3 = "*"
   TextBox5.List() = Array("Oui", "Non", "xxx")
   TextBox6.List() = Array("Accident de Travail", "Arrêt Maladie", "CMA Non Conformes", "Cumul Emploi Retraite", "Evaluation Licenciement", "Limite Dérog. Ou Agrément atteinte", "ERDAF", "PEC Difficile", "A.F.R", "xxx")
   Affiche
   B_Raz_Click
End Sub

Ensuite je modifie mes textbox et combobox et je tente de renvoyer le tout dans mon tableau en cliquant sur le bouton modifier

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
Private Sub CommandButton1_Click()
  Dim P$, Qln%
    With ListBox1
If .ListIndex = -1 Then Exit Sub
Ln = .List(.ListIndex, 0)
    End With
P5 = TextBox5
[Tableau2].Cells(Ln, 75) = P5
 
P6 = TextBox6
[Tableau2].Cells(Ln, 76) = P6
 
If TextBox7 = "" Then
[Tableau2].Cells(Ln, 77) = TextBox7  'ou = 0 ou ce que tu veux!
ElseIf IsDate(TextBox7) Then
[Tableau2].Cells(Ln, 77) = CDate(TextBox7)
End If
 
If TextBox8 = "" Then
[Tableau2].Cells(Ln, 79) = TextBox8  'ou = 0 ou ce que tu veux!
ElseIf IsDate(TextBox8) Then
[Tableau2].Cells(Ln, 79) = CDate(TextBox8)
End If
 
P9 = TextBox9
[Tableau2].Cells(Ln, 80) = P9
 
P10 = TextBox10
[Tableau2].Cells(Ln, 93) = P10
 
P11 = TextBox11
[Tableau2].Cells(Ln, 78) = P11
 
MsgBox "Modifications Effectuées !"
   Me.ComboBox1 = "*"
   Me.ComboBox2 = "*"
   Me.ComboBox3 = "*"
UserForm_Initialize
End Sub

Le problème intervient ici, les données sont modifiées mais pas sur la bonne ligne dans mon tableau excel cela modifie les données mais sur 4 lignes au dessus. Est ce un problème d'indexage ?

Merci pour votre aide car je m'y perd un peu dans mon code ...

[Thautheme]

Bonjour Ismagapi, bonjour le forum,

Ce n'est pas la politique de ce forum mais sans le fichier qui va bien je suis bien incapable de reproduire ton environnement pour le tester. Toutefois, et je ne sais pas si c'est une bonne méthode, mais voilà comment je procède dans ces cas là :
- je configure le nombre de colonne de ma Listbox selon les besoins plus une.
- je masque la première colonne avec la propriété [ColumnWidths]
- je stocke le numéro de chaque dans la première colonne (masquée) de la ListBox
Par la suite, si j'ai effectué des filtres ou autres, la propriété
[listIndex] de ListBox ne correspond plus à la ligne en question, donc je récupère le numéro de ligne exact d'un élément via ListBox1.Column(0, ListBox1.ListIndex).

Attend quand même le passage d'un balèze de ce forum pour une solution plus adaptée...

[Pierre Fauconnier]

Salut.

J'ai écrit cette contribution qui modélise les interactions entre un userform et un tableau structuré.