IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

Macros et VBA Excel Discussion :

Code vba de classement [XL-2010]


Sujet :

Macros et VBA Excel

  1. #1
    Membre confirmé
    Homme Profil pro
    Enseignant
    Inscrit en
    Juin 2013
    Messages
    122
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : Maroc

    Informations professionnelles :
    Activité : Enseignant

    Informations forums :
    Inscription : Juin 2013
    Messages : 122
    Par défaut 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.
    Fichiers attachés Fichiers attachés

  2. #2
    Membre Expert
    Inscrit en
    Décembre 2002
    Messages
    993
    Détails du profil
    Informations forums :
    Inscription : Décembre 2002
    Messages : 993
    Par défaut
    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 : Sélectionner tout - Visualiser dans une fenêtre à part
    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

  3. #3
    Membre confirmé
    Homme Profil pro
    Enseignant
    Inscrit en
    Juin 2013
    Messages
    122
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : Maroc

    Informations professionnelles :
    Activité : Enseignant

    Informations forums :
    Inscription : Juin 2013
    Messages : 122
    Par défaut
    SALUT
    MERCI POUR LA REPONSE. LA FORMULE EXCEL NE RESOUT PAS LE PORBLEME MAIS LE CODE VBA LE RESOUT.MERCI ENCORE UNE FOIS.

+ Répondre à la discussion
Cette discussion est résolue.

Discussions similaires

  1. afficher un graphique dans word à partir de mon code vba
    Par guysocode dans le forum VBA Word
    Réponses: 2
    Dernier message: 07/11/2005, 14h15
  2. Réponses: 2
    Dernier message: 27/10/2005, 15h51
  3. Réponses: 4
    Dernier message: 13/10/2005, 14h44
  4. Réponses: 3
    Dernier message: 06/09/2005, 10h27
  5. Comment creer une procédure stockée à partir d'un code VBA?
    Par Alcor020980 dans le forum Connexion aux bases de données
    Réponses: 4
    Dernier message: 24/05/2005, 19h55

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo