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

  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  Demande d'aide à la programmation

 



 Mot :   Pseudo :  
 
Bas de page
Auteur Sujet :

Demande d'aide à la programmation

n°1946332
tonio187
Posté le 01-12-2009 à 16:14:05  profilanswer
 

Bonjour à tous.
 
Voilà, je vous explique mon problème :  
 
J'ai une nouvelle question :
 
Private Sub jetdeau_Click()
 
jet = Sheets("devis" ).Range("L9999" ).End(xlUp).Row + 1
Dim test As String
test = ("Jet d'eau" )
Sheets("devis" ).Range("L" & jet).Value = test
 
Usinage.Hide
 
tusinage = InputBox("Indiquez le temps d'usinage" )
jet2 = Sheets("devis" ).Range("M9999" ).End(xlUp).Row + 1
Sheets("devis" ).Range("M" & jet2).Value = tusinage
 
commentaire = InputBox("Avez-vous un commentaire à ajouter sur cette opération ?" )
Comment = Sheets("devis" ).Range("Q9999" ).End(xlUp).Row + 1
Sheets("devis" ).Range("Q" & Comment).Value = commentaire
 
Select Case MsgBox("Mode de découpe ajouté à votre devis, voulez vous en rajouter ?", vbYesNo, "Validation" )
    Case vbNo
    Sheets("Accueil" ).Select
    Case vbYes
    Sheets("Accueil" ).Select
End Select
     
 
End Sub  
 
Voilà ma fonction actuelle.
 
Comment faire pour que, lorsqu'on clique sur oui dans le vbcase de la fin, je revienne au début et que je recommence donc ma procédure ?  
 
Merci d'avance.


Message édité par tonio187 le 01-12-2009 à 21:54:59
mood
Publicité
Posté le 01-12-2009 à 16:14:05  profilanswer
 

n°1946360
olivthill
Posté le 01-12-2009 à 17:09:46  profilanswer
 

Loop While 500 < Largeur < 3000


Cette syntaxe me parait étrange. Peut-être que cela marcherait mieux avec

Loop While (Largeur < 500 or Largeur > 3000)

n°1946367
tonio187
Posté le 01-12-2009 à 17:27:04  profilanswer
 

Do
    Do
Quantite = InputBox("Indiquez finalement la quantité souhaitée de ce type de tole, la valeur doit être au minimum de 1." )
numericcheck = IsNumeric(Quantite)
Loop While numericcheck <> True
    Loop While Quantite < 1
niua4 = Sheets("devis" ).Range("F9999" ).End(xlUp).Row + 1
Sheets("devis" ).Range("F" & niua4).Value = Quantite
 
Voilà ce que je viens d'écrire, et ca marche.

n°1946429
tonio187
Posté le 01-12-2009 à 19:57:03  profilanswer
 

J'ai une nouvelle question :
 
Private Sub jetdeau_Click()
 
jet = Sheets("devis" ).Range("L9999" ).End(xlUp).Row + 1
Dim test As String
test = ("Jet d'eau" )
Sheets("devis" ).Range("L" & jet).Value = test
 
Usinage.Hide
 
tusinage = InputBox("Indiquez le temps d'usinage" )
jet2 = Sheets("devis" ).Range("M9999" ).End(xlUp).Row + 1
Sheets("devis" ).Range("M" & jet2).Value = tusinage
 
commentaire = InputBox("Avez-vous un commentaire à ajouter sur cette opération ?" )
Comment = Sheets("devis" ).Range("Q9999" ).End(xlUp).Row + 1
Sheets("devis" ).Range("Q" & Comment).Value = commentaire
 
Select Case MsgBox("Mode de découpe ajouté à votre devis, voulez vous en rajouter ?", vbYesNo, "Validation" )
    Case vbNo
    Sheets("Accueil" ).Select
    Case vbYes
    Sheets("Accueil" ).Select
End Select
     
 
End Sub
 
 
Voilà ma fonction actuelle.
 
Comment faire pour que, lorsqu'on clique sur oui dans le vbcase de la fin, je revienne au début et que je recommence donc ma procédure ?  
 
Merci d'avance.

n°1947346
tonio187
Posté le 04-12-2009 à 13:49:28  profilanswer
 

Up, help s'il vous plait!

n°1947628
Laoo
Posté le 06-12-2009 à 07:15:08  profilanswer
 


Comment faire pour que, lorsqu'on clique sur oui dans le vbcase de la fin, je revienne au début et que je recommence donc ma procédure ?  

 
Bonjour
 
je te suggère ceci:
 
 
Private Sub jetdeau_Click()
début:
jet = Sheets("devis" ).Range("L9999" ).End(xlUp).Row + 1
 
--------------//----------------
    Case vbYes
    GoTo début
 
End Select    
 
Tu places où tu veux recommencer un mot suivi de 2 points ( : ), puis pour ta réponse Yes,  GoTo suivi de ce mot SANS les 2 pts
 
Est-ce bien ce que tu voulais?
 
Cordialement
A bientôt
 
 


---------------
Olympus OM-D  EM-5 + 14-42
n°1947702
Laoo
Posté le 06-12-2009 à 16:49:21  profilanswer
 

précision:
 
j'ai pris ici le mot "début", tu peux prendre n'importe quoi, ainsi même qu'un nombre (mais alors sans les 2 pts.
 
arrivé au choix Yes, GoTo  envoie la macro au mot choisi, ici en haut, et donc recommence la procédure jusqu'à un autre choix.
 
clair?

n°1947742
seniorpapo​u
Posté le 06-12-2009 à 21:35:38  profilanswer
 

Bonsoir tonio,
tu peux aussi essayer ceci en utilisant le do .....loop while...
 
 
Private Sub jetdeau_Click()  
 DO
jet = Sheets("devis" ).Range("L9999" ).End(xlUp).Row + 1  
.
.
.
 
rep= MsgBox("Mode de découpe ajouté à votre devis, voulez vous en rajouter ?", vbYesNo, "Validation" )  
     
    Sheets("Accueil" ).Select  
     
    loop while rep = vbYes
End Sub  
 
A demain
 


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

  Demande d'aide à la programmation

 

Sujets relatifs
Aide exercice langage algorithmiqueprogrammation avec Chart FX Lite
Algorithme / programmation tournoi poules match défisbesoin d'aide en c++
Programmation Flex getVideoBesoin aide recuperation liens html
a l'aide: creation d'un objet prix et un serveur en JAVA[PERL] aide script pour alimenter SGBD MySQL
Manipulation basique de fichier texte a l'aide de PerlDemande d'aide pour programmation en C
Plus de sujets relatifs à : Demande d'aide à la programmation


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