extraire des données

[Hervé]

salut le forum,

petit souci.

Dans un premier onglet j'ai une liste de données du type :

Nom, prénom, montant, banque

dans un deuxieme onglet j'ai une liste de nom.

Je cherche sous VBA à extraire dans un troisième onglet les noms, prénom etc.... des personnes présentes dans le 1er onglet mais pas dans le 2ème.

ais-je été clair (suis pas sûr) ??

merci a toute personne de bonne volonté en ce dimanche ensoleillé (je ferai mieux d'aller me promener dans les bois d'ailleurs..... mais bon le boulot quand ça vous tiens)

salut et merci d'avance

Hervé

 

[Claudio54]

salut Hervé

Personnellement, je ferai ça en 2 boucles imbriquées :


ligne=1
for i= 1 to (nombre de nom dans onglet1)
fiche=sheets("onglet1").range("A" & i ) ' si les noms sont dans colonne A
for j=1 to (nombre de nom dans onglet2)
if sheets("onglet2").range("Z" & j) = fiche then flag=1
next j
if flag=1 then
sheets("onglet3").range("A" & ligne)=fiche
ligne=ligne+1
flag=0
end if
next i

mais bon, je suis novice en VBA et je suppose qu'il doit y avoir d'autres solutions bien plus élégantes.

A+

 

[Hervé]

salut claudio54


merci de ta réponse mais cette macro n'extrait pas les valeurs uniques de onglet1 vers onglet3 depuis j'ai bosser sur cette macro :

Sub essai()
For Each cel In Sheets("base").Range("a1:a1000")
Set absent = Sheets("rechercher").Range("a1:a100").Find(cel, LookIn:=xlValues)
'Cellule = Cel.Address(RowAbsolute:=False, ColumnAbsolute:=False)
If absent Is Nothing Then
Sheets("trouver").Range("A1").Offset(i, 0).Value = cel

i = i + 1
End If
Next
End Sub

mon problème c'est que ce code ne me renvoi que le nom, alors que je voudrais le nom, prénom, adresse.

te remerciant encore pour ton aide

salut
Hervé

 

[Hervé]

resalut


Je ne sais pas si quelqu'un c'était penché sur mon problème mais j'ai fini par réussir.

donc problème résolu (a bientot pour de nouvelles aventures)

merci encore claudio54

Salut
Hervé

 

[miremy]

Re : Re: extraire des données

resalut


Je ne sais pas si quelqu'un c'était penché sur mon problème mais j'ai fini par réussir.

donc problème résolu (a bientot pour de nouvelles aventures)

merci encore claudio54

Salut
Hervé

🙂Bonjour Herve
je cherche cherche quelque chose de similaire à ce que tu as fait come je ne connais rien en vba peux tu m' envoyer ta formule pour voir si cela fonctionne avec moi je t'en remercie à l'avance
cordialement
Miremy😱