Saisir des données avec inputbox Résolu/Fermé

Question

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...

yg_be · Answer

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?

LeMANIMAK · Answer

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

Le Pingou · Answer

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... !

LeMANIMAK · Answer

Note1( matière) correspond a la colonne numero 5
note 2(matière) pour la colonne numero 6

Le Pingou · Answer

Bonsoir,
A bien plaire, essayer cette petite contribution.
Le lien : https://mon-partage.fr/f/BpDtndwj/

LeMANIMAK · Answer

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...

Le Pingou · Answer

Bonjour,
Essayez vers se lien : https://www.cjoint.com/c/JDBqLXxjMU1

LeMANIMAK · Answer

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...

LeMANIMAK · Answer

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...

Le Pingou · Answer

Bonjour,
Eh bien vous devez cliquer sur le nom du Document joint


Et ensuite vous avez en bas à gauche le nom du fichier à ouvrir

LeMANIMAK · Answer

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...

Saisir des données avec inputbox

11 réponses

Discussions similaires