renvoie de données dans Excel Fermé

Question

Dans EXCEL : en feuille 1, J'ai une liste de noms en cellule B3 B4 B5 et une liste de prénoms en cellule C3 C4 C5 ; en cellule D3 j'ai une activité à choisir, exemple: le foot… Toujours, dans la feuille 1 la personne en cellule B5 et C5 fait un choix d'activité en cellule D5. En feuille 2 qui est la feuille qui recense l'activité Foot, je veux renvoyer la personne qui se trouve en cellule B5 de la feuille 1 à la cellule B3, si la personne qui se trouve en cellule B3 de la feuille 1 a fait un autre choix ????

Armojax · Answer

Hello CyberMJC,La petite macro ci-dessous est à mettre dans le code de chacune de tes feuilles "sport".J'ai compris que :- tu as une feuille globale qui contient des adhérents (nom, prénom) avec pour chacun le choix d'une discipline- tu as pour chacune de ces disciplines une feuille qui porte le nom de cette discipline- dans toutes tes feuilles, les listes commencent en ligne 3, à cause des entêtes en lignes 1 et 2Il est nécessaire que les disciplines qui figurent après chaque adhérent dans la feuille globale aient les mêmes noms que les feuilles par discipline.J'ai appelé "Liste" la feuille globale : adapte le nom dans la macro.Chaque fois qu'on active une feuille "sport", sa liste est recalculée automatiquement.Private Sub Worksheet_Activate()        Application.ScreenUpdating = False    Dim I       As Integer   ' pour boucle For...    Dim Ind     As Integer   ' pour remplissage feuille sport    Dim NbLis   As Integer   ' nb de lignes liste globale    Dim NbMe    As Integer   ' nb lignes feuille sport    Dim FF      As Worksheet ' alias feuille liste globale    Set FF = Sheets("Liste") ' adapter le nom de la feuille    NbLis = FF.Cells(3, 2).CurrentRegion.Rows.Count    NbMe = Me.Cells(3, 2).End(xlDown).Row        ' effacement de la liste du sport de la feuille    Me.Range(Cells(3, 2), Cells(NbMe, 3)).ClearContents    Ind = 2        ' reconstruction de la liste du sport de la feuille    For I = 3 To NbLis        If UCase(FF.Cells(I, 4).Value) = UCase(Me.Name) Then            Ind = Ind + 1            Me.Cells(Ind, 2).Value = FF.Cells(I, 2).Value            Me.Cells(Ind, 3).Value = FF.Cells(I, 3).Value        End If    Next        Application.ScreenUpdating = TrueEnd Sub

Renvoie de données dans Excel

1 réponse

Discussions similaires