Forum |  HardWare.fr | News | Articles | PC | S'identifier | S'inscrire | Shop Recherche
1881 connectés 

  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  Conserver une valeur

 


 Mot :   Pseudo :  
 
Bas de page
Auteur Sujet :

Conserver une valeur

n°1028843
Benpap
Posté le 29-03-2005 à 18:18:44  profilanswer
 

Bonjour,
 
Je suis un debutant dans vb excel.  
J,aimerais savoir comment faire pour garder en mémoire mon entrée dans mon inputbox(temps_cuisson), pour que la prochaine fois, elle apparaisse automatiquement.  
 
temps_recette1 = (Application.InputBox("Entrer le temps de la recette, si vous ne le connaissez pas et voulez seulement le graphique cliquez sur cancel ", "Temps de recette", temps_cuisson)) / 10
temps_recette = Round(temps_recette1, 0)
[/#0000ff]
 
Merci d'avance
 :D

mood
Publicité
Posté le 29-03-2005 à 18:18:44  profilanswer
 

n°1028867
TotalRecal​l
Posté le 29-03-2005 à 18:45:44  profilanswer
 
n°1028878
Benpap
Posté le 29-03-2005 à 18:57:22  profilanswer
 

Comme je suis un debutant, je ne sais pas comment ecrire le code. J'ai essayer debut un bon bout pis j'ai toujours plein d'erreur.  
 
Pouvez vous m'aider svp.

n°1029309
AlainTech
Pas trouvé? Cherche encore!
Posté le 30-03-2005 à 01:55:07  profilanswer
 

On peut t'aider si tu n'EXIGES pas.
 
Donne-nous le code que tu as écrit et les erreurs qu'il donne (en mentionnant la ligne qui est pointée par l'erreur.


---------------
Si on vous donne une info qui marche, DITES-LE!!!! ------ Si vous trouvez seul, AUSSI, votre solution peut servir à d'autres! ------ Je dois la majorité de mes connaissances à mes erreurs!
n°1029328
Benpap
Posté le 30-03-2005 à 05:40:59  profilanswer
 

Merci
L'erreur apparait à la premiere ligne du code.
 
Open "C:\Stagiaire\Macro_Excel_moulage\Fichier_temps_cuisson" For Input As #1
Input #1, temps_cuisson
Close #1
 
Control = 0
 
temps_recette1 = (Application.InputBox("Entrer le temps de la recette, si vous ne le connaissez pas et voulez seulement le graphique cliquez sur cancel ", "Temps de recette", temps_cuisson)) / 10
temps_recette = Round(temps_recette1, 0)
 
Open "C:\Stagiaire\Macro_Excel_moulage\Fichier_temps_cuisson" For Output As #1
Print #1, temps_cuisson
Close #1
 
If temps_recette = False Then GoTo Line2 Else GoTo Line1

n°1029329
AlainTech
Pas trouvé? Cherche encore!
Posté le 30-03-2005 à 06:55:17  profilanswer
 

Et l'erreur est????


---------------
Si on vous donne une info qui marche, DITES-LE!!!! ------ Si vous trouvez seul, AUSSI, votre solution peut servir à d'autres! ------ Je dois la majorité de mes connaissances à mes erreurs!
n°1029479
AlainTech
Pas trouvé? Cherche encore!
Posté le 30-03-2005 à 10:44:17  profilanswer
 

Comme tu as fait l'effort de chercher, je te propose ceci:
 

Sub Start()
 
  Dim sRet As String
  Dim iTempsRecette As Integer
  Dim iTempsCuisson As Integer
   
   
  If Dir("C:\Stagiaire\Macro_Excel_moulage\Fich_tps_cuisson" ) = "" Then
    iTempsCuisson = 0
  Else
    Open "C:\Stagiaire\Macro_Excel_moulage\Fich_tps_cuisson" For Input As #1
    Input #1, iTempsCuisson
    Close #1
     
  End If
   
  sRet = InputBox("Entrer le temps de la recette" & vbCrLf & _
            "Si vous ne le connaissez pas et voulez seulement " & _
            "le graphique cliquez sur cancel ", _
            "Temps de recette", iTempsCuisson)
  If Not sRet = "" Then
    iTempsRecette = CInt(sRet / 10)
    Open "C:\Stagiaire\Macro_Excel_moulage\Fich_tps_cuisson" For Output As #1
    Print #1, sRet
    Close #1
  End If
End Sub


Message édité par AlainTech le 30-03-2005 à 10:46:34
n°1029986
Benpap
Posté le 30-03-2005 à 16:50:18  profilanswer
 

Merci ca marche à merveille, je pense qu'initialement mon probleme était que je n'avait pas de donnée sauvgardée. J'ai une petite question pour savoir si c'est possible. Est-il possible, que ma macro demarre automatiquement (sans shortcut key) pour seulement un dossier précisément contenant mes fichiers à étudier.
 
Merci encore

n°1030026
AlainTech
Pas trouvé? Cherche encore!
Posté le 30-03-2005 à 17:01:51  profilanswer
 

Dans ton projet, tu vas dans ThisWorkbook et dans le code, tu ouvres Workbook et Open.
Tu y mets le contenu de la sub ci-dessus.

n°1030103
Benpap
Posté le 30-03-2005 à 17:45:46  profilanswer
 

Je suis desole je ne comprend pas ce que tu veux que je fasse  (tu ouvres Workbook et Open.)  
Moi j'utilise un autre programme qui simule une production à l'intérieur duquel je collecte mes données et les enregistres dans un fichier excel dans un dossier. A la fin du programme (du cycle de production) j'ouvre automatiquement le fichier excel. J'aimerais que ma macro demarre automatiquement des l'ouverture du fichier.  
 
Merci encore pour ton aide tres précieuse
 

mood
Publicité
Posté le 30-03-2005 à 17:45:46  profilanswer
 

n°1030308
Benpap
Posté le 30-03-2005 à 20:14:07  profilanswer
 

up

n°1030395
AlainTech
Pas trouvé? Cherche encore!
Posté le 30-03-2005 à 21:35:55  profilanswer
 

Réponse demain, je vais me coucher. Je me lève à 5h!

n°1030654
AlainTech
Pas trouvé? Cherche encore!
Posté le 31-03-2005 à 07:50:04  profilanswer
 

Le code ci-dessus, il est bien dans un classeur Excel???
Où l'as-tu mis? Dans un module ou dans un bouton?
Où que ce soit, VBA s'est bien ouvert pour que tu puisses le taper (ou coller).
Quand tu es dans VBA, à gauche, tu vois ton projet et là, sous le nom de ton classeur, il y a ThisWorkbook.
 
Si tu veux que je comprenne mieux ce que tu fais, envoie-moi un MP et je te donnerai mon adresse mail pour m'envoyer tes fichiers.
 
Edit -> Faute d'ortografe  :ange:


Message édité par AlainTech le 31-03-2005 à 07:51:06

---------------
Si on vous donne une info qui marche, DITES-LE!!!! ------ Si vous trouvez seul, AUSSI, votre solution peut servir à d'autres! ------ Je dois la majorité de mes connaissances à mes erreurs!

Aller à :
Ajouter une réponse
  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  Conserver une valeur

 

Sujets relatifs
valeur de <input text> en fonction d'un <select>Mettre valeur ds IWGrid1
Changer la valeur height d'une <Div>[JAVA][débutant] Valeur aléatoire et poids
Retourne une mauvaise valeur[Excel] Retourner la valeur d'une cellule
Comparer et trier pixel selon la valeur RGB[VB] Test sur valeur saisie dans une textbox
récupérer une valeurRecuperer la décimale d'une valeur ?
Plus de sujets relatifs à : Conserver une valeur


Copyright © 1997-2022 Hardware.fr SARL (Signaler un contenu illicite / Données personnelles) / Groupe LDLC / Shop HFR