Un erreur de type incompatible
HAMZAJEBENIANI
Messages postés
3
Statut
Membre
-
M-12 Messages postés 1349 Statut Membre -
M-12 Messages postés 1349 Statut Membre -
Bonjour,
j'ai pas trouver l'erreur (type incompatible dans mon code aidez-moi SVP
looper = 0
Do
i = InputBox("entrez le nombre totale d'heures de fonctionnement")
MsgBox (i)
For lp = 1 To 20
If i(lp) = "1" Then
looper = 1
MsgBox ("la saisie d'un NOMBRE a echoué veuiller verifiez le NOMBRE d'heures à saisir")
End If
Next
Loop Until (looper = 0)
j'ai pas trouver l'erreur (type incompatible dans mon code aidez-moi SVP
looper = 0
Do
i = InputBox("entrez le nombre totale d'heures de fonctionnement")
MsgBox (i)
For lp = 1 To 20
If i(lp) = "1" Then
looper = 1
MsgBox ("la saisie d'un NOMBRE a echoué veuiller verifiez le NOMBRE d'heures à saisir")
End If
Next
Loop Until (looper = 0)
Configuration: Windows / Chrome 97.0.4692.99
2 réponses
-
Bonjour,
A quoi correspond --> lp
teste sans mettre les guillemets ------> If i(lp) = 1 Then-
merci de votre attention mais c'etait pas le cas voici le code
Private Sub OptionButton1_Click()
Dim i, tn, j, k As String
Dim a, b, c, mtbf, mttr, tn1, N, IPR, looper, lp As Long
looper = 0
Do
i = InputBox("entrez le nombre totale d'heures de fonctionnement")
MsgBox (i)
For lp = 1 To 20
If i(lp) = "1" Then
looper = 1
MsgBox ("la saisie d'un NOMBRE a echoué veuiller verifiez le NOMBRE d'heures à saisir")
End If
Next
Loop Until (looper = 0)
-
-
