Problème avec un code en Vba Excel

Bonjour à tous,

Grâce à krovax, j'ai pu disposer de ce code qui permet de faire un calcul à partir d'un chiffre saisi dans une TextBox (T5).
Cependant, je rencontre un problème inattendu. Supposons que je saisisse un chiffre en T5 et que je me sois trompé, j'efface donc le chiffre et là, un message d'erreur
"Type incompatible" sur la ligne en gras ci-dessous
Je ne comprends pas ce qui se passe, pouvez-vous éclairer ma lanterne s'il vous plait ?
Merci par avance

Code:

---

1 2 3 4 5 6 7 8 9

Private Sub Ch1_Click() Dim I As Long I = T5.Value If I Mod 55 <> 0 Then T19.Value=(I \ 55 + 1) Else T19.Value=I / 55 End If

---

rajoute

Code:

---

if I<>"" then

---

juste avant d'executer ton code, pour vérifier que la cellule n'est pas vide (ton I mod 55 fait buger car il tente d'utiliser le modulo 55 sur une valeur null

A mon avis, c'est simplement que vba n'arrive pas à transformer rien en long.

Pour que tout le reste fonctionne, il manque

Code:

---

1 2 3 4

if T5.value="" then msgbox "T5 non rempli" Exit Sub EndIf

---

au début de ta sub

Voilà, j'ai tapé ce code, mais toujours lê même messahe d'erreur lorsque j'efface le chiffre tapé
La ligne en gras est surlignée

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

Dim I As Long I = T5.Value If I Mod 55 <> 0 Then T19.Value = (I \ 55 + 1) Else T19.Value = I / 55 End If If T5.Value = "" Then MsgBox "T5 non rempli" Exit Sub End If

---

Désolé, j'ai trouvé la réponse
J'avais mal positionnée une partie du code, voici comment il doit être :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

Dim I As Long If T5.Value = "" Then MsgBox "T5 non rempli" Exit Sub End If I = T5.Value If I Mod 55 <> 0 Then T19.Value = (I \ 55 + 1) Else T19.Value = I / 55 End If

---

Encore merci pour votre aide