[XL-2010] Test Inputbox

Version imprimable

Bonjour à tous,

J'aurai quelques ptites questions à vous poser ?

Je souhaite au début de ma macro faire saisir un numéro de semaine à l'utilisateur pour créer une nouvelle feuille qui s'appelera comme ca, via l'Inputbox pour cela j'ai le code suivant :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 Do resultat = InputBox("Numéro de la semaine") If IsNumeric(resultat) Then Exit Do MsgBox ("Veuillez saisir le Numéro de Semaine !") Loop 'Création onglet avec le num semaine en nom Set sh = Sheets.Add(After:=Sheets(Sheets.Count)) sh.Name = "Semaine " & resultat dat = sh.Name
Mais, dans l'Inputbox j'aimerai que quand on clique sur le bouton annuler, cela annule la macro, pour l'instant je tourne en boucle que j'appuye ou nous.

De plus j'aimerai que si le résultat saisi par l'utilisateur correspond à un numéro de semaine déjà existant j'ai un message qui dise de retaper autre chose

Bonjour,

Code:

1
2
3
4
5
6
    If Application.InputBox("Numéro de la semaine?", "Input Month", vbOKCancel) = True Then
        MsgBox "OK"
    Else
        MsgBox "Cancel"
        Exit Sub
    End If

08/04/2015, 14h06
guillaume74960

Merci pour la réponse, je dois pas tout comprendre car, j'ai toujours la même réponse avec ce code

Bonjour,

qu'entends-tu par "j'ai toujours la même réponse" ?

voici d'autres pistes, à toi de voir les cas que tu souhaites gérer, je n'ai pas tout mis.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
 
Sub TestSaisieInputBox()
 
    Dim Reponse As String
    Dim ReponseDefaut As String
 
    ReponseDefaut = "Reponse par defaut"
 
    Reponse = InputBox("Un numéro svp?", "Je veux un chiffre", ReponseDefaut)
 
    If Reponse = ReponseDefaut _
    Or Reponse = "" Then
 
        Exit Sub
 
    ElseIf Not IsNumeric(Reponse) Then
 
        ' gestion du cas où c'est pas un chiffre
 
    ElseIf Len(Reponse) <> 2 Then
 
        ' gestion du cas où c'est un nombre qui n'est pas à deux chiffres
 
    ElseIf CInt(Reponse) <> Reponse Then
 
        ' gestion du cas où ce n'est pas un nombre entier
 
    ElseIf CInt(Reponse) > 53 _
    Or CInt(Reponse) < 1 Then
 
        ' gestion du cas où le nombre ne pourra pas être un numéro de semaine
 
    ' etc ....
 
    End If
 
End Sub

09/04/2015, 00h08
kiki29

Salut, même si le contexte est différent, j'irais voir : Obliger une saisie numérique dans une TextBox.
09/04/2015, 08h43
guillaume74960

Bonjour !

Merci pr vous réponses ! Je vais essayer de m'en sortir avec ça !

Et est ce qu'il est possible si l'utilisateur indique le numéro 1 que cela soit transformé en 01 ??

Salut, bref une liste déroulante avec des valeurs allant de 01 à 52/53 ( année bissextile ) serait suffisante.

un bouton sur la feuille pour y affecter

Code:

UserForm1.Show

dans une UserForm

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
Option Explicit
 
Private Function bissextile(madate As Date) As Boolean
    bissextile = Day(DateSerial(Year(madate), 3, 0)) = 29
End Function
 
Private Sub CommandButton_Annuler_Click()
    Unload Me
End Sub
 
Private Sub CommandButton_Ok_Click()
Dim sNum As String
    sNum = Me.ComboBox1.Value
    If Len(sNum) > 0 Then
        MsgBox sNum
    Else
        MsgBox "Bad"
    End If
End Sub
 
Private Sub UserForm_Initialize()
Dim i As Long
Dim NbSem As Long
    If bissextile(Date) Then NbSem = 53 Else NbSem = 52
    ComboBox1.Clear
    For i = 1 To NbSem
        ComboBox1.AddItem Format(i, "00")
    Next i
End Sub