Erreur 13 workbook

jbla -  
jordane45 Messages postés 38486 Date d'inscription   Statut Modérateur Dernière intervention   -
Bonjour a tous,

Je tente de régler un problème d'incompatibilité de type sur un programme VBA que je suis en train de faire.
J'ai une erreur 13 sur le code suivant :

Dim wkb As Workbook

Private Sub CommandButton1_Click()

Worksheets("C_JIC").Range("B5000").End(xlUp).Offset(1, 0).Value = TextBox1

Set wkb = Worksheets("C_JIC")

Row = wkb.Cells.Find(TextBox1.Value, wkb.Range("B5000"), , , xlByRows, xlPrevious).Row

wkb.Cells(Row, 3).Value = TextBox2
wkb.Cells(Row, 4).Value = TextBox3
wkb.Cells(Row, 5).Value = TextBox4
wkb.Cells(Row, 6).Value = TextBox5

End Sub

j'ai mis en gras souligné la ligne qui pose probleme. Est ce que vous auriez une idée de ce qui pose probleme ?

Merci beaucoup par avance.
A voir également:

1 réponse

jordane45 Messages postés 38486 Date d'inscription   Statut Modérateur Dernière intervention   4 752
 
Bonjour,

wkb As Workbook



Set wkb = Worksheets("C_JIC")


Ne vois tu pas l'erreur ?
Workbook ==>> Worksheets
0
jordane45 Messages postés 38486 Date d'inscription   Statut Modérateur Dernière intervention   4 752
 
NB: Pour poster ton code sur le forum, merci à l'avenir d'appliquer ceci :
https://codes-sources.commentcamarche.net/faq/11288-les-balises-de-code
0
jbla
 
Merci pour ta réponse, effectivement.
J'ai une erreur 91 (variable non définie) sur la ligne d'en dessous. Je suppose qu'il s'agit de "Row". Comment dois je la définir dans ce cas ?
0
jordane45 Messages postés 38486 Date d'inscription   Statut Modérateur Dernière intervention   4 752
 
0