bonsoir,
je suis plantée....
dans l'exemple qui suit, je veux afficher dans l'inputbox le n° de 1 à 12 (dim as BYTE irait trés bien)
je voudrais si on clique sur annuler sortir de la procédure, mais je ne sais pas pourquoi avec BYTE j'ai une erreur 13 incompatibilité de type
donc je met dim as variant
si j'affiche des lettres : ok ça bloque lors du contrôle suivant (avec le test entre 1 et 12)
mais si je met un chiffre entre 1 et 12 avec une virgule, ça passe mais je bloque plus tard dans le reste de ma procédure
comment faire pour imposer un format entre 1 et 12 sans virgule ?????
MERCI
CHANTAL
Sub a()
Dim mm As variant
suiv2:
mm = InputBox('mois: ', 'mois à planifier', 1) ' indique le mois
If mm = '' Then
Exit Sub
End If
If mm = 0 Then
GoTo suiv1
Else
If mm > 12 Then
suiv1:
MsgBox 'TAPER UN CHIFFRE ENTRE 1 ET 12 POUR LES MOIS !'
GoTo suiv2
Else
MsgBox mm 'pour contrôler ce qui a été tapé
End If
End If
End Sub
je suis plantée....
dans l'exemple qui suit, je veux afficher dans l'inputbox le n° de 1 à 12 (dim as BYTE irait trés bien)
je voudrais si on clique sur annuler sortir de la procédure, mais je ne sais pas pourquoi avec BYTE j'ai une erreur 13 incompatibilité de type
donc je met dim as variant
si j'affiche des lettres : ok ça bloque lors du contrôle suivant (avec le test entre 1 et 12)
mais si je met un chiffre entre 1 et 12 avec une virgule, ça passe mais je bloque plus tard dans le reste de ma procédure
comment faire pour imposer un format entre 1 et 12 sans virgule ?????
MERCI
CHANTAL
Sub a()
Dim mm As variant
suiv2:
mm = InputBox('mois: ', 'mois à planifier', 1) ' indique le mois
If mm = '' Then
Exit Sub
End If
If mm = 0 Then
GoTo suiv1
Else
If mm > 12 Then
suiv1:
MsgBox 'TAPER UN CHIFFRE ENTRE 1 ET 12 POUR LES MOIS !'
GoTo suiv2
Else
MsgBox mm 'pour contrôler ce qui a été tapé
End If
End If
End Sub