Recupérer valeur liste déroulante

[arnaudbu]

Bonjour,

actuellement j'ai une constante:

Const onglet As String = "2009"

J'aimerais maintenant la transformer en variable dont la valeur est récupérée depuis feuil1!E1 (validation par liste).

J'ai fait ça mais il y a une erreur:

Dim onglet As Variant
Set onglet = Sheets("feuil1").Range("E1")

Comment configurer ma variable ?

MERCI

 

[Bebere]

Re : Recupérer valeur liste déroulante

bonjour arnaudbu

Const onglet As String = "2009"

Public Sub test()
dim Ws as worksheet,P as variant

p = Sheets(onglet).Range("E1")
Set ws = Sheets(onglet)
ws.Range("E2") = "coucou"

End Sub

à bientôt

 

[arnaudbu]

Re : Recupérer valeur liste déroulante

Merci,

Mais a quelle moment mon E1 se retrouve dans ma variable onglet ?

 

[Lii]

Re : Recupérer valeur liste déroulante

Bonjour,

avec ce que je crois comprendre : clic droit sur le nom de l'onglet, choisir "Visualiser le code" puis copier le

Private Sub Worksheet_Change(ByVal Target As Range)
  Dim onglet As Variant
  If Target.Address <> "$E$1" Or Target.Count > 1 Then Exit Sub
  onglet = Target
End Sub

 

[arnaudbu]

Re : Recupérer valeur liste déroulante

Non, en fait j'ai un code qui récupère les données dans d'autres fichiers excel, mais uniquement dans les onglets "2009".

D'ou ma constante

Const onglet As String = "2009"

Maintenant je veux laisser le choix de l'onglet à l'utilisateur. Il choisi le nom de l'onglet à rechercher dans sa liste déroulante et lance la macro avec le bouton.

Je dois donc récupérer ce qui il y a dans feuil1!E1 (le nom des onglets à récupérer) pour que ma macro sache quels onglets récupérer dans les autres fichiers excel.

 

[Bebere]

Re : Recupérer valeur liste déroulante

Arnaudbu
bonjour Lii
Dim onglet As String
il faut un argument string
onglet = Sheets("feuil1").Range("E1")
ensuite
p= Sheets(onglet).Range("E1")
avec onglet as variant
p= Sheets(cstr(onglet)).Range("E1")
à bientôt

 

[arnaudbu]

Re : Recupérer valeur liste déroulante

Arnaudbu
bonjour Lii
Dim onglet As String
il faut un argument string
onglet = Sheets("feuil1").Range("E1")
ensuite
p= Sheets(onglet).Range("E1")
avec onglet as variant
p= Sheets(cstr(onglet)).Range("E1")
à bientôt

Ca marche nickel. Merci à vous @+