JONEY76
XLDnaute Occasionnel
Bonjour,
J'ai un problème de code, c'est surtout que je souhaiterai comprendre
Dans un userform, j'ai une listview de plus de 40 colonnes et quand je clique une ligne, les données apparaissent dans les textbox, jusqu'ici tout fonctionne
Là où ça bloque, c'est quand j'appuie sur le bouton modifier les données, ca beugg, mais je ne comprends pas ...
Fichier non disponible mais reste du code dispo au cas ou
Merci d'avance !!
J'ai un problème de code, c'est surtout que je souhaiterai comprendre
Code:
'#################################################
'MODIFIER LE TABLEAU A PARTIR DES TEXTBOX bouton valider les modifications
'#################################################
'
Private Sub CommandButton2_Click()
'Déclarer les variables
Dim ligne As Long
Dim i As Long
Dim idx As Long
On Error Resume Next
With Sheets("BD1") 'feuille contenant les données
For i = 1 To 44 'besoin d'infos sur le 44, nombre de textbox??
.Cells(ligne, i) = Controls("Textbox" & i + 2) '
Next
End With
With LSVB 'avec la listview
.ListItems.Item(idx) = TB2 'l'index = la valeur dans la textbox TB2
For i = 1 To 41
.ListItems(idx).SubItems(i) = Controls("TextBox" & i + 2)
Next
End With
End Sub
Dans un userform, j'ai une listview de plus de 40 colonnes et quand je clique une ligne, les données apparaissent dans les textbox, jusqu'ici tout fonctionne
Là où ça bloque, c'est quand j'appuie sur le bouton modifier les données, ca beugg, mais je ne comprends pas ...
Fichier non disponible mais reste du code dispo au cas ou
Merci d'avance !!
Pièces jointes
Dernière édition: