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

  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  remplacer exitsub pour continuer la sub

 


 Mot :   Pseudo :  
 
Bas de page
Auteur Sujet :

remplacer exitsub pour continuer la sub

n°1323382
tibo44
Posté le 11-03-2006 à 17:23:34  profilanswer
 

bonjour,
j'ai créé une petite fonction pour écrire ce qu'il y a d'écrit dans la textbox2 et la coller dans une cellule. Et cette fonction me permet aussi de faire apparaitre un msgbox quand la personne ne rentre pas un integer. voila le programme:  
 
On Error GoTo MsgErreurs
If TextBox2.Value = "" Then Sheets("Feuil1" ).Cells(7, 2 * k + 8) = "": Exit Sub
Sheets("Feuil1" ).Cells(7, 2 * k + 8) = Int(UserForm3.TextBox2)
 Exit Sub  
MsgErreurs:
    MsgBox "Vous devez entrer un nombre entier", vbExclamation, "Erreur de frappe ?"
    Resume Next
 
le problème que j'ai c'est que je voudrais réaliser d'autres opérations dans ma Sub et le exit Sub du programme me bloque. Par quoi pourrai-je le remplacer? Merci

mood
Publicité
Posté le 11-03-2006 à 17:23:34  profilanswer
 

n°1323387
juju2k
Posté le 11-03-2006 à 17:50:30  profilanswer
 

Dans ta condition If, si tu ne mets pas de End If, seule la première ligne après Then sera exécutée.
 
Comme un ":" équivaut à un retour à la ligne, ton Exit Sub sort de la condition If...Then.
 
Donc quoi qu'il arrive, à l'exécution, tu sors de la Sub après If TextBox2.Value = "" Then Sheets("Feuil1" ).Cells(7, 2 * k + 8) = "".
 
edit : j'ai raconté nawak. Voir plus bas... :sweat:


Message édité par juju2k le 11-03-2006 à 23:03:38
n°1323389
tibo44
Posté le 11-03-2006 à 18:05:17  profilanswer
 

merci mais ça ne m'aide pas trops. Moi ce que je voudrais c'est pouvoir exécuter une autre action après le programme

n°1323397
tibo44
Posté le 11-03-2006 à 18:36:51  profilanswer
 

c'est bon j'ai réussi en fintant. merci

n°1323512
juju2k
Posté le 11-03-2006 à 23:02:55  profilanswer
 

Bon, méaculpa, j'ai dis une bêtise (j'avais pas vérifié et ça me semblait logique, mais j'ai raconté n'importe quoi) :
Lorsqu'on utilise If... Then sur une seule ligne, si des instructions appaissent après Then et après des ":", celles-ci sont comprises dans le Then.
 
Je veux dire que

If 1 = 1 Then a = 7: MsgBox "toto"


équivaut à :

If 1 = 1 Then
    a = 7
    MsgBox "toto"
End If


 
Pour continuer dans le détail,

If 2 = 1 Then a = 1
MsgBox "toto"


équivaut à :

If 2 = 1 Then
    a = 1
End If
MsgBox "toto"


 
Voilà, pour ceux que ça intéresse...  :sleep:

n°1323786
PGreg
Posté le 12-03-2006 à 19:17:21  profilanswer
 

Bonjour,  
 
Je me suis intéressé au sujet, et j' aimerai savoir se que tu as trouvé,  tibo.
 
Merci

n°1324515
tibo44
Posté le 13-03-2006 à 20:11:30  profilanswer
 

ce que j'ai fait c'est que j'ai collé mon programme dans la sub textbox2, donc le programme ce fait et test si c'est un integer, et le exit sub marche mais ça ne me pose pas de problème. Et dans mon progrmme principal, je mets Sheets("Feuil1" ).Cells(7, 2 * k + 8) = UserForm3.TextBox2 , donc sans le integer puisque le test aura déja été fait. Voila

n°1326976
PGreg
Posté le 16-03-2006 à 20:56:24  profilanswer
 

Salut,  
 
Et merci, tibo.
 


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

  remplacer exitsub pour continuer la sub

 

Sujets relatifs
Google Search : remplacer le bouton par un lien[MySQL 4.1] remplacer en masse une valeur
comment remplacer \ dans une chaine ?Modifier une ligne d'un fichier et la remplacer
[actionscript]remplacer un clip par un autreFaire une recherche/remplacer dans plusieurs fichiers
Un wiki égoïste pour remplacer "Mes Documents" : quel wiki ?[RESOLU] Rechercer & remplacer dans un fichier
Remplacer <Command1.propriété=…> par <Command (variable ?)…>[C] remplacer par des étoiles ou par rien...
Plus de sujets relatifs à : remplacer exitsub pour continuer la sub


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