Macro definir nom et formule validation

[excelo]

Bonjour tout le monde,
Je voudrais savoir si quelqu'un connaitrai les codes VBA qui permettraient de définir le nom d'un champ et egalement de définir une formule par validation.

J'ai testé pour définir un champ la formule suivante mais elle ne marche pas, je sais pas trop pourquoi (code repris d'un enregistrement macro):
ActiveWorkbook.Names.Add Name:="listetot", RefersToR1C1:="=DECALER(lexique variables de payes!$A$1;1;;NBVAL(lexique variables de payes!$A:$A)-1)"

et pour la validation d'une cellule par formule :
With Selection.Validation
.Delete
.Add Type:=xlValidateCustom, AlertStyle:=xlValidAlertStop, Operator:= _
xlBetween, Formula1:="=OU(D2=0;D2=0,5;D2=ENT(D2))"
.IgnoreBlank = True
.InCellDropdown = True
.InputTitle = ""
.ErrorTitle = ""
.InputMessage = ""
.ErrorMessage = ""
.ShowInput = True
.ShowError = True
End With
End Sub


Si quelqu'un aurait un jour rencontré ce problème?
Merci pour votre aide ;-)

 

[Gorfael]

Re : Macro definir nom et formule validation

Salut excelo et le forum
=DECALER(X!$A$1;1;;NBVAL(X!$A:$A)-1)
X étant égal à lexique variables de payes

De tête, sans chercher plus avant
Decaler utilise un certain nombre de paramètre :
Cellule de référence : X!$A$1
déclage ligne par rapport à la référence : 1
décalage colonne par rapport à la référence : 0 (vide)
Nombre de ligne à prendre en compte : NBVAL(X!$A:$A)-1
nombre de colonne à prendre en compte : 0 (vide)
Je suis pas sûr, ta formule se référant à une adresse formulée en R1C1, une autre erreur peut venir de là.
A+

 

[excelo]

Re : Macro definir nom et formule validation

Bonjour Gorfael, re-bonjour tout le monde,
pas d'erreur sur le code mais plutôt sur la formule alors?,
je viens de m'apercevoir que "DECALER" se modifie en "OFFSET" que "NBVAL" se modifie en "COUNTA", effectivement le problème vient peut être de la formule, pas du code. je vais me repencher sur le pblème et je vous tiens au courant, sinon pour la formule de validation quelqu'un aurait une idée?

 

[excelo]

Re : Macro definir nom et formule validation

Bonjour tout le monde,
je confirme que le code pour dénir le champ était bon , il y avait une erreure sur la formule c'était "=OFFSET(lexique variables de payes!R1C1,1,,COUNTA(lexique variables de payes!C1)-1)", par contre pour la formule de validation du champ je n'ai toujours pas de solution, si quelqu'un pouvait m'éguiller, ;-)
Merci d'avance