boucle vba pour validation

[Sheldor]

bonjour les excelliens,
je n'ai pas trouvé, ai-je mal cherché, j'en appelle à votre aide:

je dois construire un "gros" tableau de saisie de données

j'ai une série de variables à dispatcher dans une feuille, je voudrais contraindre la saisie par "validation"

exemple de contrainte en nombre entier entre 7 et 77 :

j'ai enregistré la macro:
Range("B16").Select
With Selection.Validation
.Delete
.Add Type:=xlValidateWholeNumber, AlertStyle:=xlValidAlertStop, _
Operator:=xlBetween, Formula1:="7", Formula2:="77"
End With

et je me suis fait des illusions en croyant pouvoir remplacer whole number / 7 / 77 par des valeurs que j'ai dans un tableau.

'macro que j'aimerais faire fonctionner:
Range("B17").Select

type_de_validation = Cells(6, 3)
entre = Cells(6, 4)
et = Cells(6, 5)
ligne = Cells(6, 6)
colonne = Cells(6, 7)

Cells(ligne, colonne).Select

With Selection.Validation
.Delete
.Add Type:=type_de_validation, AlertStyle:=xlValidAlertStop, _
Operator:=xlBetween, Formula1:=entre, Formula2:=et
End With


je ... débute!
les déclarations de variables je ne maitrise pas...

grand merci déjà d'avoir lu ce message.
amicalement
nico

 

[2passage]

Re : boucle vba pour validation

Bonjour,

Tu essayes mettre des "range" dans les paramètres de la fonction. essaye avec les valeurs présente dans les cellules en faisant :

type_de_validation = Cells(6, 3).value

Bon courage

 

[Sheldor]

Re : boucle vba pour validation

intéressant.
j'essaye
merci !!

 

[Sheldor]

Re : boucle vba pour validation

ça coince encore.
merci quand même.

 

[2passage]

Re : boucle vba pour validation

Rebonjour,

C'est le passage des paramètres de type qui ne passe pas. Il faut passer les valeurs à la place

xlValidateWholeNumber = 1, Decimal = 2, date=4, time =5

 

[Pierrot93]

Re : boucle vba pour validation

Bonjour,

A priori cela doit coincer au niveu du type de validation, tu envoie dans ta variable "type_de_validation" du texte, alors que le type doit être identifié par une constante vba... essaye en utilisant la valeur de la constante, à coté du nom de la constante dans la liste ci-dessous :

xlValidateCustom = 7
xlValidateDate = 4
xlValidateDecimal = 2
xlValidateInputOnly = 0
xlValidateList = 3
xlValidateTextLength = 6
xlValidateTime = 5
xlValidateWholeNumber = 1

bon après midi
@+

 

[Sheldor]

Re : boucle vba pour validation

très fort
très fort
comme d'habitude

merci BEAUCOUP à vous deux !