Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

resolu Macro recherchev avec base de données sur une feuille distincte

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion chris6999
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire

chris6999

XLDnaute Impliqué
Bonsoir

Encore une question sur les macros recherchev.
J'ai trouvé pleins de fils intéressant mais malheureusement rien qui corresponde à mes attentes.

J'ai une feuille "liste" que je souhaiterais alimenter avec les données de la feuille "BD Identifiants" à partir d'une critère commun.
Ce critère se trouve dans la colonne C ( critère identifiant) dans la feuille "Liste " et également dans la colonne K de ma base de données "BD Identifiants".
Le but est de compléter les valeurs pour chaque ligne correspondante comme suit :
Dans liste colonne H (ou 8) Renvoie valeur colonne C (ou3)
Dans liste colonne I (ou 9) Renvoie valeur colonne D (ou 4)
Dans liste colonne J (ou 10) Renvoie valeur colonne G (ou 7)
Dans liste colonne K (ou 11) Renvoie valeur colonne P (ou 16)

Et ceci pour chaque ligne lorsque la colonne A est non vide

Lorsque le critère commun n'existe pas alors ne rien compléter

Je ne sais pas si c'est possible car le critère commun dans "BD identifiants" se trouve derrière ou devant les valeurs des colonnes recherchées.

Quelqu'un peut-il m'aider. Je joins bien sûr un fichier qui vaut mieux que de grands discours.

Merci d'avance
Cordialement et bonne soirée
 

Pièces jointes

Dernière édition:
Trier par date Trier par votes
Re : Macro recherchev avec base de données sur une feuille distincte

Bonsoir Le Forum, Chris6999
Transforme tes données de la feuille "bd identifiants" en Tableau
Ensuite sur la Feuille "Liste"
En H4 à tirer vers le bas
Code: 
=INDEX(Tableau1[A positionner dans liste colonne  H (ou 8)];EQUIV($C4;Tableau1[Critère correspondance];0))

En I4 à tirer vers le bas
Code: 
=INDEX(Tableau1[A positionner dans liste colonne I (ou 9)];EQUIV($C4;Tableau1[Critère correspondance];0))

Tu adaptes pour les autres
A+
 
Vote positif 0 Vote négatif
Re : Macro recherchev avec base de données sur une feuille distincte

Bonjour Regueiro et merci pour ta réponse mais c'est un code VB que je recherche et non une formule.
Je te souhaite une bonne journée



 
Vote positif 0 Vote négatif
Re : Macro recherchev avec base de données sur une feuille distincte

Bonjour à tous


chris6999
Une formule peut s'utiliser dans une macro.
Tu as les formules désormais, à toi de jouer maintenant,chris 😉
En t'inspirant de cette petit macro ci-dessous
(et avec le concours de l'enregistreur de macros)
Code: 
Sub FormulesEtVBA()
Dim DerLig&
DerLig = 9
Range(Cells(1, "A"), Cells(DerLig, "A")).Formula = "=ROW()^ROW()"
Range(Cells(1, "B"), Cells(DerLig, "B")).FormulaLocal = "=AUJOURDHUI()+LIGNE()"
Range(Cells(1, "C"), Cells(DerLig, "C")).FormulaR1C1 = "=RC[-2]/100"
End Sub
 
Vote positif 0 Vote négatif
Re : Macro recherchev avec base de données sur une feuille distincte

Bonjour Staple

J'ai suivi tes conseils et enregistrer ma formule en VBA et cela fonctionne nickel.
C'est juste merveilleux

Merci encore


Sub test()

Dim DerLig&
DerLig = 500
Range(Cells(4, "G"), Cells(DerLig, "G")).Formula = "=IF(RC[-6]="""","""",IF(ISERROR(VLOOKUP(RC3,'bd identifiants'!R1C1:R700C23,5,0)),0,VLOOKUP(RC3,'bd identifiants'!R1C1:R700C23,5,0)&"" ""&VLOOKUP(RC3,'bd identifiants'!R1C1:R700C23,4,0)))"
Range(Cells(4, "H"), Cells(DerLig, "H")).Formula = "=IF(RC[-6]="""","""",IF(ISERROR(VLOOKUP(RC3,'bd identifiants'!R1C1:R700C23,8,0)),0,VLOOKUP(RC3,'bd identifiants'!R1C1:R700C23,8,0)))"
Range(Cells(4, "I"), Cells(DerLig, "I")).Formula = "=IF(RC[-6]="""","""",IF(ISERROR(VLOOKUP(RC3,'bd identifiants'!R1C1:R700C23,17,0)),0,VLOOKUP(RC3,'bd identifiants'!R1C1:R700C23,17,0)))"

End Sub
 
Dernière édition:
Vote positif 0 Vote négatif
Re : Macro recherchev avec base de données sur une feuille distincte

Bonjour néné06 et merci pour ce code qui colle pile poil avec ce que je recherche.
Toutefois il ne semble pas fonctionner car j'utilise Excel 2003.
J'ai pourtant converti le fichier...
Dommage et merci encore
 
Vote positif 0 Vote négatif
Re : Macro recherchev avec base de données sur une feuille distincte

Re

Une formule* inscrite en VBA
(inspirée par la solution VBA de néné06 que je salue au passage 😉)
Code: 
Sub FormulesEnVBAbis()
Dim cols, i&
cols = [{"C","D","G","P"}]
Sheets("bd identifiants").Range("K2:K563").Name = "IDENT"
For i = 1 To 4
Sheets("Liste").Cells(4, "G").Offset(, i).Resize(100).FormulaR1C1 = "=INDIRECT(""'bd identifiants'!" & CStr(cols(i)) & """" & "&MATCH(RC3,IDENT,0))"
Next i
End Sub

A peaufiner, finaliser... ou pas 😉
 
Vote positif 0 Vote négatif
Re : Macro recherchev avec base de données sur une feuille distincte

Merci Staple1600

 
Vote positif 0 Vote négatif
Re : Macro recherchev avec base de données sur une feuille distincte

Bonsoir Le Forum, Chris6999
Alors une Formule en VBA avec tableau.

Code: 
Sub Remplir3()
Dim lig&
lig = Cells(4, "A").End(xlDown).Row
With Range(Cells(4, "H"), Cells(lig, "H")).Resize(, 4)
.FormulaR1C1 = "=IF(RC3<>"""",INDEX(Tableau1,MATCH(RC3,Tableau1[Critère correspondance],0),MATCH(R2C,Tableau1[#Headers],0)),"""")"
.Value = .Value
End With
End Sub
A+
bonne Soirée
Ton fichier en retour avec plusieurs variantes
 

Pièces jointes

Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

T
  • Question Question
Microsoft 365 Identifier si une cellule contient une valeur parmi une liste de valeur
Réponses
5
Affichages
182
TRANSPLANT69
T
L
  • Résolu(e)
Power Query Problème de fusion de données entre deux fichiers Excel sous Power Query
Réponses
8
Affichages
293
chris
S
  • Question Question
XL 2013 Copier automatiquement des données dans plusieurs onglets
Réponses
4
Affichages
327
Phil69970
L
  • Résolu(e)
XL 2016 Pb publipostage conditionnelle avec base de données Excel
Réponses
1
Affichages
406
Linda42
L
L
  • Question Question
XL 2021 Renvoi d'une valeur texte dans une colonne d une autre feuille
Réponses
6
Affichages
242
laurent34750
L
M
  • Question Question
XL 2019 Transposer des données d'une feuille vers une autre sous forme de synthèse
Réponses
8
Affichages
507
mromain
S
  • Question Question
XL 2019 Formule RECHERCHEV avec des valeurs cherchées négatives qui ne fonctionne pas et renvoi #Réf
Réponses
2
Affichages
292
Phil69970
Z
  • Question Question
XL 2016 RECHERCHEV et double liste de choix
Réponses
2
Affichages
905
zendb
Z
S
  • Question Question
Microsoft 365 Transfert de données sur une autre tableau
Réponses
2
Affichages
169
stefane26
S
N
  • Résolu(e)
Microsoft 365 Supprimer de la liste d'une Combo les données déjà présentes dans une colonne d'un TS
2
Réponses
18
Affichages
747
NONO14
N
D
  • Question Question
XL 2021 Liste déroulante et RECHERCHEV
Réponses
5
Affichages
388
Dubuyz1
D
S
  • Résolu(e)
Microsoft 365 - Conseils pour la structuration d'une base de données -
2 3
Réponses
44
Affichages
3 K
crocrocro
C
D
  • Résolu(e)
Microsoft 365 Graphique avec plage de données glissante en partant d'une date
Réponses
5
Affichages
619
Dégé59
D
G
  • Question Question
XL 2021 rassembler des données de plusieurs feuilles d'un classeur sur une nouvelle feuille du meme classeur selon un critère
Réponses
1
Affichages
503
Staple1600
M
  • Question Question
XL 2010 Récupération de données et les transformer avec Power Query ?
Réponses
3
Affichages
647
DJunqueira
D
S
  • Question Question
XL 2019 Recherche de valeur dans un tableau pour afficher la valeur extraite
Réponses
8
Affichages
615
Skippy
S
A
  • Résolu(e)
XL 2016 Plage de données fixes pour calcul dans formule
Réponses
3
Affichages
440
sylvanu
S
  • Question Question
Microsoft 365 VBA pour copier une une des données d'une ligne à une autre
Réponses
3
Affichages
771
salma_hayek
S
J
  • Question Question
XL 2019 Calculer une différence de temps théorique avec le temps réel
Réponses
4
Affichages
532
goube
S
  • Question Question
XL 2016 Comment attribuer des classes avec trois conditions?
Réponses
7
Affichages
173
TooFatBoy
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…