Programmation VBA
Elise
-
28 mai 2007 à 11:38
blux Messages postés 27831 Statut Modérateur -
blux Messages postés 27831 Statut Modérateur -
Bonjour,
dans un fichier Excel, j'ai fait des macros qui font des calculs à partir de données entrées dans des cellules.
Pb : si l'utilisateur du document se trompe et qu'il entre des données qui ne sont pas des chiffres, les macros bug.
Comment vérifier la nature d'une saisie?
(en l'occurence, comment vérifier que la donnée entrée est bien un chiffre, éventuellement à virgule)
Merci d'avance,
Elise
dans un fichier Excel, j'ai fait des macros qui font des calculs à partir de données entrées dans des cellules.
Pb : si l'utilisateur du document se trompe et qu'il entre des données qui ne sont pas des chiffres, les macros bug.
Comment vérifier la nature d'une saisie?
(en l'occurence, comment vérifier que la donnée entrée est bien un chiffre, éventuellement à virgule)
Merci d'avance,
Elise
2 réponses
bonjour,
plein de réponses sur les forum.
explore IsNumeric. (tape dans le code IsNumeric, sélectionne le mot et tape F1 tu aurras le mode d'emploi)
A+
louis
plein de réponses sur les forum.
explore IsNumeric. (tape dans le code IsNumeric, sélectionne le mot et tape F1 tu aurras le mode d'emploi)
A+
louis
Salut,
tu dois pouvoir tester la nature du contenu de la cellule renseignée:
Private Sub Worksheet_Change(ByVal Target As Range)
If IsNumeric(Target.Value) = True Then
'
' Ta macro
'
Else
MsgBox "Merci de rentrer une valeur numérique"
Target.Select
Target.Value = ""
End If
End Sub
A insérer dans le code de la feuille de calcul concernée, et à adapter.... ;-)
tu dois pouvoir tester la nature du contenu de la cellule renseignée:
Private Sub Worksheet_Change(ByVal Target As Range)
If IsNumeric(Target.Value) = True Then
'
' Ta macro
'
Else
MsgBox "Merci de rentrer une valeur numérique"
Target.Select
Target.Value = ""
End If
End Sub
A insérer dans le code de la feuille de calcul concernée, et à adapter.... ;-)
