Contrôle d'erreur lors de la saisie d'une variable de type Byte

Bonjour,

Version Excel 2010.

Ma question concerne la cohérence de la procédure choixMois(), code ci-dessous,
au niveau du contrôle d'erreur,lors de la saisie par l'utilisateur, de la valeur de la variable mois.

Cette variable est de type byte déclarée au niveau du module principal.

De la procédure principale, j'appelle la procédure choix().
La procédure fonctionne, mais le contrôle d'erreur est-il cohérent ?
peut-il générer d'autres problèmes ?

Vous remerciant par avance du temps pris pour votre réponse
Cordialement,

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

Sub choixMois() 'Procédure qui affecte aux variables mois, col,NomFeuille les valeurs en fonction du mois saisi   On Error GoTo MauvaisType 'En cas d'erreur, on va à l'étiquette MauvaisType   While mois < 1 Or mois > 12 mois = Application.InputBox("Entrer le mois à Traiter entre 1 et 12 ", Type:=1) Wend   Select Case mois Case 1 col = 8 'colonne janvier dans feuille CCM NomFeuille = "Janv17" ....   Case 12 col = 16 'colonne Dec dans feuille CCM NomFeuille = "Dec17" End Select   Exit Sub   MauvaisType: 'etiquette MsgBox "Vous n'avez pas saisi un nombre entier", vbCritical choixMois ' on rappelle la procédure choix pour resaisie du mois End Sub

---

Bonjour,

tu as une balise code (icone #) pour rendre plus agréable la lecture.
Non, il est incomplet. Normalement on doit rétablir le gestionnaire d'erreur juste après la ligne supervisée avec On Error Goto 0

Mais pourquoi en faire un ?
Travaille avec l'entier récolté et basta. Si l'utilisateur est assez bête pour saisir 5.3 pour mai, il devrait se lasser avant la machine normalement...
eric

Bonjour
Pourquoi une gestion d'erreur ? Il suffit de forcer --->>
Je commencerais par ne pas utiliser Application.InputBox (qui prend trop la main) au profit d'une simple inputbox, ainsi

Code:

---

1 2 3 4 5

Dim bon As Boolean, mois As Byte, saisie As String While Not bon saisie = InputBox("Entrer le mois à Traiter entre 1 et 12 ") If IsDate("29/" & saisie & "/2000") Then bon = True: mois = Val(saisie) ' -->> attention : le 29 et l'année 2000 ne sont pas choisis ici au hasard. Wend

---

EDIT que l'on pourrait d'ailleurs traiter également ainsi et faire l'économie d'une booléenne :

Code:

---

1 2 3 4 5

Dim mois As Byte, saisie As String While mois = 0 saisie = InputBox("Entrer le N° de mois à traiter") If IsDate("29/" & saisie & "/2000") Then mois = Val(saisie) Wend

---

Bonjour,
En plus de la réponse unparia sens équivoque puisqu'il qualifie qu'il s'agit bien d'une date, je dirais qu'un select case a 12 entrées c'est ridicule alors qu'un Array ferait l'affaire il me semble.

Code:

---

1 2	Mois=Array("","Janvier",...,"Décembre") M=Mois(1)

---

De plus si le mois de janvier est en colonne 8 je ne vois pas comment le mois de décembre pourrait être en 16!

Bonjour Robert
Cet aspect des colonnes m'avait également interpellé.
Impossible toutefois de le guider en parfaite connaissance de cause en ce qui concerne cet aspect-là, car trop dépendant de la manière dont la feuille est organisée, bien que je crois deviner que les données sont "regroupées" par semestre, le second étant séparé du 1er par deux colonnes (peut-être).
Ce ne peut être qu'à partir de cette précision que le choix (select case - seulement 2 dans ce cas - ou array) le plus judicieux pourra être fait.

Voilà de la matière pour progresser.
Bien Cordialement.