Creation liste en cascade VBA

[Bearpong]

Bonjour à tous,

J'aimerais créer des listes déroulantes en cascades sous VBA, pour ce faire j'ai enregistrer (et écrit) le code suivant:

Sheets("Tableaux").Activate
Range("B16").Select

With Selection.Validation
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
xlBetween, Formula1:="=OFFSET(INDIRECT($B$1);1;;COUNTA(INDIRECT(B1))-1)"
.IgnoreBlank = True
.InCellDropdown = True
.InputTitle = ""
.ErrorTitle = ""
.InputMessage = ""
.ErrorMessage = ""
.ShowInput = True
.ShowError = True
End With


Comme vous l'avez compris la première liste est en B1.
Hors; la macro plante au niveau (apparemment) de la lecture de ma formule. J'ai d'abord penser à un problème de traduction des formules, d'où l'anglais, mais cela ne change rien.
Avez vous des idées? Alternatives?

Merci d'avances pour votre aide.

 

[Guest]

Re : Creation liste en cascade VBA

Bonjour,

C'est sûrement COUNTA qui pose problème étant donné que tu ne référence qu'une cellule donc la fonction va retourner 1 (au mieux) ou 0 au pire. Et de ce résultat tu retranche 1 -> 0 ou -1.

As-tu une adresse de plage en B1? Ou veux-tu mettre INDIRECT(""$B$1"") ?

A+

 

[Bearpong]

Re : Creation liste en cascade VBA

Dsl mais j'ai du mal a te suivre...

En B1 j'ai le première liste déroulante. Ce que je ne comprend pas, c'est que quand je le fais manuellement, ca marche tres bien, avec exactement la mm formule (decaler, indirect, nbval) alors que vba la refuse.
Je peux mettre simplement INDIRECT($B$1), et la ca marche, mais dans ma liste s'affiche les cellules vides, chose que je voudrais éviter...

 

[Guest]

Re : Creation liste en cascade VBA

Bonjour,

Sans classeur exemple difficile de ne pas tomber à côté. Je n'ai pas de boule de cristal.

A+

 

[Banzai64]

Re : Creation liste en cascade VBA

Bonjour

Pas ; dans la formule
mais même cela ne passe pas

Peux tu mettre la formule Excel ici

 

[Bearpong]

Re : Creation liste en cascade VBA

Voici la partie du fichier concernée.

 

[Bearpong]

Re : Creation liste en cascade VBA

Voici la partie concernée. Merci à vous.

 

[Guest]

Re : Creation liste en cascade VBA

Re,

Voilà qui semble fonctionner:

Formula1:="=OFFSET(INDIRECT($B$1),1,,COUNTA(INDIRECT(B1))-1)"

Les formules sont automatiquement traduites pas excel et doivent être entrées en anglais.

Mais pourquoi faire cela par VBA?

A+

 

[Bearpong]

Re : Creation liste en cascade VBA

Merci beaucoup!

J'automatise car les listes sont faites à partir d'une base de données qui bouge tres souvent, de cette manière elles se mettront à jour très facilement.

Merci encore.