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

Récupération de donnée de deux feuille avec critéres

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion jcf6464
  • 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

jcf6464

XLDnaute Impliqué
Bonjour le forum,
Récupération de donnée de deux feuilles avec critères les mêmes pour les deux feuilles,

Merci Robert pour tes explications

merci à robert pour le coup de main et aux autres ,

je ne sais pas si cela est faisable,

je cherche à faire avec cette feuille récuperer en automatique ou semi auto.. les noms des personnes affecter au appartement colonne par colonne à partir des bases (Participants et Encadrement),

quand je saisi l'affectation d'une chambre au participant ou encadrement le nom s'affiche dans la colonne nom et un 1 dans la partie Nbr Affectée à la bonne place de l'appartement qui est transferer dans la feuille Paramètres

les noms des appartements sont identique que la feuille paramètres et à la même place ,

une précision , La saisie des Participants et encadrement ce fait par des formulaires qui marche

merci pour votre aide jcf64 bonne journées

fichier joint
 

Pièces jointes

Trier par date Trier par votes
Re : Récupération de donnée de deux feuille avec critéres

bonjour Jcf
tu mets le code dans un module
Code: 
Public Sub NomPersonne()
    Dim celP As Range, celE As Range, celH As Range, C As Byte
    
    With Feuil31 'heberge.
        For Each celH In .Range("C5:C" & .Range("C4").End(xlDown).Row)

            With Feuil1 'part.
                For Each celP In .Range("BX5:BX" & .Range("BX4").End(xlDown).Row)
                    If celP.Value = celH.Value Then
                        C = Feuil31.Cells(celH.Row, 256).End(xlToLeft).Column + 1
                        Feuil31.Cells(celH.Row, C) = .Cells(celP.Row, 5) & " " & .Cells(celP.Row, 6)

                        Exit For
                    End If
                Next celP
            End With

            With Feuil28 'enc.
                For Each celE In .Range("BT5:BT" & .Range("BT4").End(xlDown).Row)
                    If celE.Value = celH.Value Then
                        C = Feuil31.Cells(celH.Row, 256).End(xlToLeft).Column + 1
                        Feuil31.Cells(celH.Row, C) = .Cells(celE.Row, 4) & " " & .Cells(celE.Row, 5)
                        Exit For
                    End If
                Next celE
            End With

        Next celH
    End With

End Sub
 
Vote positif 0 Vote négatif
Re : Récupération de donnée de deux feuille avec critéres

Bonjour berbere,

merci de te pencher sur mon problème,

C'est l'idée que tu a développer, mais quand tu fait l'extraction il me manque des noms dans le tableau hébergement,

en encadrant il y a deux noms il en manque 1

exemple pour (Les Myrtilles OT)
--------Participants------------------).....( encadrement------------)
ColG----colH------------ColI--------------ColJ-----------ColK
AAA..... OOOOOOOOO.....SSSSSSSSSSS.....Encad2 JB.......Encad3 JB

en regardant ton code je ne voie pas ou...

merci à te relire

jcf6464
 
Vote positif 0 Vote négatif
Re : Récupération de donnée de deux feuille avec critéres

Bonjour bebere

Une info sur le code ci-dessus qui fonctionne très bien peut tu me dire si l'on peut mettre en couleur les cellules quand c'est cette partie qui s'affiche (With Feuil28 'enc.) dans la feuille hebergement je ne voudrais que l'encadrement qui passe en couleur

merci de ta réponse

bonne fin de semaine

jcf64
 
Vote positif 0 Vote négatif
Re : Récupération de donnée de deux feuille avec critéres

bonjour Jcf
une possibilité,2 lignes ajoutées,commentées ajout
Code: 
Public Sub NomPersonne()
    Dim celP As Range, celE As Range, celH As Range, C As Byte
    
    With Feuil31 'heberge.
        For Each celH In .Range("C5:C" & .Range("C4").End(xlDown).Row)

            With Feuil1 'part.
                For Each celP In .Range("BX5:BX" & .Range("BX4").End(xlDown).Row)
                    If celP.Value = celH.Value Then
                        C = Feuil31.Cells(celH.Row, 256).End(xlToLeft).Column + 1
                        Feuil31.Cells(celH.Row, C) = .Cells(celP.Row, 5) & " " & .Cells(celP.Row, 6)
                        Feuil31.Cells(celH.Row, C).BorderAround ColorIndex:=3, Weight:=xlThick'ajout

'                        Exit For
                    End If
                Next celP
            End With

            With Feuil28 'enc.
                For Each celE In .Range("BT5:BT" & .Range("BT4").End(xlDown).Row)
                    If celE.Value = celH.Value Then
                        C = Feuil31.Cells(celH.Row, 256).End(xlToLeft).Column + 1
                        Feuil31.Cells(celH.Row, C) = .Cells(celE.Row, 4) & " " & .Cells(celE.Row, 5)
                         Feuil31.Cells(celH.Row, C).BorderAround ColorIndex:=3, Weight:=xlThick'ajout
'                        Exit For
                    End If
                Next celE
            End With

        Next celH
    End With

End Sub
 
Vote positif 0 Vote négatif
Re : Récupération de donnée de deux feuille avec critéres

re bebere

excellentissime un grand merci

je m'absente pour 4 semaines chemin de compostelle, maintenant fin septembre je reprendrais,

merci au forum


jcf64
 
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

D
  • Question Question
XL 2021 Boucle sur deux feuilles
Réponses
11
Affichages
171
dadaze
D
S
  • Question Question
XL 2013 Copier automatiquement des données dans plusieurs onglets
Réponses
4
Affichages
322
Phil69970
  • Question Question
Microsoft 365 créer des feuilles automatiques et une formule avec condition de remplissage
Réponses
2
Affichages
262
luno123
  • Question Question
XL 2016 copie de donnees horizontale en verticale
2
Réponses
25
Affichages
494
job75
A
  • Résolu(e)
Microsoft 365 VBA_Copier coller selon des critères dans deux menus déroulants
Réponses
6
Affichages
171
Altfkat
A
P
  • Question Question
XL 2019 Macro VBA appliquer un filtre lors d'une importation de données
Réponses
1
Affichages
203
fanch55
W
  • Résolu(e)
XL 2016 Gestion de liste transposée dans une autre feuille avec décalage d'une colonne et exclusion de certains éléments
Réponses
9
Affichages
499
Webperegrino
W
F
  • Question Question
XL 2019 Report de données avec SOMME SI
Réponses
7
Affichages
627
chris
S
  • Résolu(e)
XL 2016 Comment classer des résultats avec attributs et couleurs et avoir la somme des classes sur une feuille Excel?
Réponses
6
Affichages
726
stuka
S
Z
  • Question Question
XL 2021 VBA Prélèvement d'une donnée si une valeur recherchée est identique
Réponses
3
Affichages
481
ZiM
Z
F
  • Question Question
Microsoft 365 Comparer le nom d'une feuille à une liste de noms
Réponses
4
Affichages
641
fattah_5791
F
S
  • Question Question
Microsoft 365 Création d'un TCD avec 2 tableaux ayant les mêmes entêtes de colonne et les même données
Réponses
9
Affichages
579
STEPHANIE1975
S
L
  • Question Question
Power Query groupés deux tableaux qui existent sur la même feuille et ajout d'information supplémentaire
Réponses
7
Affichages
901
Aurelili
A
Transposer en colonnes des blocs de données en lignes - via formules
Réponses
0
Affichages
506
oguruma
O
  • Question Question
XL 2019 Je veux afficher mes données dans ma Listbox1 avec l'entete de ma Base donnée et fait la recherche sans que cela derange l'entete.
Réponses
6
Affichages
849
ChTi160
A
  • Question Question
XL 2010 Transférer une ligne, sur une autre feuille selon la valeur d'une cellule
2 3 4
Réponses
50
Affichages
4 K
job75
E
  • Question Question
XL 2019 Extraction d'une feuille avec suppression de formes et de formules
Réponses
2
Affichages
574
EnzoC
E
L
  • Résolu(e)
XL 2019 Comparaison valeurs de deux feuilles et copier-coller des colonnes correspondantes
2
Réponses
15
Affichages
1 K
Lolexcel
L
D
  • Résolu(e)
XL 2019 je voudrais transféré les donnée de la feuille 1 via un model sur tous les entreprise via des critère pour les colonne.
2
Réponses
23
Affichages
1 K
desquiens.gabriel@hotmail
D
L
  • Question Question
Microsoft 365 Copier les mêmes lignes venant de différentes feuilles dans une feuille "Summary"
Réponses
3
Affichages
703
liod21
L
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…