Un erreur de type incompatible

HAMZAJEBENIANI Messages postés 2 Date d'inscription   Statut Membre Dernière intervention   -  
M-12 Messages postés 1332 Date d'inscription   Statut Membre Dernière intervention   -
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)



Configuration: Windows / Chrome 97.0.4692.99
A voir également:

2 réponses

M-12 Messages postés 1332 Date d'inscription   Statut Membre Dernière intervention   285
 
Bonjour,
A quoi correspond --> lp
teste sans mettre les guillemets ------> If i(lp) = 1 Then
1
HAMZAJEBENIANI Messages postés 2 Date d'inscription   Statut Membre Dernière intervention  
 
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)
0
M-12 Messages postés 1332 Date d'inscription   Statut Membre Dernière intervention   285
 
Re,
Remplace plutôt comme ceci
If lp = i Then
0