XL: Renvoi de l'adresse de la cellule contenant la valeur maximale ou minimale

Traductions disponibles Traductions disponibles
Numéro d'article: 139574 - Voir les produits auxquels s'applique cet article
Agrandir tout | Réduire tout

Sommaire

Résumé

Les exemples dans la section « Informations supplémentaires » de cet article demonstratetwo manières vous pouvez trouver l'adresse de la cellule qui contient la plus grande valeur d'orsmallest dans une plage de cellules. Si vous utilisez une seule ligne ou données de columnof, vous pouvez utiliser une formule de feuille de calcul. Si vous utilisez plusieurs orcolumns lignes de données adjacentes, vous devrez créer la fonction personnalisée de Visual Basic pour applications. Pour obtenir des exemples de ces deux méthodes, consultez la section « Informations supplémentaires » de cet article.

Plus d'informations

À l'aide de formules

Vous pouvez retourner l'adresse de la cellule avec le plus grand ou plus petit valuein une colonne ou une ligne à l'aide de la functionsalong CELL(), OFFSET() et MATCH() avec le MAX () ou la fonction MIN().

S'il existe plusieurs occurrences d'une valeur maximale ou minimale, formules de réticules du centre renvoie l'adresse de la cellule de la première occurrence de la valeur. S'il existe une seule occurrence de la valeur, l'adresse de la cellule contenant cette valeur sera retournée.

Pour renvoyer l'adresse d'une cellule dans une colonne (ce cellules d'exemple, colonne A, a1: a10), utilisez la formule appropriée dans le tableau suivant.
   For this
   address      Use this formula
   ------------------------------------------------------------------------
   Cell with
   largest
   value        =CELL("address",OFFSET(A1,MATCH(MAX(A1:A10),A1:A10,0)-1,0))

   Cell with
   smallest
   value        =CELL("address",OFFSET(A1,MATCH(MIN(A1:A10),A1:A10,0)-1,0))
				
Pour renvoyer l'adresse d'une cellule dans une ligne (dans ce cellsA1:J1 exemple, colonne A), utilisez la formule appropriée dans le tableau suivant.
   For this
   address      Use this formula
   ------------------------------------------------------------------------
   Cell with
   largest
   value        =CELL("address",OFFSET(A1,0,MATCH(MAX(A1:J1),A1:J1,0)-1))

   Cell with
   smallest
   value        =CELL("address",OFFSET(A1,0,MATCH(MIN(A1:J1),A1:J1,0)-1))
				

À l'aide de fonctions personnalisées

Microsoft fournit des exemples de programmation à titre d'illustration uniquement, sans garantie expresse ou implicite, y compris, de manière non limitative, les garanties implicites de qualité marchande et/ou d'adéquation à un usage particulier. Cet article suppose que vous êtes familiarisés avec le langage de programmation présenté et les outils utilisés pour créer et déboguer des procédures. Les professionnels du support technique Microsoft peuvent vous expliquer la fonctionnalité d'une procédure particulière, mais ils ne modifieront pas ces exemples pour fournir des fonctionnalités supplémentaires ou créer des procédures pour répondre à vos besoins spécifiques.
Si l'expérience en programmation est limitée, vous souhaiterez peut-être contacter un partenaire certifié Microsoft ou les Services de conseil Microsoft. Pour plus d'informations, visitez les sites Web de Microsoft :

Partenaires certifiés Microsoft- https://Partner.Microsoft.com/global/30000104

Services de Conseil de Microsoft- http://support.Microsoft.com/gp/advisoryservice

Pour plus d'informations sur les options de support qui sont disponibles et savoir comment contacter Microsoft, visitez le site Web de Microsoft à l'adresse suivante :http://support.Microsoft.com/default.aspx?scid=fh ;FR-FR;CNTACTMS Pour renvoyer l'adresse de la cellule de la plus grande valeur dans un attentivement ce plage adjacente supérieure à une seule colonne ou une ligne, vous pouvez créer une personnalisée Microsoft Visual Basic pour fonction d'Applications.
     Function MaxAddress(The_Range)

      ' Sets variable equal to maximum value in the input range.
      MaxNum = Application.Max(The_Range)
      ' Loop to check each cell in the input range to see if equals the
      ' MaxNum variable.
      For Each cell In The_Range
         If cell = MaxNum Then
            ' If the cell value equals the MaxNum variable it
            ' returns the address to the function and exits the loop.
            MaxAddress = cell.Address
            Exit For
         End If
      Next cell

   End Function
				
Pour trouver l'adresse de la cellule de la plus petite valeur dans une plage adjacente, remplacez la fonction Min() pour la fonction Max() comme dans la followingexample :
   Function MinAddress(The_Range)

      ' Sets variable equal to minimum value in the input range.
      MinNum = Application.Min(The_Range)
      ' Loop to check each cell in the input range to see if equals the
      ' min variable.
      For Each cell In The_Range
         If cell = MinNum Then
            ' If the cell value equals the max variable it
            ' returns the address to the function and exits the loop
            MinAddress = cell.Address
            Exit For
         End If
      Next cell

   End Function
				

Références

Pour plus d'informations sur l'obtention d'aide pour applications Visual Basic, cliquez sur les numéros ci-dessous pour afficher les articles correspondants dans la Base de connaissances Microsoft :
163435 VBA : Ressources de programmation pour Visual Basic pour Applications
274705 OFF2001 : Ressources de programmation pour Visual Basic pour Applications

Propriétés

Numéro d'article: 139574 - Dernière mise à jour: samedi 8 février 2014 - Version: 4.0
Les informations contenues dans cet article s'appliquent au(x) produit(s) suivant(s):
  • Microsoft Excel 97 Standard
  • Microsoft Excel 95 Standard
  • Microsoft Excel 5.0 Standard
  • Microsoft Excel 2001 pour Mac
  • Microsoft Excel 98 pour Macintosh
  • Microsoft Excel 5.0 pour Macintosh
Mots-clés : 
kbhowto kbprogramming kbmt KB139574 KbMtfr
Traduction automatique
IMPORTANT : Cet article est issu d'une traduction automatique réalisée par un logiciel Microsoft et non par un traducteur professionnel. Cette traduction automatique a pu aussi être révisée par la communauté Microsoft grâce à la technologie Community Translation Framework (CTF). Pour en savoir plus sur cette technologie, veuillez consulter la page http://support.microsoft.com/gp/machine-translation-corrections/fr. Microsoft vous propose en effet des articles traduits par des professionnels, des articles issus de traductions automatiques et des articles issus de traductions automatiques révisées par la communauté Microsoft, de manière à ce que vous ayez accès à tous les articles de notre Base de connaissances dans votre langue. Il est important de noter que les articles issus de la traduction automatique, y compris ceux révisés par la communauté Microsoft, peuvent contenir des erreurs de vocabulaire, de syntaxe ou de grammaire. Microsoft ne pourra être tenu responsable des imprécisions, erreurs, ainsi que de tout dommage résultant d?une traduction incorrecte du contenu ou de son utilisation par les clients.
La version anglaise de cet article est la suivante: 139574
L'INFORMATION CONTENUE DANS CE DOCUMENT EST FOURNIE PAR MICROSOFT SANS GARANTIE D'AUCUNE SORTE, EXPLICITE OU IMPLICITE. L'UTILISATEUR ASSUME LE RISQUE DE L'UTILISATION DU CONTENU DE CE DOCUMENT. CE DOCUMENT NE PEUT ETRE REVENDU OU CEDE EN ECHANGE D'UN QUELCONQUE PROFIT.
Exclusion de responsabilité concernant les contenus obsolètes dans la Base de connaissances
Cet article concerne des produits pour lesquels Microsoft n'offre plus de support. Il est par conséquent fourni « en l'état » et ne sera plus mis à jour.

Envoyer des commentaires

 

Contact us for more help

Contact us for more help
Connect with Answer Desk for expert help.
Get more support from smallbusiness.support.microsoft.com