Récupérer le nom d'un onglet dans le code

Version imprimable

Bjr tout le monde ,

J'ai une petite macro qui gère une boucle.
cette boucle va s'exécuter sur différents onglets.
J'aimerai récupérer le nom de l'onglet qui est stocké dans une cellule pour être utilisé dans le code.
Aujourd'hui je crée une macro par onglet ( le nom de longlet est dans le code ) et souhaite faire un marco générique.
ici le nom de l'onglet est 198_187_987
merci de votre aide
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 Sub remplissage_cinq_quatre() Dim i, j, w, m, y As Integer w = Format(Date, "ww") m = Format(Date, "mm") y = Format(Date, "yyyy") For j = 18 To 29 For i = 4 To 107 If m + 17 = j Then If w + 2 + (y - 2014) * 52 < i Then Worksheets("198_187_987").Cells(j, i).Value = Worksheets("198_187_987").Cells(17, i).Value End If End If Next Next End Sub

04/08/2014, 17h00
Thautheme

Bonjour Neoboy, bonjour le forum,

Pas vraiment compris mais peut-être pourrais-tu utiliser ActiveSheet dans le code si, bien évidement, l'onglet a été activé auparavant...

Code:

ActiveSheet.Cells(j, i).Value = ActiveSheet.Cells(17, i).Value

Bonjour,

Peut-être quelque coche comme ça :

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
Option Explicit
Sub boucle()
Dim c As Range
 
  For Each c In Worksheets("Feuil1").Range("A1:A5")
    Call remplissage_cinq_quatre(c.Value)
  Next
 
End Sub
 
Sub remplissage_cinq_quatre(nomFeuille As String)
Dim i As Integer, j As Integer, w As Integer
Dim m As Integer, y As Integer
 
  w = Format(Date, "ww")
  m = Format(Date, "mm")
  y = Format(Date, "yyyy")
  For j = 18 To 29
    For i = 4 To 107
      If m + 17 = j Then
        If w + 2 + (y - 2014) * 52 < i Then
          Worksheets(nomFeuille).Cells(j, i).Value = Worksheets(nomFeuille).Cells(17, i).Value
        End If
      End If
    Next
  Next
 
End Sub

Cordialement
Patrice