Bonjour,
J'ai besoin d'aide pour un bout de macro qui doit vérifier si chaque cellule d'un ensemble de cellules est numérique, dans le cas contraire je lance une validation des données pour limiter la saisie à certains codes congés.
Ce code actuel m'impose uniquement la saisie de RTT ou RC sans m'offrir la possibilité de saisir un chiffre.
Comment faire pour inclure la condition de tester si la cellule est numérique avant de valider les données?
Est-ce un problème de syntaxe ou faut-il aborder le problème différemment ?
J'ai besoin d'aide pour un bout de macro qui doit vérifier si chaque cellule d'un ensemble de cellules est numérique, dans le cas contraire je lance une validation des données pour limiter la saisie à certains codes congés.
Code:
Range("C13", "AG" & dl).Select
With Selection.Validation
If Not IsNumber Then
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
xlBetween, Formula1:="RC,RTT,rc,rtt"
.IgnoreBlank = True
.InCellDropdown = False
.InputTitle = ""
.ErrorTitle = "Erreur de saisie"
.InputMessage = ""
.ErrorMessage = "La valeur doit-être RC ou RTT"
.ShowInput = False
.ShowError = True
End If
End With
Ce code actuel m'impose uniquement la saisie de RTT ou RC sans m'offrir la possibilité de saisir un chiffre.
Comment faire pour inclure la condition de tester si la cellule est numérique avant de valider les données?
Est-ce un problème de syntaxe ou faut-il aborder le problème différemment ?