DataValidation. Formula1 = 'Référence autre sheet

[sb_guido]

Bonjour à tous,

Je désire faire créer une liste dans la cellule D5 - Sheets("Data").Range("D5").
La liste fait référence à des écritures dans une autre feuille - Sheets("List").Range("K15:K18")

Voici mon code:

Sub ListeClasse()
Dim ChoixClasse As String
ChoixClasse1 = Worksheets("List").Range("K15:K18")
Sheets("Data").Range("D5").Validation.Delete
Range("D5").Validation.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Formula1:="=" & ChoixClasse1
End Sub

Comment faire pour créer une formule qui réfère à un Range d'un autre onglet (voir caractères gras/souligné) ?

Merci beaucoup pour votre aide!

 

[JHA]

Re : DataValidation. Formula1 = 'Référence autre sheet

Bonjour à tous,

As-tu vraiment besoin de VBA pour une liste de validation?

Dans la feuille "List", tu sélectionnes la plage "K15:K18" et tu la nommes par exemple "plage"
Ruban Données/Validations des données/liste/ source =plage

JHA

 

[sb_guido]

Re : DataValidation. Formula1 = 'Référence autre sheet

Je sais comment le faire dans Excel. Merci quand même!

Une réponse svp?

Merci encore!

 

[phlaurent55]

Re : DataValidation. Formula1 = 'Référence autre sheet

Bonjour à tous,

essaie avec ceci:

Formula1:="=ChoixClasse1"

au lieu de: Formula1:="=" & ChoixClasse1

à+
Philippe