Programmation VBA
Elise
-
blux Messages postés 27992 Date d'inscription Statut Modérateur Dernière intervention -
blux Messages postés 27992 Date d'inscription Statut Modérateur Dernière intervention -
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
A voir également:
- Programmation VBA
- Application de programmation - Guide
- Excel compter cellule couleur sans vba - Guide
- Incompatibilité de type vba ✓ - Forum VB / VBA
- Erreur 13 incompatibilité de type VBA excel ✓ - Forum Excel
- Find vba - Astuces et Solutions
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.... ;-)
