Equivalent "This" pour bloc With

Bonjour à tous,

D'avance je présente mes excuses pour poser une question à laquelle vous avez du répondre des milliers de fois, mais je ne trouve malheureusement pas la réponse.

Lorsque je travail sur une feuille en particulier, je fais comme cela:

with monClasseur.maFeuille("nom de ma feuille")
    'Tâche 1
    'Tâche 2
    'Tâche 3
    'etc
end with

Maintenant j'aimerais appeler un sub depuis mon bloc "with" avec la feuille sur laquelle je suis actuellement entrain de travailler.

Au départ j'avais fait comme cela.

with monClasseur.maFeuille("nom de ma feuille")
    call monSub(activeSheet)
end with

Malheureusement ça ne fonctionne pas. Cela va renvoyé une autre feuille que celle de mon bloc with.

Ma question est, y a t-il un équivalent VBA du "This"' qui me permettrait d'envoyer ma feuille à la fonction.

D'avance merci pour votre aide.

Bonne journée!

Bonjour,

Ce qui est important, c'est de savoir si ta procédure monsub() est construite pour accepter que tu passes ton paramètre... avec ByRef ou ByVal ...

Sub monsub(ByVal NomDeTaVariable As Worksheet)

Bonjour James007,

D'ordinaire je ne précise pas. J'imagine que par défaut c'est un Byref.

Lorsque je créais une fonction sub je la déclare comme cela:

monsub(classeur as workbook, feuille as worksheet)
end sub

Je n'ai jamais eu de problème avec ce code. Je ne me suis donc jamais posé la question d'utiliser un ByRef ou ByVal.

Néanmoins j'aimerais savoir si il y a un mot clé qui permet de récupérer l'objet du bloc with sur lequel nous somme.

A tester :

Me

Encore merci James007 pour ton aide.

Malheureusement j'ai déjà tester ceci sans succès.

with monClasseur.maFeuille("nom de ma feuille")
    call monSub(me)
end with

Du coup, il te faut créér la variable dédiée dont tu as besoin pour être l'argument que tu passes à ta procédure ...