choix d'un tableau variable

Bonsoir tous le monde et merci d'avance
pour mon projet chaque feuil contient une balance comptable pour un mois :
feuil1 nommée "Janvier_2015"
feuil2 nommée "Février_2015"
.... ainsi de suite
je veux que chaque "feuil" peut être considéré comme mon tableau base de calcul selon un choix effectué dans un combobox

voila un partie de code qui prends comme tableau la feuil "janvier_2015"

Code:

---

1 2 3

Dim Tablo Dim I As Long Tablo = Sheets("janvier_2015").Range("A2", "F" & Sheets("BALANCE").Range("F" & Rows.Count).End(xlUp).Row)

---

A noter que les tableaux sont de taille identique
Peux je utiliser la sheet.name...??

Si vous voyer autre chemin je suis preneur

est ce je peux procéder de la facon suivante :
si valeur : combobox = "janvier 2011" then tableau = sheets "janvier_2011"
si valeur : combobox = "février 2011" then tableau = sheets "février_2011"
....
..
..
que pensez vous??

Merci d'ance

j'avance comme un tortue
sur un site j'ai trouver le code qui alimente mon combobox par le nom des sheets

Code:

---

1 2 3 4 5 6 7 8 9

Private Sub UserForm_Initialize() Dim Ws As Worksheet ComboBox1.Clear For Each Ws In ThisWorkbook.Worksheets If Ws.Name <> "Feuil1" and Ws.Name <> "Facture" and Ws.Name <> "Devis" Then ComboBox1.AddItem Ws.Name End If Next Ws End Sub

---

maintenant je dois chercher comment formuler ça :
si valeur combobox = allez à la feuil portant le même nom
un cou de main les gar svppppp

encore moi :
svp pourquoi ça fonctionne pas??

Code:

---

1 2 3 4

Dim Tablo Dim I As Long sh.Name = Sheets("ENERGIE").Range("D2") Tablo = sh.Name.Range("A2", "G" & sh.Name.Range("G" & Rows.Count).End(xlUp).Row)

---

j'essaye d'envoyer la valeur de Combobox1 dans Sheets("ENERGIE").Range("D2")
puis j'essaye de l'utilisé comme nom de feuil
c'est dingue non :mrgreen:
mais ça fonctionne pas !!! :aie:

Bonjour,


je ne regarde que t'on dernier message .. je vois que tu utilise ce qui semble être une variable objet sh ... on ne vois pas où tu la déclare... , on vas dire que tu veux utiliser cette variable pour accéder à une feuille de ton classeur pour cela ... et non pas pour en changer le nom ce que pourrais faire ton code tel qu'il est écrit...

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Dim sh As workSheet   set sh =ThisWorkBook.Sheets(ThisWorkBook.Sheets("ENERGIE").Range("D2").text) '--- à partir de ce moment là .. la variable sh pointe sur la feuille du classeur contenant ce code , et dont le nom est contenu dans la feuille Energie en cellule D2 ..   msgbox "la variable sh pointe sur la feuille : " & sh.Name & " qui comporte au maximum : " & sh.rows.count & " lignes"     Tablo = sh.Range("A2", "G" & sh.Range("G" & sh.Rows.Count).End(xlUp).Row) '......

---

bonjour et merci pour la réponse
c'est exactement ce que je cherche
mais malheureusement votre code ne fonctionne pas
:roll:

Bonjour,

pourquoi dis tu que le code ne fonctionne pas ?

que se passe-t-il ... ?

j'ai corrigé la lige set sh :

Code:

---

Set sh = ThisWorkbook.Sheets(ThisWorkbook.Sheets("ENERGIE").Range("D2").Text)

---

super !!! ça fonctionne bien
Bonne journée et bonne année 2015