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

R

Raja

XLDnaute Accro

• 3 Février 2009

• #2

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 :

Code:

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

 

Vote positif 0 Vote négatif

F

fgabaudan

Guest

• 3 Février 2009

• #3

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

 

Vote positif 0 Vote négatif

D

dixit

XLDnaute Impliqué

• 3 Février 2009

• #4

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

 

Vote positif 0 Vote négatif

D

dixit

XLDnaute Impliqué

• 3 Février 2009

• #5

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

 

Vote positif 0 Vote négatif