Précédent   Forum des professionnels en informatique > Logiciels > Microsoft Office > Excel
Excel Forum d'entraide sur Excel. Vos questions sur les fonctions, formules, manipulations, et tout sujet qui ne trouve pas sa place dans un sous-forum.
Partagez cette discussion sur d'autres réseaux sociaux : Viadeo Twitter Google Facebook Digg Delicious MySpace Yahoo
Réponse Proposer ce sujet en actualité
 
Outils de la discussion
Publicité
'
Vieux 20/12/2011, 16h58   #1
Invité de passage
 
Homme
Inscription : août 2011
Messages : 6
Détails du profil
Informations personnelles :
Sexe : Homme

Informations forums :
Inscription : août 2011
Messages : 6
Points : 1
Points : 1
Par défaut Maximum de compartiments de tailles variables

Bonjour à tous,
Voici mon problème : j'ai une feuille excel séparée en environ 100 compartiments par des bandes jaunes horizontales (100 lignes jaunes délimitants des données numériques). Je souhaite trouver pour chaque compartiment, le maximum de la colonne B. Le hic, c'est que les 100 compartiments n'ont pas le même nombre de lignes. Je ne peux donc pas écrire dans chaque compartiment qqch comme MAX(B1:B25) car tous mes compratiments n'ont pas 25 lignes.
Existe-t-il un moyen pratique pour trouver ce maximum, sans être obligé de sélectionner avec la souris la plage de donnée dont je veux trouver le maximum ? (Cela m'éviterai de faire la manip 100 fois de suite).
Une formule que je pourrais utiliser 100 fois de suite serait l'idéal...
Merci par avance pour votre aide.
Grichka146 est déconnecté   Envoyer un message privé Réponse avec citation 00
Vieux 20/12/2011, 18h22   #2
Expert Confirmé Sénior
 
Homme Daniel
aucune
Inscription : septembre 2011
Messages : 2 004
Détails du profil
Informations personnelles :
Nom : Homme Daniel
Localisation : France, Seine et Marne (Île de France)

Informations professionnelles :
Activité : aucune

Informations forums :
Inscription : septembre 2011
Messages : 2 004
Points : 4 037
Points : 4 037
Bonjour,

Tu peux récupérer les différents maximums avec la macro suivante :

Code :
1
2
3
4
5
6
7
8
9
10
Sub test()
Dim a As Range, Plage As Range
ActiveSheet.Range([B1], Cells(Rows.Count, 2).End(xlUp)).AutoFilter Field:=2, _
    Operator:=xlFilterNoFill
Set Plage = Range([B1], Cells(Rows.Count, 2).End(xlUp)).Offset(1)
Set Plage = Plage.Resize(Plage.Rows.Count - 1).SpecialCells(xlCellTypeVisible)
For Each a In Plage.Areas
    MsgBox Application.Max(a)
Next a
End Sub
__________________
Cordialement.

Daniel

Citation:
La plus perdue de toutes les journées est celle où l'on n'a pas ri.
Chamfort
Daniel.C est déconnecté   Envoyer un message privé Réponse avec citation 00
Réponse Proposer ce sujet en actualité Cette discussion est résolue.
Outils de la discussion



Fuseau horaire GMT +2. Il est actuellement 20h38.


 
 
 
 
Partenaires

Hébergement Web