[VBA-E]Sélection d'une feuille par sa référence

Bonjour,

Voilà j'ai un petit souci sur lequel je planche depuis ce matin. D'abord le code :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37

namenew = Db & "|" & project 'new name of the future sheet If Not existsheet Then Workbooks(actualname).Sheets.Item("Template").Copy After:=Workbooks(actualname).Sheets.Item("Synergy_Configuration") 'copy of the sheet "Template" after the sheet "Synergy_Configuration ActiveSheet.Name = namenew 'the new sheet is rename with namenew Set wsProject = ActiveWorkbook.Sheets.Item(namenew) ''initialization of wsProject as the name of the sheet "namenew" Else crState = "" 'initialization of the values of the column "Change" of the sheet "Template" End If 'select the data in the ProjectName sheet to update the graph automatically Sheet(wsProject).Select Dim a, b, c, d As Integer a = 3 'end column b = 1 'start column c = 3 'end line d = 3 'start line 'Column Iteration Do a = a + 1 Loop Until IsEmpty(Cells(b, a).Value) a = a - 1 MsgBox a 'Row Iteration Do c = c + 1 Loop Until IsEmpty(Cells(c, a).Value) c = c - 1 MsgBox c ActiveWorkbook.Names.Add Name:="LastData", RefersToR1C1:="='wsProject'!R" & d & "C" & b & ":R" & c & "C" & a

---

J'ai mis en Gras les lignes que je n'arrive pas à faire fonctionner.
Ce programme me permet de sélectionner une feuille dans laquelle je renomme une plage de cellules. Cela marche très bien quand je mets le VRAI NOM de la feuille. Mais, je voudrais que cela passe par sa référence car son nom peut changer. (Je vous ai donné aussi le bout de code où je créé ma feuille automatiquement).

J'espère que vous pourrez m'aider !!!

Salut
Qu'appelles tu référence
son nom sheets("feuil1")
son index sheets(1)
Daranc

En fait par référence, j'entends le nom que j'utilise pour la créer, à savoir "namenew".

Est-ce que c'est possible???

bonjour

Tu peux utiliser

Code:

---

1 2 3 4 5

Set wsProject = ActiveWorkbook.Worksheets(namenew) ' ' ' wsProject.Select

---

michel

Code:

---

1 2 3

Sheets.Add ActiveSheet.Select ActiveSheet.Name = "nom"

---

Daranc

c'est encore plus simple, si tu lui dis que wsproject est une feuille, tu n'a pas besoin de lui repreciser une deuxieme fois

Code:

---

1 2 3 4 5

Sub macro2() namenew = "abc" Set wsProject = ThisWorkbook.Sheets.Item(namenew) wsProject.Select End Sub

---

voila, voila

Merci de votre aide. J'ai mis :

Code:

---

wsProject.Select

---

C'était tout simple en effet. Cependant une autre ligne ne fonctionne plus :

Code:

---

ActiveWorkbook.Names.Add Name:="LastData", RefersToR1C1:="=wsProject!R" & d & "C" & b & ":R" & c & "C" & a

---

J'ai essayé en mettant 'wsProject', ça ne fonctionne pas non plus... C'est peut-être encore tout simple, mais je suis débutante en VBA... :oops:

C'est la dernière ligne du programme en plus ! Juste avant, il m'affiche bien le nombre de colonnes puis de lignes, et ensuite il ne me renomme pas ces colonnes et lignes...

bonjour

Tu peux utiliser:

Code:

---

1 2 3

ActiveWorkbook.Names.Add Name:="LastData", _ RefersToR1C1:="='" & wsProject.Name & "'!R" _ & d & "C" & b & ":R" & c & "C" & a

---

michel

J'ai fait un affichage de a, b, c, d et aucune de ces valeurs n'est à 0.
Je n'ai aucune erreur dans le code, mais il ne me renomme plus la plage de cellules, que j'ai sélectionné, en "LastData", pourtant il passe bien à cette ligne quand je fais F8. Je ne comprends pas pourquoi ça ne marche plus.:cry: En plus ce code doit fonctionner avnt 15h30 !!!

Code:

---

ActiveWorkbook.Names.Add Name:="LastData", RefersToR1C1:="='" & wsProject.Name & "'!R" & d & "C" & b & ":R" & c & "C" & a

---

C'est bon, ça marche !!! Merci à tous et à toutes !!!
Je vous embrasse !!! :D