Variable tableau et liste de validation

Bonjour à tous,

j'utilise les variables tableau pour optimiser les temps d'exécution des macros mais je n'arrive pas à y inclure des listes de validation.
Autant a fonctionne quand je passe directement sur une feuille, autant par variable tableau, la liste n'apparait pas dans la cellule une fois affichée.
Pour ce faire, j'utilise ce code (qui fonctionne parfaitement sur une feuille)
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 With TABLEAU(4, ColonneTABLEAU).Validation .Delete .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _ xlBetween, Formula1:=Valeur .IgnoreBlank = True .InCellDropdown = True .InputTitle = "" .ErrorTitle = "Erreur Information !" .InputMessage = "" .ErrorMessage = "La valeur entrée n'est pas dans la liste." .ShowInput = True .ShowError = True End With
Si quelqu'un a déjà su trouver une solution, je suis preneur.
Curt

Bonjour Curt,

Essaie comme ceci :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Sub essaiValid()
Dim Tb(4) As String, monString As String
    Tb(0) = "Liste 1"
    Tb(1) = "Liste 2"
    Tb(2) = "Liste 3"
    Tb(3) = "Liste 4"
    Tb(4) = "Liste 5"
    monString = Join(Tb, ",")
    With Range("A1").Validation
        .Delete
        .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
        xlBetween, Formula1:=monString
        .IgnoreBlank = True
        .InCellDropdown = True
        .InputTitle = ""
        .ErrorTitle = ""
        .InputMessage = ""
        .ErrorMessage = ""
        .ShowInput = True
        .ShowError = True
    End With
End Sub

Merci pijaku,

mais tu ne viens pas renseigner une variable tableau avec une liste, mais remplir une cellule (A1) avec le contenu d'un tableau.
S'il est vrai que cela fonctionne dans ce cas, ça ne fonctionne pas à l'intérieur même d'une variable tableau.

Merci du coup de main en tous cas.
Curt

Pour le coup, je ne comprends pas le but de la manœuvre.
Si c'est pour inscrire une validation de données sur toute une colonne d'une feuille, tu pers ton temps à essayer d'en gagner…

Inscrit, directement, dans tout le Range (colonne) voulue, la validation en une fois…
Code:

1 2 3 4 5 6 7 8 9 10 11 12 With .Range("D2:D5971").Validation .delete .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:=xlBetween, Formula1:=Valeur .IgnoreBlank = True .InCellDropdown = True .InputTitle = "" .ErrorTitle = "Erreur Information !" .InputMessage = "" .ErrorMessage = "La valeur entrée n'est pas dans la liste." .ShowInput = True .ShowError = True End With
Tu iras aussi vite que de tout vouloir stocker dans une variable tableau (qui ceci dit entre nous pose d'autres difficultés, une variable tableau ne possédant pas de propriété Validation) pour tout restituer ensuite.

Il se peut que je n'ai toujours pas compris ton sujet, donc n'hésite pas...

Merci Pijaku pour cette réponse.

Le seul fait de savoir (je m'en doutais un peu il est vrai) que

Citation:

une variable tableau ne possédant pas de propriété Validation

répond sur l'impossibilité de traiter ma feuille comme actuellement.
La validation est néanmoins nécessaire puisque les données sont issues d'autres applications et qu'on doit pouvoir choisir sur la liste et renvoyer à ces applications.
L'utilisation des variables tableaux nous fait gagner du temps d'exécution par rapport à un remplissage directement sur la feuille (le tuto de Slkyroad sur le sujet a été une mine d'information)

Encore merci.
Curt