Discussion :

[guillaume74960]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[gnain]

Bonjour,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[guillaume74960]

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

[joe.levrai]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[kiki29]

Salut, même si le contexte est différent, j'irais voir : Obliger une saisie numérique dans une TextBox.

[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 ??