Erreur 13 - incompatibilité de type [Résolu]

[timtof2011]

bonjour tout le monde...ça fait bien longtemps...!!! je continu mon application et je rencontre une erreur 13 au moment de valider...

Le débogage me retourne sur la ligne bleu

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Private Sub ValiderModification_Click()
Dim L As Long

With Wbk.Worksheets("BDC")
L = CLng(LblLigne)   
For i = 1 To 30
        .Cells(L, i) = Controls("TextBox" & i)
    Next
End With

With Wbk.Worksheets("Modifications")
    For i = 1 To 30
        .Cells(DL, i + 32) = Controls("TextBox" & i)
    Next
End With
    MENU_RECH_1.IniListview
    Unload Me
    
   
End Sub

merci d'avance pour votre aide...
Tof

[bbil]

bonjour,

et c'est quoi : LblLigne ?

[timtof2011]

bonjour bbil,
je ne sais pas...
cette partie de code j'ai modifié qq petite chose et j'ai ajouté à mon programme.

Petit rappel, j'utilise 2 fichiers le 1er menu.xls (ma programmation), le second BDC.xls (ma base de donnée).

[jfontaine]

Bonjour,

Dans la suite de Bbil, quelle est la valeur de LblLigne ?

[bbil]

et donc essai de comprendre ... que fait cette ligne :

Code :

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

Fichiers joints dans les discussions

-------------------------------------

[timtof2011]

voici ce que j'ai dans mon usf 1 et là

Code :

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
UserForm4.Show
If FlagMdP = True Then
    With UserForm3
        .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(9).Text
        .Show
    End With
End If
 
End Sub

[timtof2011]

je viens de trouver...
l'erreur était sur le nombre ListView.selectedItem.Index sur la ligne suivante...

Code :

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

ma valeur aprés ajout des ListItems est de 31

Code :

.ListItems(.ListItems.Count).ListSubItems.Add , , Cel.Offset(0, 31)

Merci, grace à vos questions pertinantes...j'ai trouvé...vous êtes trop fort...!!!

vous souhaite de très belle fête de fin d'année à tous.

Tof

[bbil]

Envoyé par jfontaine

Bonjour,

Dans la suite de Bbil, quelle est la valeur de LblLigne ?

lors du "debug" utilise le bouton continuer ...passe ton curseur sur la variable et lit la valeur dans l'info-bulle

http://darkvader.developpez.com/tuto...sic-6/#LII-1-5