Liste de validation variable

[Xtian (du Québec)]

Salut le forum, j'ai besoin de votre aide.

J'ai en A1 une liste de validation qui réfère à B1:B10. Cette liste de validation est créé avec le code suivant:

[A1].select
With Selection.Validation
.Add Type:=xlValidateList, Formula1:="=B1:B10"

J'aimerais changer ="=B1:B10" pour une sélection variable car des choix supplémentaires seront ajoutés en B11, B12, ...

J'ai essayé de nommé ma cellule de départ (ValidateStartCell) et celle de fin comme suit (ValidateEndCell). J'utilise le code suivant pour identifier ces cellules:

ValidateStartCell = "B1"
ValidateStartCell.select
Selection.end(xlDown).select 'Ajoutera les lignes additionnelles
ActiveCell = ValidateEndCell

Je voudrais donc que la référence dans Formula1 soit ValidateStartCell et ValidateEndCell à la place de B1 et B10.

J'ai essayé ="=...&..." ="=("...&...")
Je crois que je ne comprends pas très bien comment utiliser des références dans les codes...

Votre aide SVP

Un grand merci...Bon je vais faire dodo car ici la nuit commence...

Xtian (du QUébec)

 

[michel]

bonjour Xtian

l'exemple ci dessous créée une liste de validation de longueur variable , en fonction du nombre de données dans la colonne B

Sub MajListeValidation()
Range("A1").Validation.Delete 'supprimer l'ancienne liste
With Range("A1").Validation 'creer la nouvelle liste
.Add Type:=xlValidateList, Formula1:="=B1:" & Range("B65536").End(xlUp).Address
End With
End Sub


bonne journée
michel

 

[Xtian (du Québec)]

Merci beaucopu Michel, c'est exactement ce que je cherchais. J'aurai à parfaire mes connaissances avec les références de zones variables. Ton exemple m'aide à comprendre le fonctionnement de ="="(...&...)

Merci encore

@+
Xtian (du Québec)