Sujet Précédent Sujet Suivant

Excel :macro ou fonction ? et quelle formule?

Fermé
cvivi60 - Modifié par cvivi60 le 9/06/2011 à 18:44
zivodul8 Messages postés 230 Date d'inscription jeudi 19 novembre 2009 Statut Membre Dernière intervention 19 mai 2015 - 16 juin 2011 à 13:35
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



A voir également:

4 réponses

Réponse 1 / 4
zivodul8 Messages postés 230 Date d'inscription jeudi 19 novembre 2009 Statut Membre Dernière intervention 19 mai 2015 22
9 juin 2011 à 18:44
Bonjour,

Si j'ai bien compris, la solution est une formule Excel : =RECHERCHEV
0
Réponse 2 / 4
cvivi60
9 juin 2011 à 18:45
ok ! je testerais demain alors lol

merci :) je vous tiens au courant
0
Réponse 3 / 4
zivodul8 Messages postés 230 Date d'inscription jeudi 19 novembre 2009 Statut Membre Dernière intervention 19 mai 2015 22
16 juin 2011 à 13:35
ça serait bien de donner une suite peut être...
0
Réponse 4 / 4
geegee
9 juin 2011 à 18:49
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