XL 2019 formule de recherche et copier

nathalietimon · 17 Octobre 2021

Bonjour,
Je coince sur une formule et je sollicite de ce faite votre aide. Je travaille sur un fichier excel pour le cross d'un collège. Dans la feuille "BF" , lorsque je rentre le N° de dossard, le nom prenom classe ainsi que sa place s'affiche automatiquement. Comment puis je faire pour que cette donnée soit automatiquement recopiée dans la classe correspondant à
l'élève.
Par avance merci pour votre aide,
bonne soirée
jerome

sylvanu · 17 Octobre 2021

Bonsoir Nathalie,
Un essai en PJ avec dans la feuille BF :

VB:

Sub Worksheet_Change(ByVal Target As Range)
    If Target.Count > 1 Then Exit Sub
    DL = Range("A65500").End(xlUp).Row
    If Not Intersect(Target, Range("A4:F" & DL)) Is Nothing Then
        If Cells(Target.Row, "B") <> "" And Cells(Target.Row, "F") <> "" Then
            Dossard = Cells(Target.Row, "B")
            Classe = Cells(Target.Row, "E")
            Temps = Cells(Target.Row, "F")
            With Sheets(Classe)
                Présent = Application.CountIf(.[A:A], Dossard)
                If Présent = 0 Then
                    Ligne = 3 + .Range("A3:A100").End(xlUp).Row
                Else
                    Ligne = Application.Match(Dossard, .Range("A:A"), 0)
                End If
                .Cells(Ligne, "A") = Dossard: .Cells(Ligne, "F") = Temps
            End With
        End If
    End If
End Sub

Cette macro s'exécute lorsque sur une ligne Dossard ET temps ont été renseigné.

NB: Dans vos formules où le résultat est #N/A, mettez un petit Sierreur, ça fait plus joli. C'est fait sur la feuille BF.

Code:

Remplacez :
=INDEX(TabGene;EQUIV(B4;ListeDossards;0);4)
par :
=SIERREUR(INDEX(TabGene;EQUIV(B4;ListeDossards;0);4);"")

NB2 : J'ai rajouté un tri croissant sur le temps sur la feuille de la classe.

nathalietimon · 18 Octobre 2021

Bonsoir,
impressionnant, je vous remercie pour votre aide, je vais copier ce code dans toutes les feuilles et éviter un travail de copier coller fastidieux.
Merci

nathalietimon · 20 Octobre 2021

Bonjour Sylvanu,
Petite question pourquoi, lorsque je copie la formule VB envoyée par vos soins, celle ci fonctionne pour les filles et pas pour toutes les catégories garçons ? le nom et classe se recopie mais pas la place ?

sylvanu · 20 Octobre 2021

Bonjour Nathalie,

nathalietimon à dit:
celle ci fonctionne pour les filles et pas pour toutes les catégories garçons ?

Parce que j'ai un petit faible pour les filles.

Plus sérieusement, je n'en ai aucune idée puisque le genre ne figure pas dans BF ou BG, il n'y a aucune raison qu'il y est une différence.
J'ai regardé les macros événementielles, elles ne font référence qu'à la feuille Classe et n'ont même d'information sur le genre. Les seules références sont Classe, Nom, Prénom.
Mais dans votre fichier en feuille Classe je vois en colonne F des #REF! dans vos formules :

VB:

[COLOR=rgb(0, 0, 0)]=SIERREUR(INDEX(BF!$A$4:$A$103;EQUIV($A18&$C18&$D18&DROITE($A$1;2);BF!$B$4:$B$103&BF!$C$4:$C$103&BF!$D$4:$D$103&BF!$E$4:$E$103;0));SIERREUR(INDEX([COLOR=rgb(226, 80, 65)]#REF![/COLOR];EQUIV($A18&$C18&$D18&DROITE($A$1;2);[COLOR=rgb(226, 80, 65)]#REF![/COLOR]&[COLOR=rgb(226, 80, 65)]#REF![/COLOR]&#REF!&#REF!;0));SIERREUR(INDEX(#REF!;EQUIV($A18&$C18&$D18&DROITE($A$1;2);#REF!&#REF!&#REF!&#REF!;0));SIERREUR(INDEX(#REF!;EQUIV($A18&$C18&$D18&DROITE($A$1;2);#REF!&#REF!&#REF!&#REF!;0));SIERREUR(INDEX(' DISP'!$A$56:$A$103;EQUIV($A18&$C18&$D18&DROITE($A$1;2);' DISP'!$B$56:$B$103&' DISP'!$C$56:$C$103&' DISP'!$D$56:$D$103&' DISP'!$E$56:$E$103;0));SIERREUR(INDEX(CF!$A$4:$A$103;EQUIV($A18&$C18&$D18&DROITE($A$1;2);' DISP'!$B$56:$B$103&CF!$C$4:$C$103&CF!$D$4:$D$103&CF!$E$4:$E$103;0));0))))))[/COLOR]

Je n'ai pas regardé les formules, étant en dehors du problème posé. Peut être set ce une piste.
Pouvez vous donner un exemple précis qui permettrait de suivre la macro et voir où peut se situer le problème

nathalietimon · 20 Octobre 2021

Exemple, en BG le dossard 672 termine 1er avec un tps noté. Je le retrouve dans l'onglet 6C. Son TPS est noté mais pas la place obtenue. Dans la colonne place le chiffre "0" apparait au lieu de "1".

sylvanu · 20 Octobre 2021

Ma V7 du post #2 en page 6C colonne E n'a pas d'erreur, dans votre V7 du post #4 il y a des #REF!. Je ne sais pas pourquoi.
J'ai repris celle du post #2 où j'ai juste recopié la macro sur les feuilles BF BG MF MG.
Chez moi cela se vérifie, cette PJ semble marcher.
Peut être une fausse manip lorsque vous avez modifiée cette V7. Mais je n'ai pas tout vérifié. Mais aucune formule ne doit comporter d'erreur.

XL 2019 formule de recherche et copier

nathalietimon

XLDnaute Nouveau

Pièces jointes

sylvanu

XLDnaute Barbatruc

Pièces jointes

nathalietimon

XLDnaute Nouveau

nathalietimon

XLDnaute Nouveau

Pièces jointes

sylvanu

XLDnaute Barbatruc

nathalietimon

XLDnaute Nouveau

sylvanu

XLDnaute Barbatruc

Pièces jointes

Discussions similaires