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 :

trouver un minimum


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
    Décembre 2007
    Messages
    13
    Détails du profil
    Informations forums :
    Inscription : Décembre 2007
    Messages : 13
    Par défaut trouver un minimum
    bonjour à tous,

    je souhaiterais sélectionner la valeur minimum d une ligne sachant que certaine colonne ne sont pas a prendre en compte
    connaitriez vous des codes pour:

    -rendre des colonnes non selectionable
    - sélectionner le minimum dans une ligne

    en vous remerciant

    Pierre

  2. #2
    Membre Expert
    Profil pro
    Inscrit en
    Novembre 2006
    Messages
    1 567
    Détails du profil
    Informations personnelles :
    Âge : 62
    Localisation : France

    Informations forums :
    Inscription : Novembre 2006
    Messages : 1 567
    Par défaut
    tu n'as pas forcement besoin d'un code, il te suffit de definir ta ligne dans ta formule.
    par exemple, dans cette formule placée en colonne E
    je prend le minimum des valeurs placées dans les colonnes A a B et en D
    ou encore
    =MIN(A1:C1;E1:F1;H1:I1)
    il te suffit de faire ta selection en apuyant sur controle
    sinon par le code, il te faut utiliser union pour réunir plusieur ranges puis utiliser worksheetfunction.min(***) pour obtenir ce que tu souhaite
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    Sub Macro1()
    minimum = WorksheetFunction.Min(Union(Cells(1, 1), Cells(1, 3)))
    MsgBox minimum
    End Sub
    cette deuxieme méthode a l'avantage de pouvoir prendre une variable en compte
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
     
    Sub Macro1()
    for i = 1 to 3
    minimum = WorksheetFunction.Min(Union(Cells(i, 1), Cells(i, 3)))
    MsgBox minimum
    next i
    End Sub

  3. #3
    Membre averti
    Inscrit en
    Décembre 2007
    Messages
    13
    Détails du profil
    Informations forums :
    Inscription : Décembre 2007
    Messages : 13
    Par défaut
    merci pour ton aide c 'est super sympa
    c'est exactement ca

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

Discussions similaires

  1. Trouver le minimum ou le maximum sur une courbe
    Par neoscanx dans le forum MATLAB
    Réponses: 8
    Dernier message: 22/05/2007, 12h07
  2. Trouver le minimum sans le 0
    Par holdup37 dans le forum Prolog
    Réponses: 2
    Dernier message: 18/05/2007, 12h01
  3. Optimiser une fonction (trouver le minimum)
    Par Noel Gallagher dans le forum C
    Réponses: 2
    Dernier message: 27/11/2006, 06h46
  4. [MySQL5.1] Trouver le minimum
    Par barbarello dans le forum Langage SQL
    Réponses: 1
    Dernier message: 17/09/2006, 13h32
  5. trouver le minimum d'une liste
    Par speed034 dans le forum MS SQL Server
    Réponses: 4
    Dernier message: 08/12/2004, 12h29

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