extraction dans une base de donnée

[phileasdav]

bonjour;

j'ai un soucis !!lol 😕
j'aimerais pouvoir créer une "carte d'identité" d'une ligne a travers une base de donnée, je m'explique:
j'ai une base de donnée partagée qui comporte plusieurs milliers d'enregistrements.Dans un autre classeur , je souhaiterais l'extraire pour récupérer toutes les informations qui sont dans cette meme base de donnée pour créer par la suite une carte d'identité que je modeliserai dans un autre classeur.

voir piece jointe

comment faire ??
merci d'avance

 

[phileasdav]

Re : extraction dans une base de donnée

oui, j'ai recherché (peut etre mal!!)

 

[phileasdav]

Re : extraction dans une base de donnée

je réexplique mon probleme !
j'ai une base de donnée qui comporte des doublons ; paradoxalement je veux extraire les infos relatifs a ces doublons !
exemple :
toto1; B2
toto1;B3
je veux pouvoir afficher dans ma recherche (indexequiv)les champs B2 ET B3' si possible concaténés

merci de votre aide
a++

 

[Staple1600]

Re : extraction dans une base de donnée

Re


Les formulistes ne devraient pas tarder à pouvoir t'aider


En attendant je vais cherché de l'aide ici:
Lien supprimé

 

[phileasdav]

Re : extraction dans une base de donnée

merci quand meme!
qui sont les formulistes??

a++

 

[Staple1600]

Re : extraction dans une base de donnée

Re

Tu as regardé le lien de mon précédent message?

J'ai moi téléchargé le classeur et je susi en train d'essayer de comprendre les superbes formules qu'il contient et toi?


Qui sont les formulistes?


Des personnes sur ce forum qui sont des pointures avec les formules D'Excel

Mais comme tu as lu la charte, tu sais que:

Toujours dans le sujet, il faut proscrire toute interpellation d'un/d'une des participants.

😉

 

[phileasdav]

Re : extraction dans une base de donnée

oui, j'ai regardé mais je suis pas sur d'avoir ma solution; et toi?

a++

 

[Staple1600]

Re : extraction dans une base de donnée

???


Tu as eu le temps de comprendre et ingurgité toutes les formules?


Moi j'y suis encore ! 😉

Je verrais bien une début de solution en VBA + Filtre élaboré sans doublons

 

[phileasdav]

Re : extraction dans une base de donnée

la nuit porte conseil !!

merci beaucoup de ton aide et bonne nuit
a++

 

[Staple1600]

Re : extraction dans une base de donnée

Re

N'tant pas trop doué pour les formules complexes


edit: Voici une solution en VBA + Filtre élaboré


Tu peux aussi essayer la version raccourci de la macro de ma picèce jointe

(Remplace la macro par celle-ci (dans le module)
et change le nom dans Worksheet_Change()--> dans la feuille

sub ext_filelab()
Worksheets("carte d'identité").[A8].CurrentRegion.ClearContents
With Worksheets("base de donnée")
.[a4].CurrentRegion.AdvancedFilter Action:=xlFilterCopy, _
CriteriaRange:=.[IV1:IV2], CopyToRange:=Worksheets("carte d'identité").[B8], _
Unique:=True
End With
end sub

En attendant de lire la solution dess formulistes, bonne nuit.


dernier edit pour ce soir:

Une version (toujours par macro) avec autofilter:

Sub ext_autoFILT()
Application.ScreenUpdating = False
Dim Le_Critere As String
Le_Critere = InputBox("Quel critère de filtrage?")
With Worksheets("base de donnée")
    If .FilterMode Then
        .AutoFilterMode = False
    End If
    .[A4].AutoFilter Field:=2, Criteria1:="=" & Le_Critere
    .[A4].CurrentRegion.SpecialCells(xlCellTypeVisible).Copy _
Worksheets("carte d'identité").[B8]
    .AutoFilterMode = False
End With
Application.ScreenUpdating = True
End Sub

 

[phileasdav]

Re : extraction dans une base de donnée

bonsoir;
ça marche bien avec la macro avec le filtre élaboré mais j'éssaie d'exporter ma recherche vers un autre fichier et là, je cale(encore une fois!!lol)

comment faire??
merci encore

 

[Staple1600]

Re : extraction dans une base de donnée

Bonsoir


Il faut adapter le chemin (nom du répertoire) et le nom du fichier (cf. gras)
et il faut que le critère soit renseigné (cf . IV1:IV2)

Sub ext_filelab()
Dim WKB As Workbook
Autre_Classeur = "[B]C:\Mes documents\test.xls[/B]"
Set WKB = Workbooks.Open(Autre_Classeur)
WKB.Worksheets(1).[A8].CurrentRegion.ClearContents
With ThisWorkbook.Worksheets("Feuil2")
.[a4].CurrentRegion.AdvancedFilter Action:=xlFilterCopy, _
CriteriaRange:=[B].[IV1:IV2][/B], CopyToRange:=WKB.Worksheets(1).[B8], _
Unique:=True
End With
End Sub

 

[phileasdav]

Re : extraction dans une base de donnée

La macro précédente n'est pas adaptée d'autant qu'elle m'oblige a ouvrir le fichier source(alors qu'il doit etre indépendant !)

Comment faire avec cette macro?(ci dessous), je réexplique mon soucis: je veux créer une carte d'identité de données qui se trouvent dans un fichier différent ; cette macro fonctionne bien (ci dessous) sauf qu'elle m'oblige a créer la carte d'identité dans le meme fichier que la base de donnée.

Sub ex_FiltreELABORE()
'accélération du code
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
Application.EnableEvents = False
'Déclarations
Dim Donnes_PLG As Range
Dim Extract_PLG As Range
Dim CRIT_Plg As Range
'Définitions des plages
Set Donnes_PLG = Worksheets("feuil1").Range("A1").CurrentRegion 'données sources
Set CRIT_Plg = Worksheets("feuil1").Range("IV1:IV2") 'critères
Set Extract_PLG = Worksheets("carte").Range("Z8") ' destination de l'extraction
Extract_PLG.CurrentRegion.ClearContents ' effacement du précédent filtrage
Donnes_PLG.AdvancedFilter _
Action:=xlFilterCopy, _
CriteriaRange:=CRIT_Plg, _
CopyToRange:=Extract_PLG, _
Unique:=True
'RAZ paramètres initiaux d'Excel
Application.EnableEvents = True
Application.Calculation = xlCalculationAutomatic
Application.ScreenUpdating = True
End Sub


merci beaucoup encore pour votre aide

 

[phileasdav]

Re : extraction dans une base de donnée

besoin d'aide ; svp
peut etre est ce possible avec l'aide d'une formule ?