Gérer le bouton annuler ImputBox
Fermé
mll-sandiih
Messages postés
9
Date d'inscription
jeudi 28 juillet 2016
Statut
Membre
Dernière intervention
26 août 2018
-
28 juil. 2016 à 17:05
mll-sandiih Messages postés 9 Date d'inscription jeudi 28 juillet 2016 Statut Membre Dernière intervention 26 août 2018 - 4 août 2016 à 14:11
mll-sandiih Messages postés 9 Date d'inscription jeudi 28 juillet 2016 Statut Membre Dernière intervention 26 août 2018 - 4 août 2016 à 14:11
A voir également:
- Gérer le bouton annuler ImputBox
- Gerer les profils netflix - Guide
- Réinitialiser chromecast sans bouton - Guide
- Gerer foyer netflix - Accueil - Guide streaming
- Annuler offre vinted - Guide
- Bouton reinitialisation pc - Guide
2 réponses
ccm81
Messages postés
10903
Date d'inscription
lundi 18 octobre 2010
Statut
Membre
Dernière intervention
19 novembre 2024
2 428
28 juil. 2016 à 18:05
28 juil. 2016 à 18:05
Bonjour
Un exemple
Cdlmnt
Un exemple
Const NbEssaisMax = 3
Public Sub OK()
Dim compteur As Long, adresse As String
adresse = ""
compteur = NbEssaisMax
While adresse = "" And compteur <> 0
adresse = InputBox("Chantier étudié", "Nim et adresse ?")
If adresse = "" Then
compteur = compteur - 1
If compteur <> 0 Then MsgBox "il vous reste " & compteur & " essais"
End If
Wend
If adresse = "" Then
MsgBox "on verra plus tard"
Else
Sheets("Extraction").Cells(1, 2) = adresse
Sheets("Soufflage").Cells(1, 2) = adresse
End If
End Sub
Cdlmnt
ccm81
Messages postés
10903
Date d'inscription
lundi 18 octobre 2010
Statut
Membre
Dernière intervention
19 novembre 2024
2 428
3 août 2016 à 16:28
3 août 2016 à 16:28
1. Public Sub OK()
C'est la déclaration de la procedure OK, je l'ai mise dans un module général (Module 1 par exemple) et déclarée publique pour qu'on puisse y avoir accès de n'importe où.
2. compteur <> 0
Pour compteur différent de 0
Au départ, compteur = nombre d'essais maxi
puis
Tant que adresse est vide et que compteur est différent de 0
on fait un truc
on décrémente compteur (compteur = comteur-1)
Donc la boucle est terminée dès que adresse n'est pas vide ou que compteur est egal à 0
Cdlmnt
C'est la déclaration de la procedure OK, je l'ai mise dans un module général (Module 1 par exemple) et déclarée publique pour qu'on puisse y avoir accès de n'importe où.
2. compteur <> 0
Pour compteur différent de 0
Au départ, compteur = nombre d'essais maxi
puis
Tant que adresse est vide et que compteur est différent de 0
on fait un truc
on décrémente compteur (compteur = comteur-1)
Donc la boucle est terminée dès que adresse n'est pas vide ou que compteur est egal à 0
Cdlmnt
mll-sandiih
Messages postés
9
Date d'inscription
jeudi 28 juillet 2016
Statut
Membre
Dernière intervention
26 août 2018
4 août 2016 à 14:11
4 août 2016 à 14:11
Merci beaucoup !! En revanche le Public Sub me pose pb car j'ai l'impression qu'il fait doublon avec mon Sub Bouton, du coup ça ne fonctionne pas
Voici une partie de mon code du coup
Voici une partie de mon code du coup
Sub Bouton1_Clic()
MsgBox "Bienvenue dans l'outils bilan aéraulique." & Chr(10) & Chr(10) & "Laissez-vous guider par les instructions :)"
'petit message de bienvenue
[Plein d'autres lignes]
Public Sub OK()
Dim adresse As String, compteur As Integer
Const NbEssaisMax = 2 'représente le nbr de fois ou il faut annuler pr quitter
Dim compteur As Long, adresse As String
adresse = ""
compteur = NbEssaisMax
While adresse = "" And compteur <> 0
adresse = InputBox("Chantier étudié", "Nom et adresse ?")
If adresse = "" Then
compteur = compteur - 1
If compteur <> 0 Then MsgBox "il vous reste " & compteur & " essais"
End If
Wend
If adresse = "" Then
MsgBox "Ok, on verra ça plus tard"
Else
Sheets("Extraction").Cells(1, 2) = adresse 'Permet d'entrer le nom et l'adresse du chantier dans la cellule B1
Sheets("Soufflage").Cells(1, 2) = adresse
End If
End Sub
MsgBox "Commençons par regarder le soufflage:"
[Plein d'autres lignes]
3 août 2016 à 15:58
Mais mtn questions pr comprendre ... Que signifie le "Public Sub OK()" et le "<>" dans "compteur <> 0" ?
Je ne veux pas juste copier coller :p
Thanks :)