Un erreur de type incompatible
Fermé
HAMZAJEBENIANI
Messages postés
2
Date d'inscription
samedi 5 février 2022
Statut
Membre
Dernière intervention
5 février 2022
-
5 févr. 2022 à 10:49
M-12 Messages postés 1332 Date d'inscription lundi 22 septembre 2008 Statut Membre Dernière intervention 18 février 2025 - 5 févr. 2022 à 11:23
M-12 Messages postés 1332 Date d'inscription lundi 22 septembre 2008 Statut Membre Dernière intervention 18 février 2025 - 5 févr. 2022 à 11:23
A voir également:
- Un erreur de type incompatible
- Erreur 0x80070643 - Accueil - Windows
- Erreur 0x80070643 Windows 10 : comment résoudre le problème de la mise à jour KB5001716 - Accueil - Windows
- Erreur 1001 outlook - Accueil - Bureautique
- Instagram une erreur s'est produite ✓ - Forum Instagram
- Changer le type de fichier - Guide
2 réponses
M-12
Messages postés
1332
Date d'inscription
lundi 22 septembre 2008
Statut
Membre
Dernière intervention
18 février 2025
285
5 févr. 2022 à 11:01
5 févr. 2022 à 11:01
Bonjour,
A quoi correspond --> lp
teste sans mettre les guillemets ------> If i(lp) = 1 Then
A quoi correspond --> lp
teste sans mettre les guillemets ------> If i(lp) = 1 Then
M-12
Messages postés
1332
Date d'inscription
lundi 22 septembre 2008
Statut
Membre
Dernière intervention
18 février 2025
285
5 févr. 2022 à 11:23
5 févr. 2022 à 11:23
Re,
Remplace plutôt comme ceci
Remplace plutôt comme ceci
If lp = i Then
Modifié le 5 févr. 2022 à 11:16
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)