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 :

Max d'une colonne [XL-2007]


Sujet :

Macros et VBA Excel

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Membre éclairé Avatar de m@tix
    Profil pro
    Inscrit en
    Octobre 2006
    Messages
    304
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Octobre 2006
    Messages : 304
    Par défaut Max d'une colonne
    Bonjour,

    J'écris une macro qui insère dans mon fichier Excel des données d'un autre fichier Excel. Par exemple, après avoir "ouvert" dans la macro le fichier utile, la commande suivante va me chercher la valeur présente dans la cellule B3 (et ça fonctionne):

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    Sheets(CStr(xxxx)).Cells(yyyy, rech.Column).Value = Val(Workbooks(fic).Sheets(feu).Range("B3").Value)
    Je souhaiterais récupérer la valeur max présente dans la colonne A de ce même classeur. Pour cela, j'ai tenté l'instruction suivante:

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    Sheets(CStr(xxxx)).Cells(yyyy, rech.Column).Value = Val(Workbooks(fic).Sheets(feu).Application.Max(Range("A:A")))
    Et là, ça ne fonctionne plus... En fait, cela me renvoie la valeur max de la bonne colonne mais.. du classeur en cours, et non du classeur que j'ai ouvert via la macro. Comment cela se fait-il ? Je n'ai pourtant fait que remplacer le code précédent par celui-ci, alors pourquoi ne considère-t-il plus le fichier ouvert ??

    Merci d'avance.

    Question subsidiaire : si je souhaite obtenir le max de la colonne A, sachant que les données ne commencent qu'en A2 et que je ne connais pas la taille de la colonne, comment fait-on ?

  2. #2
    Membre Expert
    Avatar de tototiti2008
    Homme Profil pro
    Formateur/développeur
    Inscrit en
    Octobre 2008
    Messages
    1 207
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Moselle (Lorraine)

    Informations professionnelles :
    Activité : Formateur/développeur

    Informations forums :
    Inscription : Octobre 2008
    Messages : 1 207
    Billets dans le blog
    2
    Par défaut
    Bonjour m@tix,

    Peut-être

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    Sheets(CStr(xxxx)).Cells(yyyy, rech.Column).Value = Val(application.max(Workbooks(fic).Sheets(feu).Range("A:A")))

  3. #3
    Membre éclairé Avatar de m@tix
    Profil pro
    Inscrit en
    Octobre 2006
    Messages
    304
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Octobre 2006
    Messages : 304
    Par défaut
    Bonjour tototiti2008,

    Merci pour ton aide, mais en testant ton code, ça me renvoie à chaque fois 0 (même si je choisis une autre colonne).

  4. #4
    Membre Expert
    Avatar de tototiti2008
    Homme Profil pro
    Formateur/développeur
    Inscrit en
    Octobre 2008
    Messages
    1 207
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Moselle (Lorraine)

    Informations professionnelles :
    Activité : Formateur/développeur

    Informations forums :
    Inscription : Octobre 2008
    Messages : 1 207
    Billets dans le blog
    2
    Par défaut
    Re,

    Je viens de faire un test sur 2 fichiers bidons et ça fonctionne chez moi....

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    a = Val(Application.Max(Workbooks("Classeur2.xls").Worksheets("Feuil1").Range("C:C")))
    MsgBox a

  5. #5
    Membre éclairé Avatar de m@tix
    Profil pro
    Inscrit en
    Octobre 2006
    Messages
    304
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Octobre 2006
    Messages : 304
    Par défaut
    En testant ça tes dernières lignes de code dans le mien, j'obtiens l'erreur suivante:

    L'indice n'appartient pas à la sélection.

    Correction, j'avais fait une erreur de syntaxe. On me renvoit toujours 0..

  6. #6
    Membre Expert
    Avatar de tototiti2008
    Homme Profil pro
    Formateur/développeur
    Inscrit en
    Octobre 2008
    Messages
    1 207
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Moselle (Lorraine)

    Informations professionnelles :
    Activité : Formateur/développeur

    Informations forums :
    Inscription : Octobre 2008
    Messages : 1 207
    Billets dans le blog
    2
    Par défaut
    Re,

    ça fonctionne chez moi (mais il faut adapter le nom du fichier (et extension), le nom de la feuillle et de la colonne...), pas plus d'idée

    Edit : Si ça renvoie 0, c'est peut-être que tes nombres de ta colonne ne sont pas considérés comme des nombres mais comme du texte ?

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

Discussions similaires

  1. Obtenir la taille max d'une colonne PL/SQL
    Par Syrmonsieur dans le forum PL/SQL
    Réponses: 5
    Dernier message: 08/06/2008, 17h41
  2. récupérer la val max d'une colonne
    Par nb_fr31 dans le forum Macros et VBA Excel
    Réponses: 6
    Dernier message: 19/10/2007, 17h26
  3. valeur max dans une colonne
    Par oscar.cesar dans le forum Macros et VBA Excel
    Réponses: 8
    Dernier message: 12/08/2007, 22h09
  4. max d'une colonne d'une matrice
    Par toto2022 dans le forum VB 6 et antérieur
    Réponses: 9
    Dernier message: 24/01/2007, 22h42
  5. Réponses: 2
    Dernier message: 01/12/2006, 10h09

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