XL 2010 (resolu par mapomme) Vba Validation

pierrejean · 31 Mars 2017

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

mapomme · 31 Mars 2017

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)"

pierrejean · 31 Mars 2017

Tu es génial (et je suis un âne mais ne le répète pas !!!)

mapomme · 31 Mars 2017

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à!

Lone-wolf · 31 Mars 2017

Bonsoir tout le monde

mapomme à dit : l'américain écrit le français mais ne sait pas le relire

Normal, puisqu'àprès il le traduit en anglais

XL 2010 (resolu par mapomme) Vba Validation

pierrejean

XLDnaute Barbatruc

mapomme

XLDnaute Barbatruc

pierrejean

XLDnaute Barbatruc

mapomme

XLDnaute Barbatruc

Lone-wolf

XLDnaute Barbatruc

Discussions similaires