IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

Macros et VBA Excel Discussion :

[Excel] Passer une Feuille Excel en argument d'une fonction, comment faire?


Sujet :

Macros et VBA Excel

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Membre éclairé
    Profil pro
    chomeur
    Inscrit en
    Août 2006
    Messages
    343
    Détails du profil
    Informations personnelles :
    Localisation : France, Paris (Île de France)

    Informations professionnelles :
    Activité : chomeur

    Informations forums :
    Inscription : Août 2006
    Messages : 343
    Par défaut [Excel] Passer une Feuille Excel en argument d'une fonction, comment faire?
    Bonjour à tous,
    Depuis quelques jours je me pose cette question et en toute franchise je n'arrive pas à trouver malgré quelques tentatives.
    Mon code était le suivant.
    Code Fonctions tests pour passage de feuille en argument : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    Sub tt()
        PasseFeuille (ThisWorkbook.Sheets("Feuil1"))
    End Sub
     
    Sub PasseFeuille(Mafeuil As Worksheet)
        Mafeuil.Cells(1, 1) = "coucou"
    End Sub
    Alors si quelqu'un sait comment faire, ben faites moi signe...

  2. #2
    Membre chevronné
    Profil pro
    Inscrit en
    Février 2007
    Messages
    491
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Février 2007
    Messages : 491
    Par défaut
    bonsoir

    2 solutiuons
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
     
    Sub tt()
      Call PasseFeuille(Sheets("Feuil1"))
    End Sub
     
    Sub PasseFeuille(Mafeuil As Worksheet)
        Mafeuil.Cells(1, 1) = "coucou"
    End Sub
    ou

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
     
    Sub tt()
     PasseFeuille Sheets("Feuil1")
    End Sub
     
    Sub PasseFeuille(Mafeuil As Worksheet)
        Mafeuil.Cells(1, 1) = "coucou"
    End Sub

  3. #3
    Membre éclairé
    Profil pro
    chomeur
    Inscrit en
    Août 2006
    Messages
    343
    Détails du profil
    Informations personnelles :
    Localisation : France, Paris (Île de France)

    Informations professionnelles :
    Activité : chomeur

    Informations forums :
    Inscription : Août 2006
    Messages : 343
    Par défaut
    Merci pour la réponse rapide.
    Je ne comprends pas pourquoi le passage par call change tout...
    Quelqu'un aurait-il une explication?

  4. #4
    Modérateur
    Avatar de AlainTech
    Homme Profil pro
    Consultant informatique
    Inscrit en
    Mai 2005
    Messages
    4 235
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 71
    Localisation : Belgique

    Informations professionnelles :
    Activité : Consultant informatique
    Secteur : Finance

    Informations forums :
    Inscription : Mai 2005
    Messages : 4 235
    Par défaut
    Soit tu utilises Call et tu peux laisser les parenthèses, soit tu gardes ta syntaxe mais tu enlèves les parenthèses.
    N'oubliez pas de cliquer sur quand vous avez obtenu ou trouvé vous-même la réponse à votre question.
    Si vous trouvez seul, pensez à poster votre solution. Elle peut servir à d'autres!
    Pensez aussi à voter pour les réponses qui vous ont aidés.
    ------------
    Je dois beaucoup de mes connaissances à mes erreurs!

Discussions similaires

  1. Réponses: 3
    Dernier message: 02/09/2009, 00h48
  2. Inserer une image dans l'entête d'une feuille excel
    Par l0quito dans le forum VB.NET
    Réponses: 4
    Dernier message: 18/07/2008, 09h55
  3. Inserer une Image dans l'entête d'une feuille Excel
    Par l0quito dans le forum VB 6 et antérieur
    Réponses: 10
    Dernier message: 10/07/2008, 16h46
  4. Réponses: 2
    Dernier message: 30/08/2006, 23h51
  5. Réponses: 6
    Dernier message: 15/05/2006, 18h04

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo