Recupérer valeur liste déroulante

B

Bebere

XLDnaute Barbatruc

• 17 Octobre 2009

• #2

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

 

Vote positif 0 Vote négatif

A

arnaudbu

XLDnaute Occasionnel

• 17 Octobre 2009

• #3

Re : Recupérer valeur liste déroulante

Merci,

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

 

Vote positif 0 Vote négatif

L

Lii

XLDnaute Impliqué

• 17 Octobre 2009

• #4

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

Code:

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

 

Vote positif 0 Vote négatif

A

arnaudbu

XLDnaute Occasionnel

• 17 Octobre 2009

• #5

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

Code:

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.

 

Vote positif 0 Vote négatif

B

Bebere

XLDnaute Barbatruc

• 17 Octobre 2009

• #6

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

 

Vote positif 0 Vote négatif

A

arnaudbu

XLDnaute Occasionnel

• 18 Octobre 2009

• #7

Re : Recupérer valeur liste déroulante

Bebere à dit:

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

Cliquez pour agrandir...

Ca marche nickel. Merci à vous @+

 

Vote positif 0 Vote négatif