Discussion :

[neoboy]

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 :

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
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

[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 :

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

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

[Patrice740]

Bonjour,

Peut-être quelque coche comme ça :

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
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