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 maximum d'une cellule de tous les onglets


Sujet :

Macros et VBA Excel

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Membre averti
    Inscrit en
    Février 2009
    Messages
    32
    Détails du profil
    Informations forums :
    Inscription : Février 2009
    Messages : 32
    Par défaut Fonction maximum d'une cellule de tous les onglets
    Bonjour,
    je voudrai obtenir à l'aide d'une fonction, la valeur maximale d'un ensemble de cellules correspondant à la même cellule de chaque onglet de mon classeur.
    La fonction me renvoie une erreur type #valeur!

    voici mon code:

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
     
    Public Function max_clas(cel As Range) As Integer
    Dim Arr() As Integer 'Tableau contenant toutes les valeurs de la cellule choisie
    Dim i As Integer
     
    ReDim Arr(1 To Application.Worksheets.Count)
    For i = 1 To Worksheets.Count
    Arr(i) = Worksheets(i).cel.Value
    Next i
     
     
    max_tab = Application.Max(Arr)
     
    End Function
    cordialement,

  2. #2
    Expert confirmé
    Homme Profil pro
    Inscrit en
    Août 2010
    Messages
    3 453
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

    Informations forums :
    Inscription : Août 2010
    Messages : 3 453
    Par défaut
    Bonjour,

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    15
    16
    17
    18
     
    Public Function max_clas(cel As Range) As Integer
     
        Dim Arr() As Integer 'Tableau contenant toutes les valeurs de la cellule choisie
        Dim i As Integer
     
     
        ReDim Arr(1 To Worksheets.Count)
     
        For i = 1 To Worksheets.Count
     
            Arr(i) = Worksheets(i).Range(cel.Address).Value
     
        Next i
     
        max_clas = Application.Max(Arr)
     
    End Function

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

Discussions similaires

  1. [XL-2007] Optimisation d'une macro + Application à tous les onglets
    Par Identifiant75 dans le forum Excel
    Réponses: 53
    Dernier message: 05/05/2015, 19h23
  2. [XL-2003] Une macro sur tous les onglets
    Par Maksym dans le forum Macros et VBA Excel
    Réponses: 27
    Dernier message: 23/01/2013, 13h28
  3. Exécuter une macro sur tous les onglets d'un fichier sauf un
    Par Marsama dans le forum Macros et VBA Excel
    Réponses: 2
    Dernier message: 07/04/2011, 17h38
  4. Réponses: 7
    Dernier message: 22/04/2010, 15h45
  5. Fermeture d'une fenêtre avec tous les onglets ouverts
    Par Invité dans le forum Général JavaScript
    Réponses: 5
    Dernier message: 26/11/2008, 08h44

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