Sujet Précédent Sujet Suivant

Saisir des données avec inputbox

Résolu/Fermé
LeMANIMAK Messages postés 12 Date d'inscription samedi 22 février 2020 Statut Membre Dernière intervention 5 juillet 2023 - Modifié le 26 avril 2020 à 15:43
LeMANIMAK Messages postés 12 Date d'inscription samedi 22 février 2020 Statut Membre Dernière intervention 5 juillet 2023 - 29 avril 2020 à 17:09
BONJOUR! voila j'ai écrit du code VBA ( je suis débutant) me permettant de faire appel a la boite de dialogue a chaque saisie de données en utilisant la boucle for.
Mon souci est que:
1/ quand j'entre une valeur erronée je n peux plus revenir en arrière...
2/ quand le travail est lancé, il met impossible de l'interrompe ( sortir de la boucle) et de reprendre là ou j me suis arrêté...
je joins à ma requête le début de mon travail...
https://www.cjoint.com/c/JDAnmMvGazn
Merci...

11 réponses

Réponse 1 / 11
yg_be Messages postés 22724 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 25 avril 2024 1 476
26 avril 2020 à 16:27
bonjour, il aurait été plus simple que tu nous partages ton code: 
Sub SaisiRapide()
Dim i As Integer, j As Integer
j = InputBox("Matiere egale Numero de la Colonne", , "")
If j > 4 Then
    For i = 1 To 20
    Cells(i + 1, j) = InputBox(Cells(i + 1, 3), , "")
    Next i
Else
Call MsgBox(" l'entier n'est pas plus grand que 4", , "")
End If
End Sub


peux-tu ajouter 
option explicit
en début de module?
peux-tu aussi corriger l'indentation du code?

qu'appelles-tu une valeur erronée? où la détectes-tu?
comment souhaites-tu pouvoir interrompre la boucle?
0
Réponse 2 / 11
LeMANIMAK Messages postés 12 Date d'inscription samedi 22 février 2020 Statut Membre Dernière intervention 5 juillet 2023
26 avril 2020 à 16:45
pour les deux premières questions la réponse c'est non.
j'entends par valeur erronée toutes données inférieures a 0 et supérieures a 20.
pour l'interruption de la boucle je suis a cours d'idées donc je m'en remet a vous... merci
0
Réponse 3 / 11
Le Pingou Messages postés 12046 Date d'inscription mercredi 11 août 2004 Statut Contributeur Dernière intervention 26 avril 2024 1 427
26 avril 2020 à 17:56
Bonjour,
Juste au passage et essayer de comprendre vous avez dans le code : 
InputBox("Matiere egale Numero de la Colonne", , ""

Ceci correspond à la colonne Note 1 ou Note 2 …. Et par la suite…. !
Merci du détail... !

0
Réponse 4 / 11
LeMANIMAK Messages postés 12 Date d'inscription samedi 22 février 2020 Statut Membre Dernière intervention 5 juillet 2023
26 avril 2020 à 20:17
Note1( matière) correspond a la colonne numero 5
note 2(matière) pour la colonne numero 6
0

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question
Réponse 5 / 11
Le Pingou Messages postés 12046 Date d'inscription mercredi 11 août 2004 Statut Contributeur Dernière intervention 26 avril 2024 1 427
26 avril 2020 à 23:56
Bonsoir,
A bien plaire, essayer cette petite contribution.
Le lien : https://mon-partage.fr/f/BpDtndwj/

0
Réponse 6 / 11
LeMANIMAK Messages postés 12 Date d'inscription samedi 22 février 2020 Statut Membre Dernière intervention 5 juillet 2023
27 avril 2020 à 09:28
Bonjour le Pingou. En téléchargeant le document, excel me fait savoir que le document ne peut être lu:
" Impossible d'ouvrir le fichier XLM réparer le résultat vers ( le nom du document) car il n'existe aucune vue de données XSLT disponible."
que faire?
Merci...
0
yg_be Messages postés 22724 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 25 avril 2024 1 476
27 avril 2020 à 09:40
peut-être le télécharger à nouveau? j'ai pu l'ouvrir sans soucis.
0
LeMANIMAK Messages postés 12 Date d'inscription samedi 22 février 2020 Statut Membre Dernière intervention 5 juillet 2023 > yg_be Messages postés 22724 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 25 avril 2024
27 avril 2020 à 17:56
je l'ai fait plusieurs fois mais sans changement
0
Le Pingou Messages postés 12046 Date d'inscription mercredi 11 août 2004 Statut Contributeur Dernière intervention 26 avril 2024 1 427
27 avril 2020 à 13:41
Bonjour,
Merci de me dire si le problème est réglé...!
Salutations.
Le Pingou
0
LeMANIMAK Messages postés 12 Date d'inscription samedi 22 février 2020 Statut Membre Dernière intervention 5 juillet 2023 > Le Pingou Messages postés 12046 Date d'inscription mercredi 11 août 2004 Statut Contributeur Dernière intervention 26 avril 2024
27 avril 2020 à 17:56
j'ai effectué plusieurs téléchargements mais le résultat est le même...
0
Réponse 7 / 11
Le Pingou Messages postés 12046 Date d'inscription mercredi 11 août 2004 Statut Contributeur Dernière intervention 26 avril 2024 1 427
27 avril 2020 à 18:38
Bonjour,
Essayez vers se lien : https://www.cjoint.com/c/JDBqLXxjMU1
0
Réponse 8 / 11
LeMANIMAK Messages postés 12 Date d'inscription samedi 22 février 2020 Statut Membre Dernière intervention 5 juillet 2023
28 avril 2020 à 19:28
bonsoir. desole pour le retard. j'ai effectue 30 telechargement et meme changeant d'application mais le resultat est le meme: le fichier se retrouve illisible...
Cordialement...
0
yg_be Messages postés 22724 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 25 avril 2024 1 476
28 avril 2020 à 19:31
comment fais-tu précisément pour le télécharger?
0
Réponse 9 / 11
LeMANIMAK Messages postés 12 Date d'inscription samedi 22 février 2020 Statut Membre Dernière intervention 5 juillet 2023
28 avril 2020 à 21:35
je clique sur le lien( le tout dernier) puis je suis redirigé vers une nouvelle page d'adresse: www.cjoint.com
en suite je suis invité a cliquer sur le "bouton" telechager. le programme de téléchargement de google chrome prends le relai...
0
Réponse 10 / 11
Le Pingou Messages postés 12046 Date d'inscription mercredi 11 août 2004 Statut Contributeur Dernière intervention 26 avril 2024 1 427
28 avril 2020 à 21:47
Bonjour,
Eh bien vous devez cliquer sur le nom du Document joint


Et ensuite vous avez en bas à gauche le nom du fichier à ouvrir


0
Réponse 11 / 11
LeMANIMAK Messages postés 12 Date d'inscription samedi 22 février 2020 Statut Membre Dernière intervention 5 juillet 2023
29 avril 2020 à 17:09
Bonsoir! Apres moult réflexion j'ai fini par trouver d'où venait le hic. A premiere vue il s'agit de mon mac . Car allant effectuer le même principe de téléchargement chez un "Windows" je n'ai eu aucun problème à ouvrir le fichier... encore merci pour l'appuie...
0

Discussions similaires

Reporter valeur sur autre feuille avec critere
Otk168 -
via55 -

4 réponses
url page accueil
pix -
Pierrecastor -

6 réponses
comment saisir un code captchat
Messi2012RB -
Utilisateur anonyme -

2 réponses
Germain
germai -
Dexterccm -

1 réponse
Exemple de base de données access
Abdlahsaki -
Fleptche -

9 réponses