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 :

Recherche mot dans une liste si il y est ok sinon le rajouter


Sujet :

Macros et VBA Excel

  1. #1
    Membre à l'essai
    Recherche mot dans une liste si il y est ok sinon le rajouter
    Bonjour,

    J'ai une liste de nom en feuil 1 de mon excel

    Ex :

    A
    B
    C
    D
    E

    Dans ma feuille deux j'ai

    B
    A
    D
    C

    j'aimerais écrire une macro qui me permettrait de rechercher la correspondance avec la feuille 1 si le mot y est pas d'action sinon je voudrais qu'il rajoute le E en la dernière ligne

    ce qui donnerait

    B
    A
    D
    C
    E

    Il me semble que cela est possible mais je n'arrive pas à modéliser la macro.... est ce que quelqu'un a une idée ? Merci d'avance !!!

  2. #2
    Responsable
    Office & Excel

    Salut.

    C'est juste une modélisation, sur base des deux plages illustrées ci-dessous. On parcourt la source, on cherche chaque valeur de la source dans Target et si pas trouvée, on l'ajoute à la suite. Il t'appartient d'adapter Source et Target à ta situation





    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
    Sub AddValues()
      Dim Source As Range
      Dim Target As Range
      Dim Result
      Dim i As Long
      Dim j As Long: j = 1
     
      Set Source = Range("a1:a7")
      Set Target = Range("c1:c4")
      For i = 1 To Source.Count
        Result = Application.Match(Target(i), Source, 0)
        If IsError(Result) Then
          Target(Target.Count + j).Value = Source(i).Value
          j = j + 1
        End If
      Next
    End Sub
    "Plus les hommes seront éclairés, plus ils seront libres" (Voltaire)
    ---------------
    Mes remarques et critiques sont purement techniques. Ne les prenez jamais pour des attaques personnelles...
    Une fois pour toutes, je donne mon avis. Je ne vais pas le répéter à chaque message...
    Si je propose une solution générique sur votre solution spécifique, c'est parce que, fainéant de nature, je privilégie le réutilisable...
    Le VBA ne palliera jamais une mauvaise conception de classeur ou un manque de connaissances des outils natifs d'Excel...
    Ce ne sont pas des bonnes pratiques parce que ce sont les miennes, ce sont les miennes parce que ce sont des bonnes pratiques
    VBA pour Excel? Pensez D'ABORD en EXCEL avant de penser en VBA...
    ---------------

  3. #3
    Membre à l'essai
    Après test cela fonctionne très bien si la source est tout le temps dans le bon ordre mais que faire si des données s'insère entre les données de base.

    Ex :

    SOURCE :
    A
    B
    C
    E
    D
    F
    G

    TARGET :

    A
    B
    C
    D


    Ce la me sort :

    A
    B
    C
    D
    D
    F
    G

    Alors qu'il faudrait :

    A
    B
    C
    D
    E
    F
    G

  4. #4
    Responsable
    Office & Excel

    Désolé, il y avait une erreur dans mon code, et la façon de rechercher ne la mettait pas en évidence. Au temps pour moi. C'est pratiquement le même code, mais la ligne Result = Application.Match(Target(i), Source, 0) a été remplacée par Result = Application.Match(Source(i), Target, 0)...

    Voici le code corrigé
    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
    Sub AddValues()
      Dim Source As Range
      Dim Target As Range
      Dim Result
      Dim i As Long
      Dim j As Long: j = 1
     
      Set Source = Range("a1:a7")
      Set Target = Range("c1:c4")
      For i = 1 To Source.Count
        Result = Application.Match(Source(i), Target, 0)
        If IsError(Result) Then
          Target(Target.Count + j).Value = Source(i).Value
          j = j + 1
        End If
      Next
    End Sub
    "Plus les hommes seront éclairés, plus ils seront libres" (Voltaire)
    ---------------
    Mes remarques et critiques sont purement techniques. Ne les prenez jamais pour des attaques personnelles...
    Une fois pour toutes, je donne mon avis. Je ne vais pas le répéter à chaque message...
    Si je propose une solution générique sur votre solution spécifique, c'est parce que, fainéant de nature, je privilégie le réutilisable...
    Le VBA ne palliera jamais une mauvaise conception de classeur ou un manque de connaissances des outils natifs d'Excel...
    Ce ne sont pas des bonnes pratiques parce que ce sont les miennes, ce sont les miennes parce que ce sont des bonnes pratiques
    VBA pour Excel? Pensez D'ABORD en EXCEL avant de penser en VBA...
    ---------------

  5. #5
    Membre à l'essai
    Citation Envoyé par Pierre Fauconnier Voir le message
    Désolé, il y avait une erreur dans mon code, et la façon de rechercher ne la mettait pas en évidence. Au temps pour moi. C'est pratiquement le même code, mais la ligne Result = Application.Match(Target(i), Source, 0) a été remplacée par Result = Application.Match(Source(i), Target, 0)...

    Voici le code corrigé
    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
    Sub AddValues()
      Dim Source As Range
      Dim Target As Range
      Dim Result
      Dim i As Long
      Dim j As Long: j = 1
     
      Set Source = Range("a1:a7")
      Set Target = Range("c1:c4")
      For i = 1 To Source.Count
        Result = Application.Match(Source(i), Target, 0)
        If IsError(Result) Then
          Target(Target.Count + j).Value = Source(i).Value
          j = j + 1
        End If
      Next
    End Sub
    Ca fonctionne merci oui effectivement j'avais pas vu que source et target était inversé.

  6. #6
    Responsable
    Office & Excel

    Citation Envoyé par ezkbkt Voir le message
    Ca fonctionne merci oui effectivement j'avais pas vu que source et target était inversé.
    Je teste toujours les codes que je donne, mais lorsque j'avais testé, ça fonctionnait sur mon petit jeu de test, et donc l'inversion n'était pas mise en évidence. Désolé pour le temps perdu
    "Plus les hommes seront éclairés, plus ils seront libres" (Voltaire)
    ---------------
    Mes remarques et critiques sont purement techniques. Ne les prenez jamais pour des attaques personnelles...
    Une fois pour toutes, je donne mon avis. Je ne vais pas le répéter à chaque message...
    Si je propose une solution générique sur votre solution spécifique, c'est parce que, fainéant de nature, je privilégie le réutilisable...
    Le VBA ne palliera jamais une mauvaise conception de classeur ou un manque de connaissances des outils natifs d'Excel...
    Ce ne sont pas des bonnes pratiques parce que ce sont les miennes, ce sont les miennes parce que ce sont des bonnes pratiques
    VBA pour Excel? Pensez D'ABORD en EXCEL avant de penser en VBA...
    ---------------

  7. #7
    Membre à l'essai
    Citation Envoyé par Pierre Fauconnier Voir le message
    Je teste toujours les codes que je donne, mais lorsque j'avais testé, ça fonctionnait sur mon petit jeu de test, et donc l'inversion n'était pas mise en évidence. Désolé pour le temps perdu
    Pas de soucis c'est déjà de m'avoir aidé ! Je n'y serai jamais arrivé seul !

###raw>template_hook.ano_emploi###