Discussion :

[NEC14]

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 :

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

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

[garion28]

rajoute

Code :

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

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

[zandru]

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

Pour que tout le reste fonctionne, il manque

Code :

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

1
2
3
4
if T5.value="" then 
    msgbox "T5 non rempli"
    Exit Sub
EndIf

au début de ta sub

[NEC14]

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 :

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

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

[NEC14]

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

Code :

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

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