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 :

Fonction avec le nom d'une feuille pour argument [XL-2002]


Sujet :

Macros et VBA Excel

  1. #1
    Membre confirmé
    Inscrit en
    Avril 2007
    Messages
    69
    Détails du profil
    Informations forums :
    Inscription : Avril 2007
    Messages : 69
    Par défaut Fonction avec le nom d'une feuille pour argument
    Bonjour,

    je voudrais créer une fonction sous excel dont l'un des deux arguments est le nom d'une feuille.

    Argument AA: cellule dont la valeur est le nom d'une feuille contenu dans le fichier où je travaille
    Argument BB: cellule


    J'ai écrit la mini fonction suivante, mais malheureusement elle ne marche pas. (Elle me renvoie #VALEUR!)

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    Function gett(AA As String, BB)
     
    Application.Volatile
    gett = Worksheets("AA").Cells(BB.Row, BB.Column)
     
    End Function

    Est-ce que quelqu'un aurait une idée???

    Merci d'avance !

    Bonne journée

    JB

  2. #2
    Expert confirmé Avatar de casefayere
    Homme Profil pro
    RETRAITE
    Inscrit en
    Décembre 2006
    Messages
    5 138
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 71
    Localisation : France, Ardennes (Champagne Ardenne)

    Informations professionnelles :
    Activité : RETRAITE
    Secteur : Agroalimentaire - Agriculture

    Informations forums :
    Inscription : Décembre 2006
    Messages : 5 138
    Par défaut
    bonjour,
    ça ne serait pas ça :
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    Function gett(AA As String, BB As Range)
    Cordialement,
    Dom
    _____________________________________________
    Vous êtes nouveau ? pour baliser votre code, cliquer sur cet exemple : Anomaly
    pensez à cliquer sur :resolu: si votre problème l'est
    Par contre, il est désagréable de voir une discussion résolue sans message final du demandeur (satisfaction, désarroi, remerciement, conclusion...)

  3. #3
    Membre confirmé
    Inscrit en
    Avril 2007
    Messages
    69
    Détails du profil
    Informations forums :
    Inscription : Avril 2007
    Messages : 69
    Par défaut
    Malheureusement non...

    En fait si j'enlève le "Worksheets("AA")" dans la fonction il me retourne la valeur qui est contenu dans la cellule BB.

    Il s'agit donc d'un problème avec la fonction Worksheet....

  4. #4
    Membre confirmé
    Inscrit en
    Avril 2007
    Messages
    69
    Détails du profil
    Informations forums :
    Inscription : Avril 2007
    Messages : 69
    Par défaut
    Ca fonctionne maintenant, il faut juste enlever les " pour la varibale AA:

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    Function gett(AA As String, BB)
     
    Application.Volatile
    gett = Worksheets(AA).Cells(BB.Row, BB.Column)
     
    End Function

+ Répondre à la discussion
Cette discussion est résolue.

Discussions similaires

  1. [XL-2003] Fonction GAUCHE sur nom d'une feuille (5 premières lettres)
    Par BtjpsspgrW dans le forum Macros et VBA Excel
    Réponses: 2
    Dernier message: 10/03/2014, 18h31
  2. Réponses: 10
    Dernier message: 24/02/2014, 15h22
  3. [XL-2007] Formule avec le nom d'une feuille
    Par Loki83 dans le forum Excel
    Réponses: 2
    Dernier message: 07/06/2011, 11h24
  4. Réponses: 2
    Dernier message: 07/10/2008, 14h11
  5. Récupérer le nom d'une feuille excel avec ADO
    Par Kephuro dans le forum Bases de données
    Réponses: 1
    Dernier message: 25/01/2008, 21h11

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