Fonction VBA pour copier coller une feuille
Bou6Fedi
Messages postés
11
Statut
Membre
-
ccm81 Messages postés 11033 Statut Membre -
ccm81 Messages postés 11033 Statut Membre -
j'ai crée une fonction qui copie colle une feuille, pourtant lorsque j’appelle cette fonction j'arrive pas a comprendre pourquoi les feuilles ne sont pas crée
voila mon code
voila mon code
Public Function CopyPast(rg As Range) As Integer
Dim sheetName As String
Dim pos As Integer
sheetName = rg.Value
pos = rg.Row
ActiveWorkbook.Sheets("template").Copy _
after:=ActiveWorkbook.Sheets(pos)
ActiveSheet.Name = sheetName
CopyPast = pos
End Function
3 réponses
-
Tu peux l'exécuter pour chaque cellule de la sélection
Public sub Machin()
dim rg as range
for each rg in selection
...
...
next rg
End sub -
Bonjour
Une fonction est fate pour renvoyer une valeur et non pour modifier l'environnement
Utilises plutot une procédure
Public sub Machin(...)
...
End sub
Cdlmnt -
Mais tu peux lui affecter un raccourci clavier, la macro s'exécutant sur la cellule selectionnée.
Public sub Machin()
dim rg as range
set range = selection
...
...
End sub
Cdlmnt
