Bonjour,
j'ai recuperer un code qui permet de prendre le l'on de ma feuille qui est dans l'onglet et de le mettre dans la cellule D4
Sheets(NomFeuille).Range("D4") = Sheets(NomFeuille).Name
par contre je ne sait pas ou le mettre j'ai deja se code qui me permet de copier des feuilles par rapport a une liste et des modeles.
Sub CopyFeuille()
Dim i&, j&
With Sheets("catégorie fc")
For j = 0 To 1
For i = 1 To .Range("A5000").Offset(0, j).End(xlUp).Row
Sheets(Array("feuille_catégorieM", "feuille_catégorieF")(j)).Copy after:=Sheets(Sheets.Count)
ActiveSheet.Name = .Cells(i, 1).Offset(0, j)
Next i
Next j
End With
End Sub
j'ai essayer de le mettre dans le code ci dessus mais sa beug, j'ai essayer aussi de le mettre dans un module, mais sa marche pas.
qui peut m'aider?
Je doit faire quoi? merci de votre aide
j'ai recuperer un code qui permet de prendre le l'on de ma feuille qui est dans l'onglet et de le mettre dans la cellule D4
Sheets(NomFeuille).Range("D4") = Sheets(NomFeuille).Name
par contre je ne sait pas ou le mettre j'ai deja se code qui me permet de copier des feuilles par rapport a une liste et des modeles.
Sub CopyFeuille()
Dim i&, j&
With Sheets("catégorie fc")
For j = 0 To 1
For i = 1 To .Range("A5000").Offset(0, j).End(xlUp).Row
Sheets(Array("feuille_catégorieM", "feuille_catégorieF")(j)).Copy after:=Sheets(Sheets.Count)
ActiveSheet.Name = .Cells(i, 1).Offset(0, j)
Next i
Next j
End With
End Sub
j'ai essayer de le mettre dans le code ci dessus mais sa beug, j'ai essayer aussi de le mettre dans un module, mais sa marche pas.
qui peut m'aider?
Je doit faire quoi? merci de votre aide