Discussion :

[Mrfreeze117]

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 :

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

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 :

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

With Feuil & j

Où j serai une variable.

Merci d'avance pour vos nombreuses réponses

[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

[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

[Philippe Tulliez]

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

Code :

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

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 :

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

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 :

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

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

[Mrfreeze117]

Merci beaucoup.

Voici donc ma macro:

Code :

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

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