Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

XL 2010 (resolu par mapomme) Vba Validation

  • Initiateur de la discussion Initiateur de la discussion pierrejean
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

pierrejean

XLDnaute Barbatruc
Lorsque je souhaite n'autoriser qu'un numérique je crée une validation et utilise l'enregistreur de macro pour éventuellement répéter cette opération
L'enregistreur me donne:
Code:
Sub Macro5()
    With Selection.Validation
        .Delete
        .Add Type:=xlValidateCustom, AlertStyle:=xlValidAlertStop, Operator:= _
        xlBetween, Formula1:="=ESTNUM(A1)"
        .IgnoreBlank = True
        .InCellDropdown = True
        .InputTitle = ""
        .ErrorTitle = ""
        .InputMessage = ""
        .ErrorMessage = ""
        .ShowInput = True
        .ShowError = True
    End With  
End Sub
Or si je lance cette macro j'ai un bug sur la ligne
.Add Type:=xlValidateCustom, AlertStyle:=xlValidAlertStop, Operator:= _
xlBetween, Formula1:="=ESTNUM(A1)"

Ou diable me planté-je ????
 
Bonjour pierrejean 😉,

Si on remplace "=ESTNUM(A1)" par "=isnumber(a1)", ça fonctionne (chez moi).

On doit pouvoir raccourcir avec:
VB:
.Add Type:=xlValidateCustom, AlertStyle:=xlValidAlertStop, Formula1:="=isnumber(A1)"
 
Dernière édition:
Re pierrejean,

J'ai été quelques fois confronté à ce type de difficulté et j'avais cherché très lontemps (et c'est pourquoi je me souviens de la solution) avant d'essayer la formule US. C'est malgré tout étrange : l'américain écrit le français mais ne sait pas le relire. Ils sont bizarre ces gens là! 😕
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
12
Affichages
1 K
Réponses
4
Affichages
1 K
Réponses
3
Affichages
943
Réponses
16
Affichages
3 K
Réponses
1
Affichages
1 K
Réponses
2
Affichages
905
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…