Feuille en argument de fonction

[lombriiik]

Bonjour à tous,

j'aimerais savoir s'il est possible d'écrire une fonction VBA avec en argument une feuille. J'ai écrit ça comme ça :

Sub CopierTemp(ByVal Feuille As Sheets)
Dim DerniereLigne, DerniereTemp As Double
                
    DerniereTemp = Feuille.Range("A1").CurrentRegion.End(xlDown).Row
    DerniereLigne = Sheets("Feuil1").Range("A1").CurrentRegion.End(xlDown).Row
    
    If DerniereTemp = 65536 Then DerniereTemp = 2
    If DerniereLigne = 65536 Then DerniereLigne = 2
    Sheets("Feuil1").Range("A2:CG" & DerniereLigne).Copy
    Feuille.Cells(DerniereTemp, 1).PasteSpecial Paste:=xlPasteValuesAndNumberFormats

End Sub

mais j'obtiens une erreur 13, Incompatibilité de type alors que la fonction marche parfaitement en figeant la feuille dans la procédure.

Merci de votre aide

 

[wilfried_42]

Re : Feuille en argument de fonction

Bonjour

Sub CopierTemp(Feuille As WorkSheet)

serait une meilleur fromulation : mais tu doits passer un objet feuille

copiertemps(sheets(1)) ou copiertemps(sheets("MaFeuille"))

 

[Compte Supprimé 979]

Re : Feuille en argument de fonction

Salut Lombriiik,

Il suffit de mettre

Sub CopierTemp(ByVal Feuille As Worksheet)

Penses à compiler les VBAProject quand tu fais du code, ça te donne les indications sur les erreurs que tu peux avoir 😉

Menu Débogage -> Compiler VBAProject

A+

Edit : Oups, bonjour mon cher Wilfried42 🙂

 

[wilfried_42]

Re : Feuille en argument de fonction

re:

Bonjour Bruno, toujours un plaisir de te croiser

 

[lombriiik]

Re : Feuille en argument de fonction

Merci Bruno et Wilfried de vous être penché sur mon problème,

j'ai finalement doublé ma fonction pour être tranquille mais j'essaierais vos méthodes très bientôt, depuis que j'ai fait découvrir Excel aux gens de ma boîte, ils sont plus que fans 🙂 ...

@ bientôt donc

 

[lombriiik]

Re : Feuille en argument de fonction

Bonjour à tous,

Bruno, j'ai testé ta solution, elle fonctionne parfaitement.

Merci beaucoup