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
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...
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...
A voir également:
- Saisir des données avec inputbox
- Rech. ou saisir l'url - Guide
- Trier des données excel - Guide
- Excel validation des données liste - Guide
- Supprimer les données de navigation - Guide
- Reinstaller windows sans perte de données - Guide
11 réponses
yg_be
Messages postés
23472
Date d'inscription
lundi 9 juin 2008
Statut
Contributeur
Dernière intervention
18 février 2025
Ambassadeur
1 568
26 avril 2020 à 16:27
26 avril 2020 à 16:27
bonjour, il aurait été plus simple que tu nous partages ton code:
peux-tu ajouter
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?
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 expliciten 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?
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
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
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
Le Pingou
Messages postés
12240
Date d'inscription
mercredi 11 août 2004
Statut
Contributeur
Dernière intervention
11 février 2025
1 458
26 avril 2020 à 17:56
26 avril 2020 à 17:56
Bonjour,
Juste au passage et essayer de comprendre vous avez dans le code :
Ceci correspond à la colonne Note 1 ou Note 2 …. Et par la suite…. !
Merci du détail... !
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... !
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
26 avril 2020 à 20:17
Note1( matière) correspond a la colonne numero 5
note 2(matière) pour la colonne numero 6
note 2(matière) pour la colonne numero 6
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
Le Pingou
Messages postés
12240
Date d'inscription
mercredi 11 août 2004
Statut
Contributeur
Dernière intervention
11 février 2025
1 458
26 avril 2020 à 23:56
26 avril 2020 à 23:56
Bonsoir,
A bien plaire, essayer cette petite contribution.
Le lien : https://mon-partage.fr/f/BpDtndwj/
A bien plaire, essayer cette petite contribution.
Le lien : https://mon-partage.fr/f/BpDtndwj/
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
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...
" 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...
yg_be
Messages postés
23472
Date d'inscription
lundi 9 juin 2008
Statut
Contributeur
Dernière intervention
18 février 2025
1 568
27 avril 2020 à 09:40
27 avril 2020 à 09:40
peut-être le télécharger à nouveau? j'ai pu l'ouvrir sans soucis.
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
23472
Date d'inscription
lundi 9 juin 2008
Statut
Contributeur
Dernière intervention
18 février 2025
27 avril 2020 à 17:56
27 avril 2020 à 17:56
je l'ai fait plusieurs fois mais sans changement
Le Pingou
Messages postés
12240
Date d'inscription
mercredi 11 août 2004
Statut
Contributeur
Dernière intervention
11 février 2025
1 458
27 avril 2020 à 13:41
27 avril 2020 à 13:41
Bonjour,
Merci de me dire si le problème est réglé...!
Salutations.
Le Pingou
Merci de me dire si le problème est réglé...!
Salutations.
Le Pingou
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
12240
Date d'inscription
mercredi 11 août 2004
Statut
Contributeur
Dernière intervention
11 février 2025
27 avril 2020 à 17:56
27 avril 2020 à 17:56
j'ai effectué plusieurs téléchargements mais le résultat est le même...
Le Pingou
Messages postés
12240
Date d'inscription
mercredi 11 août 2004
Statut
Contributeur
Dernière intervention
11 février 2025
1 458
27 avril 2020 à 18:38
27 avril 2020 à 18:38
Bonjour,
Essayez vers se lien : https://www.cjoint.com/c/JDBqLXxjMU1
Essayez vers se lien : https://www.cjoint.com/c/JDBqLXxjMU1
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
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...
Cordialement...
yg_be
Messages postés
23472
Date d'inscription
lundi 9 juin 2008
Statut
Contributeur
Dernière intervention
18 février 2025
1 568
28 avril 2020 à 19:31
28 avril 2020 à 19:31
comment fais-tu précisément pour le télécharger?
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
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...
en suite je suis invité a cliquer sur le "bouton" telechager. le programme de téléchargement de google chrome prends le relai...
Le Pingou
Messages postés
12240
Date d'inscription
mercredi 11 août 2004
Statut
Contributeur
Dernière intervention
11 février 2025
1 458
28 avril 2020 à 21:47
28 avril 2020 à 21:47
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
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...