Erreur 13 workbook
jbla
-
jordane45 Messages postés 40053 Date d'inscription Statut Modérateur Dernière intervention -
jordane45 Messages postés 40053 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.
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:
- Erreur 13 workbook
- Fifa 13 - Télécharger - Jeux vidéo
- Erreur t32 ✓ - Forum Livebox
- Erreur 3000 france tv - Forum Lecteurs et supports vidéo
- Erreur 0x80070643 - Accueil - Windows
- Erreur 0x80070643 Windows 10 : comment résoudre le problème de la mise à jour KB5001716 - Accueil - Windows
https://codes-sources.commentcamarche.net/faq/11288-les-balises-de-code
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 ?
https://forums.commentcamarche.net/forum/affich-37621992-methode-find-dans-vba-recherche-de-donnees-sous-excel