VBA : Select case et inputbox gestion des erreurs

Version imprimable

Bonjour à tous !!

J'ai un soucis sur ma macro, si vous pouvez m'aider cela me rendrait un grand service !

ma macro demande à l'utilisateur d'entrer un nom de groupe, cepedant avec le select case je ne sais pas traduire quand il rentre par exemple une lettre au lieu d'un chiffre de 1 à 9 ou une donnée qu'il ne doit pas rentrer . Quelqu'un saurait ?

Merci !!

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
38
39
40
41
42
43
44
45
Sub Groupe()
 
x = InputBox(" Tapez le numero de groupe(1 à 9) dont vous desirez avoir les statistiques " & Chr(13) + "(1) l'Ile de France" + Chr(13) + "(2) le Nord Pas de Calais" + Chr(13) + "(3) la Picardie" + Chr(13) + "(4)les Pays de la Loire" + Chr(13) + "(5) la Bourgogne" + Chr(13) + "(6) l'Aquitaine" + Chr(13) + "(7) la Champagne Ardenne" + Chr(13) + "(8) Le Midi Pyrénées" + Chr(13) + "(9) L'alsace" + Chr(13))
 
x = CInt(x)
Select Case x
Case 1: Call perso(1)
Case 2: Call perso(2)
Case 3: Call perso(3)
Case 4: Call perso(4)
Case 5: Call perso(5)
Case 6: Call perso(6)
Case 7: Call perso(7)
Case 8: Call perso(8)
Case 9: Call perso(9)
End Select
End Sub
 
Sub perso(j)
Sheets("feuil1").Activate
Set p1 = Sheets("feuil2")
p1.Cells(15, 1) = "Statistiques en fonction du Groupe"
f = 0
For i = 12 To 150
If Cells(i, 5) = "" Then Exit For
Call sommeligneperso(j, i, g)
f = g + f
Next
p1.Cells(17, 1) = "nombre de personnes dans le panel"
p1.Cells(17, 2) = f
p1.Cells(16, 1) = " VOICI VOS VALEURS POUR LE GROUPE "
p1.Cells(16, 2) = j
f = CStr(f)
MsgBox ("le nombre total de personnes que ce groupe a interrogé est :" + f)
For t = 5 To 14
Call sommecoloperso(j, t, x)
x = 100 * (x / f)
p1.Cells(t + 13, 2) = x
p1.Cells(t + 13, 1) = Cells(10, t)
p1.Cells(t + 13, 3) = "%"
Next
Sheets("feuil2").Activate
Range("A15:B15").Select
Selection.Font.Bold = True
End Sub

Salut,

Tout d'abord je te conseille d'ajouter les balises de code ce serait plus lisible.
Ensuite, pour vérifier que la saisie correspond à un chiffre entre 1 et 9

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
 
Sub Groupe()
 
x = InputBox(" Tapez le numero de groupe(1 à 9) dont vous desirez avoir les statistiques " & Chr(13) + "(1) l'Ile de France" + Chr(13) + "(2) le Nord Pas de Calais" + Chr(13) + "(3) la Picardie" + Chr(13) + "(4)les Pays de la Loire" + Chr(13) + "(5) la Bourgogne" + Chr(13) + "(6) l'Aquitaine" + Chr(13) + "(7) la Champagne Ardenne" + Chr(13) + "(8) Le Midi Pyrénées" + Chr(13) + "(9) L'alsace" + Chr(13))
 
If not IsNumeric(x) then
   Exit sub
end if
 
x = CInt(x)
Select Case x
Case 1: Call perso(1)
Case 2: Call perso(2)
Case 3: Call perso(3)
Case 4: Call perso(4)
Case 5: Call perso(5)
Case 6: Call perso(6)
Case 7: Call perso(7)
Case 8: Call perso(8)
Case 9: Call perso(9)
Case else msgbox "Hors limites"
End Select
End Sub

Tu n'as pas besoin du Select case dans ce cas

Code:

1
2
3
4
5
6
7
8
Sub Groupe()
Dim x As Variant
Dim y As Byte
 
x = InputBox(" Tapez le numero de groupe(1 à 9) dont vous desirez avoir les statistiques " & Chr(13) + "(1) l'Ile de France" + Chr(13) + "(2) le Nord Pas de Calais" + Chr(13) + "(3) la Picardie" + Chr(13) + "(4)les Pays de la Loire" + Chr(13) + "(5) la Bourgogne" + Chr(13) + "(6) l'Aquitaine" + Chr(13) + "(7) la Champagne Ardenne" + Chr(13) + "(8) Le Midi Pyrénées" + Chr(13) + "(9) L'alsace" + Chr(13))
y = CByte(Val(x))
If y > 0 And y < 10 Then Call perso(y)
End Sub

16/05/2011, 11h37
1ma91nat10n

Merci à vous deux, j'aime beaucoup la deuxième réponse me permet d'aller bien plus vite, je vais aussi me servir de la message box du premier.. !

Merci pour votre réactivité !!

Bonjour

Il peut être intéressant de contrôler la saisie et de boucler sur l'InputBox tant que l'opérateur n'a pas saisi un chiffre de 1 à 9, ni cliqué [Annuler].

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Sub machin()
 
Dim sRep As String
 
sRep = "X"
While (sRep <> vbNullString) And Not (sRep Like "[1-9]")
sRep = InputBox(" Tapez le numero de groupe(1 à 9) dont vous desirez avoir les statistiques " & Chr(13) + _
        "(1) l'Ile de France" + Chr(13) + "(2) le Nord Pas de Calais" + Chr(13) + "(3) la Picardie" + Chr(13) + _
        "(4)les Pays de la Loire" + Chr(13) + "(5) la Bourgogne" + Chr(13) + "(6) l'Aquitaine" + Chr(13) + _
        "(7) la Champagne Ardenne" + Chr(13) + "(8) Le Midi Pyrénées" + Chr(13) + "(9) L'alsace" + Chr(13))
Wend
 
If sRep <> "" Then Call perso(CInt(sRep))
 
End Sub

J'ai considéré que la fonction perso attendanit un argument de type Integer, mais si c'est autre chose, à adapter.

Cordialement,

PGZ