Code vba de classement

Version imprimable

16/04/2025, 11h28
atlaslion

1 pièce(s) jointe(s)

Code vba de classement

Salut tout le monde
Je suis débutant en ce qui concerne le vba. Je cherche un code vba qui me permet ce qui suit:
Le bouton vba me permet de trier et filtrer les données d’un tableau Excel pour n’afficher que le classement dans la cellule K2 la personne dont le prénom et le nom sont saisis respectivement dans les cellules I2 et J2.
Aidez-moi svp.et merci.

Salut, voici 2 suggestions, à toi de voir ce qui te convient le mieux:
Une formule à mettre en K2: =SIERREUR(INDEX(A:A; EQUIV(1; (B:B=I2)*(C:C=J2); 0)); "Non trouvé")
Ou alors une macro que tu peux assigner à ton bouton:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Sub TrouverValeur()
    Dim ws As Worksheet
    Dim dernierLigne As Long
    Dim i As Long
    Dim prenomCherche As String
    Dim nomCherche As String
 
    Set ws = ThisWorkbook.Sheets("CLASSEMENT")
    dernierLigne = ws.Cells(ws.Rows.Count, 1).End(xlUp).Row
 
    prenomCherche = ws.Range("I2").Value
    nomCherche = ws.Range("J2").Value
 
    For i = 2 To dernierLigne
        If ws.Cells(i, 2).Value = prenomCherche And ws.Cells(i, 3).Value = nomCherche Then
            ws.Range("K2").Value = ws.Cells(i, 1).Value
            Exit Sub
        End If
    Next i
 
    ws.Range("K2").Value = "Non trouvé"
End Sub

16/04/2025, 12h10
atlaslion

SALUT
MERCI POUR LA REPONSE. LA FORMULE EXCEL NE RESOUT PAS LE PORBLEME MAIS LE CODE VBA LE RESOUT.MERCI ENCORE UNE FOIS.