Excel :macro ou fonction ? et quelle formule?
cvivi60
-
zivodul8 Messages postés 248 Statut Membre -
zivodul8 Messages postés 248 Statut Membre -
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
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:
- Excel :macro ou fonction ? et quelle formule?
- Liste déroulante excel - Guide
- Word et excel gratuit - Guide
- Si ou excel - Guide
- Déplacer colonne excel - Guide
- Excel trier par ordre croissant chiffre - Guide
4 réponses
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
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
