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

[jcf6464]

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

 

[Bebere]

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

bonjour Jcf
tu mets le code dans un module

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

 

[jcf6464]

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

 

[Bebere]

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

Jcf les 2 exit for sont en trop

 

[jcf6464]

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

merci bebere

cela fonctionne bien

peut être pour un nouvelle aide,

merci a tous et le forum

 

[jcf6464]

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

 

[Bebere]

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

bonjour Jcf
une possibilité,2 lignes ajoutées,commentées ajout

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

 

[jcf6464]

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