Problème de tri sur 2 colonnes

Bonjour,

Je galère depuis 1 semaine.

Ci-joint le fichier.

PTS Totaux ==> =SOMME(G3+K3+O3)

CLT Final ==> =RANG(P3;P$3:P$10)

Merci beaucoup

Bien cordialement

bonjour vodoraix,

mieux comme ceci ?

Bonjour Bart :)

Mieux comme quoi ?

Merci

à+

re, excusez-moi pour le fichier

Bonjour, vodoraix , Bart

Une autre façon de voir les choses

Super, super, merci beaucoup à vous 2 !!!!!!!!!!!!!!!

J'essaye de tt comprendre... Je pense que j'en ai pour un moment mais au moins tt fonctionne.

Merci, merci, merci :-))))))))))))))))))))))))))))))))))))))))))))))))))))

re, salut Joco7915 ,

il y avait une chose bizarre dans vos formules, comme argument dans cette fonction vous utilisez "'Classement Haltérophilie Hommes'!E3" au lieu de "E3", les 2 sont correcte, mais apparament, après le triage, la "longue" formule réfère vers une fausse cellule E. J'était aussi surpris de cela, d'une manière ou l'autre, cette formule est mauvaisement trié à cause du prefix "Classement Haltérophilie Hommes'!" (nom de la feuille). Bizarre et surprenant.

=RECHERCHEV('Classement Haltérophilie Hommes'!E3;'Concordance Classmt & Points'!A$2:B$32;2;FAUX)

Ah très bien merci car si j'ai écrit cette formule comme ça, c'est parce que sur une aide microsoft c'était indiqué ainsi ;)

Merci encore :-)))))))))))))))))))))

Re bonjour

Si tout va bien tu passes le sujet en résolu

Cordialement

Une toute dernière chose, si je peux abuser ==> Je n'arrive pas à forcer la mise en majuscule de la colonne "Nom"

Y'a une solution ?

Merci :)

re,

oubien, on sait le faire avec une macro (mais c'est un fichier xlsx qui contient pourtant un bouton ???) oubien une colonne supplémentaire avec une formule.

Bjr et merci bcp Bart pour ton aide :-)))))))))))))))))))

Donc, j'ai enregistré ce fichier en macro ! ;)

Comment faire pour mettre la première lettre d'un prénom en majuscule de la plage (C3:C42) en code VBA ?

MErci

à+

Bonjour Sébastien

un exemple

re

avec votre macro adaptée

Private Sub Worksheet_Change(ByVal Target As Range)
     Dim Plage As Range
     Dim Cel   As Range

     Set Plage = Range("B3:C42")
     If Intersect(Plage, Target) Is Nothing Then Exit Sub     'rien modifier dans "plage" = quitter

     Application.ScreenUpdating = False
     Application.EnableEvents = False
     For Each Cel In Plage
          If Len(Cel.Value) > 0 Then         'cellule n'est pas vide
               If Cel.Column = 2 Then        'colonne B
                    Cel.Value = UCase(Cel.Value)     'tout en majuscules
               Else
                    Cel.Value = WorksheetFunction.Proper(LCase(Cel.Value))     'seulement la première
               End If
          End If
     Next
     Application.EnableEvents = True
End Sub

EDIT : salut Joco7915, solution presque pareil

Merci à vous 2,