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 :

Fonction Find avec deux critères


Sujet :

Macros et VBA Excel

  1. #1
    Membre régulier
    Homme Profil pro
    Technicien maintenance
    Inscrit en
    avril 2019
    Messages
    107
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 34
    Localisation : France, Seine Saint Denis (Île de France)

    Informations professionnelles :
    Activité : Technicien maintenance
    Secteur : Industrie

    Informations forums :
    Inscription : avril 2019
    Messages : 107
    Points : 70
    Points
    70
    Par défaut Fonction Find avec deux critères
    Bonjour,

    J'utilise Excel 2016 et je rencontre actuellement un problème dans mon code.

    J'ai des valeurs (Val) dans la colonne B de la feuille MENU, et ces valeurs existent aussi dans la colonne F de la feuille DATA, où chaque Valeur est représentée par plusieurs lignes.
    Ce qui m'intéresse dans cette feuille DATA c'est l'existence ou pas de la valeur "Validé" dans la colonne J de DATA.

    En gros, si Val a plusieurs lignes et sur la colonne J on que "Validé" apparait au moins une seule fois alors, dans la colonne C de la feuille MENU je dois voir paraitre "Validé", si non (aucun validé trouvé), afficher "Non validé" dans la colonne C feuille MENU.
    Voici mon bout de code qui ne fonctionne pas:

    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
    For L = 3 To MENU.Cells(Rows.Count, 2).End(xlUp).Row
     
                Set C = DATA.Range("F:F").Find(MENU.Cells(L, 2), LookIn:=xlValues, lookat:=xlWhole)
                If Not C Is Nothing Then
                Set D = DATA.Range("J" & C.Row).Find("Validé", LookIn:=xlValues, lookat:=xlWhole)
                Df = D.Address
                If Not D Is Nothing Then
                MENU.Cells(L, 3) = "Validé"
                Else
                Do
                Set D = DATA.Range("J" & C.Row).FindNext(D)
                Loop Until D.Address = Df
                If D Is Nothing Then
                MENU.Cells(L, 3) = "Non validé"
     
     
                End If
     
                End If
                End If
     
       Next L
    J'espère être précis dans ma demande.
    Merci d'avance pour votre assistance.

    Cdt;

  2. #2
    Membre chevronné Avatar de mfoxy
    Homme Profil pro
    Automation VBA
    Inscrit en
    février 2018
    Messages
    744
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 33
    Localisation : Belgique

    Informations professionnelles :
    Activité : Automation VBA
    Secteur : High Tech - Opérateur de télécommunications

    Informations forums :
    Inscription : février 2018
    Messages : 744
    Points : 1 925
    Points
    1 925
    Par défaut
    Hello,

    Perso, je n'utiliserais pas de code pour faire cela, un 'simple' CountIfs ferait l'affaire.

    Bat,
    Michaël

    Si mon aide/avis vous a été profitable , n'hésitez pas à cliquer sur , ça fait toujours plaisir...
    _________________________________________________________________________________________________________________

    "Tout le monde est un génie. Mais si on juge un poisson sur sa capacité à grimper à un arbre, il passera sa vie à croire qu'il est stupide..."
    Albert Einstein

  3. #3
    Membre régulier
    Homme Profil pro
    Technicien maintenance
    Inscrit en
    avril 2019
    Messages
    107
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 34
    Localisation : France, Seine Saint Denis (Île de France)

    Informations professionnelles :
    Activité : Technicien maintenance
    Secteur : Industrie

    Informations forums :
    Inscription : avril 2019
    Messages : 107
    Points : 70
    Points
    70
    Par défaut
    T'as raison ! c'est bizarre je n'ai pas pensé à ça :/
    Merci beaucoup

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

Discussions similaires

  1. Recherche valeur avec deux critères
    Par NATOU2 dans le forum Excel
    Réponses: 1
    Dernier message: 11/11/2008, 12h49
  2. Rechdom avec deux critéres
    Par isabelle b dans le forum Requêtes et SQL.
    Réponses: 2
    Dernier message: 29/05/2008, 17h00
  3. Rechdom dans un formulaire avec deux critères
    Par isabelle b dans le forum IHM
    Réponses: 11
    Dernier message: 13/05/2008, 01h28
  4. Fonction Find avec doublons
    Par Jeyjey1 dans le forum Macros et VBA Excel
    Réponses: 6
    Dernier message: 28/02/2008, 09h30
  5. probléme filtre avec deux critéres?
    Par dj_techno dans le forum Bases de données
    Réponses: 9
    Dernier message: 31/05/2007, 10h57

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