Navigation Feuille Variable

Version imprimable

Bonjour à tous,

Voilà mon problème.

J'aimerai naviguer entre mes feuilles sans utiliser le nom de la feuille.
Du coup j'avais pensé utilisé une variable correspondant au numéro de ma feuille.

J'explique avec un exemple, voici ce qui marche :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 Dim i As Integer Dim cs As String, cellule_vs As String Dim vs As Range With Feuil1 For i = 4 To 44 cs = .Cells(i, 3).Value Set vs = Feuil3.Cells.Find(cs) cellule_vs = vs.Row .Cells(i, 2).Value = Feuil3.Cells(cellule_vs, 3) Next End With End Sub
Maintenant je voudrai remplacer Feuil1 par quelque chose comme :

Code:

With Feuil & j

Où j serai une variable.

Merci d'avance pour vos nombreuses réponses

14/09/2012, 15h03
kiki29

Salut, as-tu pensé à ce qui se passera quand l'utilisateur déplacera ( volontairement ou pas ) une feuille ?

Sinon il y a le CodeName qui présente l'avantage de ne pas avoir à toucher au code VBA, cela même si l'utilisateur déplace / ajoute une feuille
14/09/2012, 17h11
Mrfreeze117

Feuil1 est déjà un codename,
Ma question et donc est-ce que c'est possible d'associé une variable à un codename?

Merci d'avance

Bonjour,
Un petit exemple basic Feuil2 à Feuil4 sont des CodeName

Code:

1
2
3
4
5
6
7
8
9
10
Sub test()
 Dim f As Byte
 Dim sht(2) As Worksheet
 Set sht(0) = Feuil2
 Set sht(1) = Feuil3
 Set sht(2) = Feuil4
 For f = 0 To 2
  Debug.Print sht(f).Name
 Next
End Sub

Ou plus drôle

Code:

1
2
3
4
5
6
7
8
Sub t()
 Dim sh As Worksheet, n As Byte
 For Each sh In Worksheets
  For n = 2 To 4
   If sh.Name = "Feuil" & n Then Debug.Print sh.Name: Exit For
  Next
 Next
End Sub

Et encore une autre solution

Code:

1
2
3
4
 Dim f As Byte
 For f = 2 To 4
  Debug.Print ThisWorkbook.VBProject.VBComponents("Feuil" & f).Name
 Next

Merci beaucoup.

Voici donc ma macro:

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
Sub Correspondance_code_ville()
 
Dim i As Integer, fin_tableau As Integer
Dim cs As String, cellule_vs As String
Dim vs As Range
Dim f As Byte
Dim sht(6) As Worksheet
 
Set sht(1) = Feuil1
Set sht(2) = Feuil2
Set sht(3) = Feuil3
Set sht(4) = Feuil4
Set sht(5) = Feuil5
Set sht(6) = Feuil6
 
For f = 1 To 4 Step 3
    With sht(f)
    fin_tableau = sht(f).UsedRange.Rows.Count
    For i = 4 To fin_tableau - 1
 
        cs = .Cells(i, 3).Value
 
        Set vs = sht(f + 2).Cells.Find(cs)
        cellule_vs = vs.Row
 
        .Cells(i, 2).Value = sht(f + 2).Cells(cellule_vs, 3)
 
        Next
    End With
Next
 
 
End Sub

Pensez vous qu'il y a moyen de faire mieux?

Merci