Excel :macro ou fonction ? et quelle formule?

cvivi60 -  
Bonjour,

Au boulot j'essaye de rassembler 2 tableaux, j'ai déjà recopier le 2ème sur une feuille dans le 1er tableau.
Ensuite j'ai pas envi de recopier toutes les adresses mail que j'ai dans le 2ème fichier sur le 1er car j'ai 500 lignes et je n'ai pas les mails de tout le monde.
j'explique j'ai dans le 1er fichier 500 entreprises avec leurs n° de siret ect ... dans le 2ème fichier j'ai 300 mail de correspondance avec n° de siret. Afin de voir lesquels je n'ai pas le mail je voudrais copier les adresses mails dans le 1er fichier avec une formule ou macro qui dirait :
si cette céllule (n°siret) est égale a une des céllules de la feuille 1 (n° siret) copier la cellule de la même ligne que celui ci où est situé le mail.

j'espère que je suis assez claire.

Merci d'avance.

Virginie

4 réponses

  1. zivodul8
    Bonjour,

    Si j'ai bien compris, la solution est une formule Excel : =RECHERCHEV
    0
    1. cvivi60
      ok ! je testerais demain alors lol

      merci :) je vous tiens au courant
      0
      1. zivodul8
        ça serait bien de donner une suite peut être...
        0
        1. geegee
          Bonjour,

          deux boucle for imbriquée.

          for parcour la cellule
          for parcour l'autre colonne
          si les deux sont egale faire

          Private Sub Test()
          Dim rng As Range
          Dim cel As Range
          For Each cel In Worksheets(1).Columns("U").Cells
          If cel.Value = 2 Then
          If rng Is Nothing Then
          Set rng = cel.Offset(, -5).Resize(, 6)
          Else
          Set rng = Union(rng, cel.Offset(, -5).Resize(, 6))
          End If
          End If
          Next
          If Not rng Is Nothing Then
          rng.Copy Destination:=Worksheets("2").Range("A9")
          End If
          End Sub
          source:http://www.commentcamarche.net/forum/affich-19141287-macro-excel-selection-cellules
          -1