Discussion :

[BENNASR]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[BENNASR]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[BENNASR]

encore moi :
svp pourquoi ça fonctionne pas??

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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
mais ça fonctionne pas !!!

[SfJ5Rpw8]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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)
'......

[BENNASR]

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

[SfJ5Rpw8]

Bonjour,

pourquoi dis tu que le code ne fonctionne pas ?

que se passe-t-il ... ?

j'ai corrigé la lige set sh :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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