Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Probléme commande inputbox !!

  • Initiateur de la discussion Initiateur de la discussion neoboy
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

N

neoboy

Guest
Hello ,


J'ai un petit souci avec la commande inputbox !

1 / Je veux connaitre la différence entre application.inputbox et inputbox seule !

2 / J'ai une qui permet de réccuperer des données via un inputbox ,mais le problème qui se pose c'est quan j'appuie sur annuler il sort pas !!


Code:
 For i = 1 To n
   
        j = Application.InputBox("Entrer la durée opératoire de la pièce" & "  " & i, "Durée opératoire pièce")
        
        If Not IsNumeric(j) Or j < 0 Then
            
            MsgBox "La durée opératoire doit être une valeur numérique positive", vbCritical, "Erreur saisie"
            i = i - 1
            
        ElseIf j - Int(j) <> 0 Then
        
            MsgBox "La durée opératoire doit un entier", vbCritical, "Erreur saisie"
            i = i - 1
            
        Else
        
        p(i) = j
        
        End If
                     
    Next i


merci d'avance de votre aide !!
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

Réponses
15
Affichages
784
Réponses
8
Affichages
390
Réponses
5
Affichages
910
Réponses
4
Affichages
732
Réponses
5
Affichages
573
Réponses
10
Affichages
661
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…