validation VB

[Valérie]

Slt,

Je cherche à mettre des conditions de validation par programme VB et j'ai un os.
Cela ne fonctionne pas lorsque dans ma validation je souhaite mettre une formule.

En manuel aucun problème
données=>Validation=>Personnalisé puis dans formule je crée
=Somme(G9:G10)<=30
ET ça fonctionne!!

En VB cela me donne un truc du style
With Range("G9:G10").Validation
.Delete
.Add Type:=xlValidateCustom, Formula1:="=somme(G9:G10)<=30"
End With

Cela ne lui plait pas du tout. JE NE SAIS PAS QUOI LUI DIRE!!!

qqun a déjà eu ce pb???

@+ et merci

 

[Daniel DEMILLY]

Bonsoir,

Essaye :
With Selection.Validation
.Delete
.Add Type:=xlValidateCustom, AlertStyle:=xlValidAlertStop, Operator:= _
xlBetween, Formula1:="=somme(G9:G10)<=30"
.IgnoreBlank = True
.InCellDropdown = True
.InputTitle = ""
.ErrorTitle = ""
.InputMessage = ""
.ErrorMessage = ""
.ShowInput = True
.ShowError = True
End With

A+
D@niel

 

[Valérie]

As tu essayé de faire tourné avec ce code car je l'ai bien tenté mais toujours ERREUR 1004!!!
C'est bien ce que tu as avec l'enregistreur que tu me donnes?

Je sèche, merci quand même

 

[Valérie]

G trouvé

Il faut mettre SUM à la plcae de SOMME bien sûr!!

@ bientôt