Saisir des données avec inputbox
Résolu
LeMANIMAK
Messages postés
12
Date d'inscription
Statut
Membre
Dernière intervention
-
LeMANIMAK Messages postés 12 Date d'inscription Statut Membre Dernière intervention -
LeMANIMAK Messages postés 12 Date d'inscription Statut Membre Dernière intervention -
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...
11 réponses
-
yg_be Messages postés 23437 Date d'inscription Statut Contributeur Dernière intervention Ambassadeur 1 588
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 ajouteroption 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? -
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 -
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... !
-
Note1( matière) correspond a la colonne numero 5
note 2(matière) pour la colonne numero 6 -
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question -
Bonsoir,
A bien plaire, essayer cette petite contribution.
Le lien : https://mon-partage.fr/f/BpDtndwj/
-
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... -
-
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... -
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... -
Bonjour,
Eh bien vous devez cliquer sur le nom du Document joint
Et ensuite vous avez en bas à gauche le nom du fichier à ouvrir
-
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...
