Discussion :

[timtof2011]

bonjour tout le monde...

j'ai une erreur dans une boucle à ce niveau là

Code :

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

.Controls("TextBox" & i + 1) = ListView1.ListItems(ListView1.SelectedItem.Index).ListSubItems(i).Text

voici mon 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
Private Sub Modifier_Click()
Dim Ligne As ListItem
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
MENU_RECH_4.Show
If FlagMdP = True Then
    With MENU_RECH_3_Fac
        .TextBox1 = ListView1.ListItems(ListView1.SelectedItem.Index).Text
            For i = 1 To ListView1.ColumnHeaders.Count - 2
                .Controls("TextBox" & i + 1) = ListView1.ListItems(ListView1.SelectedItem.Index).ListSubItems(i).Text
            Next
        .LblLigne = ListView1.ListItems(ListView1.SelectedItem.Index).ListSubItems(34).Text
        .Show
    End With
End If
 
End Sub

pouvez vous m'aider ?

bon dimanche autrement.
Tim

[BlueMonkey]

Bonjour,

Il s'agit d'une erreur d'exécution.
Pour identifier la cause de l'erreur (probablement un indice hors limite) utilise le debugger,
en suivant les valeurs de :
- MENU_RECH_3_Fac.Controls("TextBox" & i + 1)
- MENU_RECH_3_Fac.ListView1.SelectedItem.Index
- MENU_RECH_3_Fac.ListView1.ListItems(ListView1.SelectedItem.Index)
- MENU_RECH_3_Fac.ListView1.ListItems(ListView1.SelectedItem.Index).ListSubItems(i)

En mettant un point d'arrêt sur la ligne qui plante, tu devrais trouver le problème

[timtof2011]

Merci BlueMonkey,
désolé pour le retard...viens de rentrer de l'hosto...petit soucis de santé.

Ok pour ton infos, effectivement mon problème venait de cette ligne...

Code :

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

.LblLigne = ListView1.ListItems(ListView1.SelectedItem.Index).ListSubItems(34).Text

j'ai vu que mon erreur venait du 34 j'ai compté et j'avais 36 textbox...j'ai remplacé et je n'ai plus erreur.

Encore merci pour ton aide.

Tim

[BlueMonkey]

Bonsoir,

Content que tu ais solutionné ton problème.
Il ne reste plus qu'a noter le sujet résolu.

Bon rétablissement.