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 :

problème de recherche


Sujet :

Macros et VBA Excel

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Membre éclairé
    Inscrit en
    Février 2008
    Messages
    271
    Détails du profil
    Informations forums :
    Inscription : Février 2008
    Messages : 271
    Par défaut
    bjr à tous
    dans la feuil1 j'ai un tableau
    colonneA...............colonneB
    ....XX....................DD14
    ....DE....................SSEF
    ....RT....................GTF
    ....XX....................fff
    ....XX....................SS
    ....
    dans la feuil2 j'ai un autre tableau
    colonneA...............colonneB
    ....XX....................DD14
    ....RT....................GTF
    ....XX....................DD14
    ....XX....................SS
    ....DE....................SSEF
    ....AA....................QZA
    ....DE....................SSEF
    ....
    j'ai bien développé plusieurs macros pour but :
    -cherche combient de fois chaque couple (colonneA;colonneB) de feuil1 apparaissent dans feuil2
    mais sans resultat.
    pouvez vous m'aider
    merci.

    j'ai bien essayé cette macro mais ça ne donne rien
    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
    Sub stock()
    Dim x As Variant
    x = 0
    With Sheets("feuil2").Range("b2:b" & Sheets("feuil2").Range("b56653").End(xlUp).Row)
        Set c = .Find(Sheets("feuil1").Range("a2").Value, lookat:=xlWhole)
        If Not c Is Nothing Then
            FirstAddress = c.Address
            Sheets("feuil1").Activate
            Do
            If Sheets("feuil1").Range("b2").Value = Sheets("feuil2").Range("c" & FirstAddress.Row).Value Then
            x = x + 1
            End If
            Exit Do
        Set c = .FindNext(c)
        Loop While Not c Is Nothing And Sheets("feuil1").Range("b2").Value <> Sheets("feuil2").Range("c" & FirstAddress.Row).Value
        Sheets("feuil1").Range("c2").Value = x
        End If
    End With
    End Sub
    pouvez vous me le corriger car je pense que je suis sur le bon chemin.
    merci

  2. #2
    Membre confirmé
    Profil pro
    Inscrit en
    Octobre 2007
    Messages
    72
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Octobre 2007
    Messages : 72
    Par défaut
    J'ai une solution sans recourir à VBA avec l'utilisation de deux fonctions : NBSI et CONCATENER
    Fichiers attachés Fichiers attachés

  3. #3
    Membre éclairé
    Inscrit en
    Février 2008
    Messages
    271
    Détails du profil
    Informations forums :
    Inscription : Février 2008
    Messages : 271
    Par défaut
    merci etoileetoile
    sans VBA il faut que j'ajoute des colonnes chose qui je ne veux pas
    merci.

  4. #4
    Membre confirmé
    Profil pro
    Inscrit en
    Octobre 2007
    Messages
    72
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Octobre 2007
    Messages : 72
    Par défaut
    Citation Envoyé par abouhossam Voir le message
    merci etoileetoile
    sans VBA il faut que j'ajoute des colonnes chose qui je ne veux pas
    merci.
    Il suffit de masque les colonnes

  5. #5
    Membre éclairé
    Inscrit en
    Février 2008
    Messages
    271
    Détails du profil
    Informations forums :
    Inscription : Février 2008
    Messages : 271
    Par défaut
    ce n'est pas assy simple que tu coix.
    car la solution de ce prob me permet d'etuliser le code avec des conditions pour autres chose
    merci.

  6. #6
    Membre chevronné
    Profil pro
    Inscrit en
    Février 2007
    Messages
    491
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Février 2007
    Messages : 491
    Par défaut
    bonjour,

    Tu pourrais utiliser 2 variants de type tableau, le 1ER avec les données de la feuille 1 et le 2EME avec la feuille 2
    Puis boucler sur tous les élements du variant contenant le moins d ' éléments.

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

Discussions similaires

  1. Problème de rechercher au lieu d'ouvrir
    Par socrate1975 dans le forum Windows XP
    Réponses: 3
    Dernier message: 26/01/2006, 15h21
  2. problème de recherche dans une base de donnée mysql
    Par Xini28 dans le forum SQL Procédural
    Réponses: 3
    Dernier message: 24/10/2005, 18h00
  3. Problème de recherche
    Par ptidoudou02 dans le forum MS SQL Server
    Réponses: 3
    Dernier message: 05/10/2005, 16h49
  4. problème de recherche dans une base de données
    Par bouzid_mehdi dans le forum Bases de données
    Réponses: 2
    Dernier message: 19/07/2005, 06h47
  5. Problème de recherche dans une BD
    Par ledevelopeur dans le forum Bases de données
    Réponses: 5
    Dernier message: 28/04/2004, 09h49

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