Listview modifiable et enregistrement vers feuille excel

**Geren-Va** · 05/08/2014, 15h56

Bonjour,

Dans mon fichier j'ai une listview qui reprend les lignes et colonnes (28) de ma feuille (Tool_BD). J'ai un CommandButton "modifier" qui me permet de modifier via un autre userform9 les données de la listview (comprend mes 28 textbox).
Normalement les textbox (1 à 28) de mon userform9 devrait indiquer les anciennes valeurs afin de pouvoir les modifier et ensuite modifier ma feuille (Tool_BD) sauf qu'actuellement seules les textbox 1 et 2 renvoie la valeur de la listview.

Quelqu'un pourrait il m'aider merci

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
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
Private Sub Impression_Click()
Me.Hide
Sheets("Tool_BD").PrintOut
Me.Show
 
End Sub
 
Private Sub Previsu_Click()
Me.Hide
Sheets("Tool_BD").PrintPreview
Me.Show
 
End Sub
 
Private Sub UserForm_Initialize()
IniListview
 
End Sub
 
Sub IniListview()
Dim i As Long
Sheets("Tool_BD").AutoFilterMode = False
With ListView1
    .ListItems.Clear
    With .ColumnHeaders
       .Clear
       .Add , , "1", 60
       .Add , , "2", 60
       .Add , , "3", 60
       .Add , , "4", 60
       .Add , , "5", 60
       .Add , , "6", 60
       .Add , , "7", 60
       .Add , , "8", 200
       .Add , , "9", 200
       .Add , , "10", 200
       .Add , , "11", 200
       .Add , , "12", 200
       .Add , , "13", 60
       .Add , , "14", 160
       .Add , , "15", 60
       .Add , , "16", 160
       .Add , , "17", 60
       .Add , , "18", 160
       .Add , , "19", 60
       .Add , , "20", 160
       .Add , , "21", 60
       .Add , , "22", 160
       .Add , , "23", 60
       .Add , , "24", 160
       .Add , , "25", 60
       .Add , , "26", 160
       .Add , , "27", 160
       .Add , , "28", 60
       .Add , , , 0
    End With
 
 .View = lvwReport
 .FullRowSelect = True
 .Gridlines = True
        For i = 2 To Sheets("Tool_BD").Range("A65536").End(xlUp).Row
           .ListItems.Add , , Sheets("Tool_BD").Cells(i, 1)
           .ListItems(.ListItems.Count).ListSubItems.Add , , Sheets("Tool_BD").Cells(i, 2)
           .ListItems(.ListItems.Count).ListSubItems.Add , , Sheets("Tool_BD").Cells(i, 3)
           .ListItems(.ListItems.Count).ListSubItems.Add , , Sheets("Tool_BD").Cells(i, 4)
           .ListItems(.ListItems.Count).ListSubItems.Add , , Sheets("Tool_BD").Cells(i, 5)
           .ListItems(.ListItems.Count).ListSubItems.Add , , Sheets("Tool_BD").Cells(i, 6)
           .ListItems(.ListItems.Count).ListSubItems.Add , , Sheets("Tool_BD").Cells(i, 7)
           .ListItems(.ListItems.Count).ListSubItems.Add , , Sheets("Tool_BD").Cells(i, 8)
           .ListItems(.ListItems.Count).ListSubItems.Add , , Sheets("Tool_BD").Cells(i, 9)
           .ListItems(.ListItems.Count).ListSubItems.Add , , Sheets("Tool_BD").Cells(i, 10)
           .ListItems(.ListItems.Count).ListSubItems.Add , , Sheets("Tool_BD").Cells(i, 11)
           .ListItems(.ListItems.Count).ListSubItems.Add , , Sheets("Tool_BD").Cells(i, 12)
           .ListItems(.ListItems.Count).ListSubItems.Add , , Sheets("Tool_BD").Cells(i, 13)
           .ListItems(.ListItems.Count).ListSubItems.Add , , Sheets("Tool_BD").Cells(i, 14)
           .ListItems(.ListItems.Count).ListSubItems.Add , , Sheets("Tool_BD").Cells(i, 15)
           .ListItems(.ListItems.Count).ListSubItems.Add , , Sheets("Tool_BD").Cells(i, 16)
           .ListItems(.ListItems.Count).ListSubItems.Add , , Sheets("Tool_BD").Cells(i, 17)
           .ListItems(.ListItems.Count).ListSubItems.Add , , Sheets("Tool_BD").Cells(i, 18)
           .ListItems(.ListItems.Count).ListSubItems.Add , , Sheets("Tool_BD").Cells(i, 19)
           .ListItems(.ListItems.Count).ListSubItems.Add , , Sheets("Tool_BD").Cells(i, 20)
           .ListItems(.ListItems.Count).ListSubItems.Add , , Sheets("Tool_BD").Cells(i, 21)
           .ListItems(.ListItems.Count).ListSubItems.Add , , Sheets("Tool_BD").Cells(i, 22)
           .ListItems(.ListItems.Count).ListSubItems.Add , , Sheets("Tool_BD").Cells(i, 23)
           .ListItems(.ListItems.Count).ListSubItems.Add , , Sheets("Tool_BD").Cells(i, 24)
           .ListItems(.ListItems.Count).ListSubItems.Add , , Sheets("Tool_BD").Cells(i, 25)
           .ListItems(.ListItems.Count).ListSubItems.Add , , Sheets("Tool_BD").Cells(i, 26)
           .ListItems(.ListItems.Count).ListSubItems.Add , , Sheets("Tool_BD").Cells(i, 27)
           .ListItems(.ListItems.Count).ListSubItems.Add , , i
        Next
    ListView1.ListItems(1).Selected = False
    Set ListView1.SelectedItem = Nothing
End With
 
End Sub
 
Private Sub ListView1_ColumnClick(ByVal ColumnHeader As MSComctlLib.ColumnHeader)
ListView1.Sorted = False
ListView1.SortKey = ColumnHeader.Index - 1
    If ListView1.SortOrder = lvwAscending Then
        ListView1.SortOrder = lvwDescending
    Else
        ListView1.SortOrder = lvwAscending
    End If
ListView1.Sorted = True
 
End Sub
 
Private Sub QuitterRecherche_Click()
    Unload UserForm6
    UserForm1.Show
'Sheets("Tool_BD").AutoFilterMode = False
Unload Me
 
End Sub
 
Private Sub Selectionner_Click()
Dim Plage As Range
IniListview
Flag = False
UserForm7.Show
If Flag = False Then Exit Sub
ListView1.ListItems.Clear
With Sheets("Tool_BD")
    .AutoFilterMode = False
    .Range("A1").AutoFilter Field:=Col, Criteria1:=Replace(Sel, ",", ".")
        With .AutoFilter.Range
        Set Plage = .Offset(1, 0).Resize(.Rows.Count - 1, 1).SpecialCells(xlCellTypeVisible)
            For Each cel In Plage
                With ListView1
                    .ListItems.Add , , cel
                    .ListItems(.ListItems.Count).ListSubItems.Add , , cel.Offset(0, 1)
                    .ListItems(.ListItems.Count).ListSubItems.Add , , cel.Offset(0, 2)
                    .ListItems(.ListItems.Count).ListSubItems.Add , , cel.Offset(0, 3)
                    .ListItems(.ListItems.Count).ListSubItems.Add , , cel.Offset(0, 4)
                    .ListItems(.ListItems.Count).ListSubItems.Add , , cel.Offset(0, 5)
                    .ListItems(.ListItems.Count).ListSubItems.Add , , cel.Offset(0, 6)
                    .ListItems(.ListItems.Count).ListSubItems.Add , , cel.Offset(0, 7)
                    .ListItems(.ListItems.Count).ListSubItems.Add , , cel.Offset(0, 8)
                    .ListItems(.ListItems.Count).ListSubItems.Add , , cel.Offset(0, 9)
                    .ListItems(.ListItems.Count).ListSubItems.Add , , cel.Offset(0, 10)
                    .ListItems(.ListItems.Count).ListSubItems.Add , , cel.Offset(0, 11)
                    .ListItems(.ListItems.Count).ListSubItems.Add , , cel.Offset(0, 12)
                    .ListItems(.ListItems.Count).ListSubItems.Add , , cel.Offset(0, 13)
                    .ListItems(.ListItems.Count).ListSubItems.Add , , cel.Offset(0, 14)
                    .ListItems(.ListItems.Count).ListSubItems.Add , , cel.Offset(0, 15)
                    .ListItems(.ListItems.Count).ListSubItems.Add , , cel.Offset(0, 16)
                    .ListItems(.ListItems.Count).ListSubItems.Add , , cel.Offset(0, 17)
                    .ListItems(.ListItems.Count).ListSubItems.Add , , cel.Offset(0, 18)
                    .ListItems(.ListItems.Count).ListSubItems.Add , , cel.Offset(0, 19)
                    .ListItems(.ListItems.Count).ListSubItems.Add , , cel.Offset(0, 20)
                    .ListItems(.ListItems.Count).ListSubItems.Add , , cel.Offset(0, 21)
                    .ListItems(.ListItems.Count).ListSubItems.Add , , cel.Offset(0, 22)
                    .ListItems(.ListItems.Count).ListSubItems.Add , , cel.Offset(0, 23)
                    .ListItems(.ListItems.Count).ListSubItems.Add , , cel.Offset(0, 24)
                    .ListItems(.ListItems.Count).ListSubItems.Add , , cel.Offset(0, 25)
                    .ListItems(.ListItems.Count).ListSubItems.Add , , cel.Offset(0, 26)
                    .ListItems(.ListItems.Count).ListSubItems.Add , , cel.Offset(0, 27)
                    .ListItems(.ListItems.Count).ListSubItems.Add , , cel.Row
                End With
            Next
        End With
End With
 
End Sub
 
Private Sub Initialiser_Click()
IniListview
End Sub
 
Private Sub Modifier_Click()
Dim Ligne As ListItem, x As Integer, i As Integer
On Error Resume Next
 
Set Ligne = ListView1.SelectedItem
 
On Error GoTo 0
 
If Ligne Is Nothing Then
    MsgBox "Aucune ligne n'est sélectionnée."
    Exit Sub
End If
 
UserForm8.Show
If FlagMdP = True Then
 
    With UserForm9
        x = ListView1.SelectedItem.Index
        .TextBox1 = ListView1.ListItems(x).Text
        For i = 1 To 27
        .Controls("TextBox" & i + 1) = ListView1.ListItems(x).ListSubItems(i).Text
        .Show
     Next
    End With
 
End If
 
End Sub

Bon j'ai trouvé j'avais oublié les "Next" !! Par contre je n'arrive toujours pas a remplacer dans ma feuille "Tool_BD" les nouvelles info !!

Merci d'avance pour votre aide

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
    With UserForm9
        x = ListView1.SelectedItem.Index
        .TextBox1 = ListView1.ListItems(x).Text
        For i = 1 To 10
        .Controls("TextBox" & i + 1) = ListView1.ListItems(x).ListSubItems(i).Text
        Next
        For i = 11 To 20
        .Controls("TextBox" & i + 1) = ListView1.ListItems(x).ListSubItems(i).Text
        Next
        For i = 21 To 28
        .Controls("TextBox" & i + 1) = ListView1.ListItems(x).ListSubItems(i).Text
        .Show
     Next
    End With

Voici le fichier :
Base de donnée.xls

**GADENSEB** · 14/08/2014, 15h50

Hello

ton fichier est génial
c'est pil poil ce que je cherché à faire de mon côté

J'ai un probléme
dans l'usf quand je sélectionne une ligne et que je fais modifier.
J'ai un message d'erreur qui me dit "Aucune ligne n'est sélectionnée"

As-tu le mm problème ?

bon We!

seb

**piotr76** · 15/08/2014, 18h07

Bonjour

Le fichier joint n'a pas de UserForm9. C'est le bon fichier?

@+

**GADENSEB** · 16/08/2014, 16h06

hello.
Nan il n'y a pas d'userform 9.....
Est ce que tu as une autre version du fichier ?

Bon We

**Geren-Va** · 04/09/2014, 11h11

Bonjour désolé de la réponse tardive retour de vacances!

Il ne s'agit pas du même fichier, je l'ai modifié et réduit pour le forum.
Il s'agit donc d'un problème sur l'userform 6 (du fichier joint) et effectivement j'ai bien le même message d'erreur, quand je veux modifier une textbox j'ai un message d'erreur d’exécution au niveau de ces lignes de code:

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
Private Sub ValiderModification_Click()
Dim L As Long
With Sheets("Tool_BDES")
L = CLng(LblLigne)
    .Cells(L, 1) = TextBox1
    .Cells(L, 2) = TextBox2
    .Cells(L, 3) = TextBox3
    .Cells(L, 4) = TextBox4
    .Cells(L, 5) = TextBox5
    .Cells(L, 6) = TextBox6
    .Cells(L, 7) = TextBox7
    .Cells(L, 8) = TextBox8
    .Cells(L, 9) = TextBox9
    .Cells(L, 10) = TextBox10
    .Cells(L, 11) = TextBox12
    .Cells(L, 12) = TextBox12
    .Cells(L, 13) = TextBox13
    .Cells(L, 14) = TextBox14
    .Cells(L, 15) = TextBox15
    .Cells(L, 16) = TextBox16
    .Cells(L, 17) = TextBox17
    .Cells(L, 18) = TextBox18
    .Cells(L, 19) = TextBox19
    .Cells(L, 20) = TextBox20
    .Cells(L, 21) = TextBox21
    For i = 2 To 21
    .Cells(L, i) = Controls("TextBox" & i)
    Next
End With

et je n'arrive pas à trouver la solution.
Par contre sur mon fichier d'origine (celui avant modification pour le forum) je n'avais pas le problème de ligne non sélectionnée désolé je ne sais pas de quoi cela peut bien venir.

Merci à ceux qui pourront m'aider

Bonne journée

**Marc-L** · 05/09/2014, 11h58

Bonjour,

sans indiquer l'erreur ni la ligne la déclenchant !
Commencer par préciser dans le code la propriété d'un objet …

Tutoriels UserForms et contrôles

**Geren-Va** · 05/09/2014, 16h00

Bonjour,

Comme indiqué ci dessus juste erreur d’exécution '1004' et sur le code ci dessus c'est la ligne 5 qui se met en jaune.

Bonne journée

**SfJ5Rpw8** · 06/09/2014, 08h18

bonjour,

et tu as bien une feuille : "Tool_BDES" dans ton classeur Actif

**Geren-Va** · 08/09/2014, 10h33

Bonjour,

Oui j'ai effectivement un feuille de mon classeur qui se nomme ainsi.

Si vous voulez voir le fichier est disponible dans les messages précédents

Merci de votre aide

Bonne journée

**piotr76** · 12/09/2014, 00h55

Bonjour

J'ai vu deux choses dans la Sub ValiderModification_Click

'C'est quoi LbLigne, je n'ai pas trouvé d'autres occurrences dans le projet VBA

Code :

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

1
2
3
4
Private Sub ValiderModification_Click()
Dim L As Long
With Sheets("Tool_BDES")
L = CLng(LblLigne)

'Un objet Range = objet Control,

Code :

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

.Cells(L, i) = Controls("TextBox" & i)

c'est plutôt

Code :

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

OLEObjects("TextBox" & cstr(i)).Object.Value

Mais dur de trouver l'erreur sans pouvoir faire tourner le code

Cordialement

**Geren-Va** · 12/09/2014, 09h52

Salut,

Merci de ta réponse je t'avoue que je me suis mis a VB il y a maintenant 4 mois !!
Et j'ai fais ce programme avec l'aide de plusieurs morceaux de cours pioché ça et là et l'aide des membre du forum il se peut que j'ai écrit des ligne qui ne serve à rien !!
Par contre le fichier est disponible plus haut je le remets car tu n'est pas le premier à ne pas l'avoir vu.

Merci de ton aide bonne journée

Base de donnée.xls

**piotr76** · 26/10/2014, 08h56

Bonjour

J'étais sûr d'avoir déjà répondu, mais, visiblement, ça n'a pas bien fonctionné (ce n'est hélas pas la première fois

)

Le fichier ne tourne toujours pas, il ya un

Code :

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

 .View = lvwReport

inconnu dans la Sub "IniListview()" peut-être la version d'Excel?

As-tu testé ".Cells(L, i) = Controls("TextBox" & i).Text" dans la Sub "ValiderModification_Click()"
Et vérifié que la feuille de destination est la bonne. Personnellement, je rajoute Thisworkbook avant la feuille. C'est plus précis.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Dim L As Long
 
    L = CLng(LblLigne) '----------------------> Ou est défini LblLigne??????
    With Sheets("Tool_BDES")
        For i = 2 To 21
        .Cells(L, i) = Controls("TextBox" & i)
        Next
    End With
UserForm6.IniListview
Unload Me
 
End

Cordialement

Listview modifiable et enregistrement vers feuille excel

Macros et VBA Excel

Discussions similaires

Partager

Partager