Comment contraindre la saisie de nombre dans une plage de cellule en vb??

[fgabaudan]

Bonjour,

J'ai une plage de cellule dans laquelle je souhaite que l'utilisateur ne puisse rentrer que des nombres décimaux (compris entre 0 et 24).
Je sais somment contraindre la saisi en utilisant Données>Validation mais comment faire en VB ??
Merci,

 

[Raja]

Re : Comment contraindre la saisie de nombre dans une plage de cellule en vb??

Bonjour,

Essaye le code suivant pour la plage A1:A20 par exemple :

Sub Validation()
    With Range("A1:A20").Validation
        .Delete
        .Add Type:=xlValidateDecimal, AlertStyle:=xlValidAlertStop, Operator:=xlBetween, Formula1:="0", Formula2:="24"
        .ErrorMessage = "Merci de saisir un nombre décimal entre 0 et 24"
    End With
End Sub

 

[fgabaudan]

Re : Comment contraindre la saisie de nombre dans une plage de cellule en vb??

merci Raja,
j'avais pensé à ce code aussi, mais il est issu de l'enregistreur de macro...
je crois qu'il y a un autre moyen en utilisant la fonction IsNumeric notamment ??

 

[dixit]

Re : Comment contraindre la saisie de nombre dans une plage de cellule en vb??

bonjour à tous,
j'ai fourni sur mon site perso quelques informations sur l'utilisation des fonctions excel en vba ; voir si cela peut convenir :
Ce lien n'existe plus
bye

 

[dixit]

Re : Comment contraindre la saisie de nombre dans une plage de cellule en vb??

re
pour utiliser Isnumeric sur une saisie :
c = InputBox("Entrez un nombre ")
If IsNumeric(c) Then
MsgBox "OKKKKK"

endif
bye