fonction VBA pour copier coller une feuille

Question

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 

Public Function CopyPast(rg As Range) As Integer    Dim sheetName As StringDim pos As IntegersheetName = rg.Valuepos = rg.Row        ActiveWorkbook.Sheets("template").Copy _       after:=ActiveWorkbook.Sheets(pos)       ActiveSheet.Name = sheetName       CopyPast = pos       End Function

ccm81 · Answer

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

ccm81 · Answer

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

ccm81 · Answer

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

Fonction VBA pour copier coller une feuille

3 réponses

Discussions similaires

Newsletters