![]() |
|
Forum
|
|
|
#1 (permalink) |
|
XLDnaute Accro
|
Bonsoir à tou le forum,
Je sollicite un petit coup de main pour une formule afin d'afficher l'échelon le plus haut obtenu sur 3 échelons disponibles. Les explications sont dans le fichier joint. Merci d'avance et bonne soirée. @+. [file name=Classeur1_20060427205107.zip size=4458]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Classeur1_20060427205107.zip[/file]
__________________
Vous aussi, venez rejoindre les supporters XLD : http://www.excel-downloads.com/forum...orter-xld.html @+ sur le forum, Christophe. Connaissez-vous la LiberKey ? Essayer c'est l'adopter. http://www.liberkey.com/ et comment installer Excel sous Linux Ubuntu : suivez le guide http://www.excel-downloads.com/forum...ux-ubuntu.html |
|
|
|
| ANNONCES | |||
|
|
|
|
#2 (permalink) |
|
XLDnaute Barbatruc
Date d'inscription: février 2005
Localisation: Saint-Brieuc
Version Excel : Excel XP (PC)
Messages: 5 862
|
Bonjour,
En E2 : =MAX(H5:J5) En E1 : =INDEX(H4:J4;EQUIV(E2;H5:J5;0)) Pour jouer : =INDEX(H4:J4;EQUIV(MAX(H5:J5);H5:J5;0))&' le '&TEXTE(MAX(H5:J5);'j mmmm aa') Mais je ne comprends pas trop la disposition de ton tableau |
|
|
|
|
|
#3 (permalink) |
|
XLDnaute Barbatruc
|
Salut Criscris11,
Comme tu demandes une formule et que j'ai un esprit de contradcition, je te file une solution par macro évenementielle a placer dans le module de la feuille concernée (qui se declenche dans le cas present des que tu modifies une valeur presentent dans la plage H5:J5). Je précise que je me suis basé ici sur le fait que tes échelons et la date etait toujours presentes dans la plage H4:J5 Code:
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range('H5:J5')) Is Nothing Then
If Cells(5, 10).Value ‹› '' Then
Cells(1, 5).Value = Cells(5, 10).Value
Cells(2, 5).Value = Cells(5, 10).Value
ElseIf Cells(5, 9).Value ‹› '' Then
Cells(1, 5).Value = Cells(5, 9).Value
Cells(2, 5).Value = Cells(5, 9).Value
ElseIf Cells(5, 8).Value ‹› '' Then
Cells(1, 5).Value = Cells(5, 8).Value
Cells(2, 5).Value = Cells(5, 8).Value
Else
Cells(1, 5).Value = ''
Cells(2, 5).Value = ''
End If
End If
End Sub
@+ PS : Remplace les ‹› par leurs homologues du clavier Edition : Salut Monique, le temps d'ecrire la macro et tu as ete plus rapide :sick: Message édité par: porcinet82, à: 27/04/2006 21:19
__________________
« Connaître son ignorance est la meilleure part de la connaissance. » ![]() |
|
|
|
|
|
#4 (permalink) |
|
XLDnaute Accro
|
Bonsoir Monique, Porcinet82,
Merci à tous les deux pour vos réponses aussi rapide. Pour ce qui est du tableau c'est juste un petit tableau récapitulatif qui peut être caché le cas échéant car il se remplit par 3 recherchev à partir d'un autre onglet et comme a bien supposé dans le fichier original le tableau se trouve toujours en H4:J5. Voilà pour les explications et encore merci à tous les deux. Bonne soirée. @+.
__________________
Vous aussi, venez rejoindre les supporters XLD : http://www.excel-downloads.com/forum...orter-xld.html @+ sur le forum, Christophe. Connaissez-vous la LiberKey ? Essayer c'est l'adopter. http://www.liberkey.com/ et comment installer Excel sous Linux Ubuntu : suivez le guide http://www.excel-downloads.com/forum...ux-ubuntu.html |
|
|
|
| ANNONCES | |
![]() |
| Liens sociaux |
| Outils de la discussion | |
|
|