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

Copie en fonction du Temps et de la catégorie

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

spilo

XLDnaute Nouveau
Bonjour à Tous,

Voilà je cherche à remplir un tableau (meilleurs temps par catégories) en fonction des résultats de temps saisis sur une autre feuille...

Dans mon exemple lorsque je saisis le temps effectué par un compétiteur (feuille LISTING TEMPS), je souhaiterai qu'il se mette automatiquement à jour dans le tableau correspondant à sa catégorie (feuille MEILLEUR TEMPS), mais je ne souhaiterai que n'apparaisse dans ce tableau que les 8 meilleurs temps...

Je suis réellement un (grand !) débutant 🙄 sur excel alors si vous pouviez m'expliquer la logique à suivre vous me seriez d'un grand secours...

D'avance merci

ps: ci-joint un fichier d'exemple
 

Pièces jointes

Trier par date Trier par votes
Re : Copie en fonction du Temps et de la catégorie

Re,

J'ai revu ma copie, donc reprenons.

On peut résoudre ce problème entièrement par macro. On verra ça plus tard (moi ou un autre).

Voici une solution mixte, avec les formules en colonnes B C D de la feuille MEILLEURS TEMPS.

En colonne D les formules sont matricielles (validation par Ctrl+Maj+Entrée).

Il y a une formule différente pour chaque catégorie, à copier vers le bas (collage spécial-Formules).

Le problème, et vous l'aviez bien vu, est celui des ex aequo.

Il se résoud en ajoutant au temps un nombre très petit, différent pour chaque ligne.

Cela se fait par cette macro, à placer dans le code de la feuille LISTING TEMPS :

Code: 
Private Sub Worksheet_Change(ByVal cel As Range)
Application.EnableEvents = False [COLOR="Red"]'désactive l'action des évènements[/COLOR]
For Each cel In Range([E5], [E65536].End(xlUp)) [COLOR="Red"]'recalcule toute la plage (en cas d'ajout ou suppression de lignes)[/COLOR]
  If IsNumeric(CStr(cel)) Then _
    cel = Application.Floor(cel, 1 / 864000) + cel.Row / 10 ^ 12 [COLOR="Red"]'ajoute au temps un nombre très petit, toujours différent[/COLOR]
Next
Application.EnableEvents = True
End Sub

Fichier joint.

Edit 1 : attention, il faut un accent à TOUTES CATÉGORIES

Edit 2 : j'ai modifié les formules pour éviter les valeurs d'erreur #NOMBRE! mais cela les alourdit un peu...

A+
 

Pièces jointes

Dernière édition:
Vote positif 0 Vote négatif
Re : Copie en fonction du Temps et de la catégorie

Bonjour spilo, le forum,

Voici une solution en VBA sans aucune formule.

Elle est finalement plus simple que la précédente.

Effacez les colonnes B C D de la feuille MEILLEURS TEMPS et entrez une valeur n'importe où dans la feuille LISTING TEMPS.

La macro utilise la Feuil3 comme feuille auxiliaire :

Code: 
Private Sub Worksheet_Change(ByVal cel As Range)
Application.EnableEvents = False [COLOR="Red"]'désactive l'action des évènements[/COLOR]
With Sheets("Feuil3")
[B4:E1000].Copy .[A1] [COLOR="Red"]'copie du tableau vers la cellule A1 de la Feuil3[/COLOR]
For Each cel In Sheets("MEILLEURS TEMPS").Range("A2,A11,A20,A29,A38,A47")
.[A1].AutoFilter Field:=1, Criteria1:=cel [COLOR="Red"]'filtrage en Feuil3 selon critère[/COLOR]
.[B2:D1000].SpecialCells(xlVisible).Copy .[A1001] [COLOR="Red"]'copie de la plage filtrée vers A1001[/COLOR]
.[A1001:C2000].Sort Key1:=.[C1001], Order1:=xlAscending, Key2:=.[A1001], Order2:=xlAscending, Header:=xlNo [COLOR="Red"]'tri ascendant[/COLOR]
cel.Offset(, 1).Resize(8, 3).Value = .[A1001:C1008].Value [COLOR="Red"]'copie des 8 premières lignes de la plage vers la feuille MEILLEURS TEMPS[/COLOR]
.[A1].AutoFilter [COLOR="Red"]'désactivation du filtre[/COLOR]
Next
.[A:D].Clear [COLOR="Red"]'efface tout en Feuil3[/COLOR]
End With
Application.EnableEvents = True
End Sub

A+
 

Pièces jointes

Vote positif 0 Vote négatif
Re : Copie en fonction du Temps et de la catégorie

EXTRA 😀

Merci beaucoup Job75, c'est exactement ça...

Pour ce petit nombre ajouté il est généré aléatoirement ?

y'a plus qu'à espérer qu'il n'y ai pas plus de 8 ex aequo 😎

Je vais "décortiquer" tout ça, encore merci à vous.
 
Vote positif 0 Vote négatif
Re : Copie en fonction du Temps et de la catégorie

Re,

En fait, dans la 2ème méthode, on peut supprimer les 2 lignes :

Application.EnableEvents = False

Application.EnableEvents = True

A+
 
Vote positif 0 Vote négatif
Re : Copie en fonction du Temps et de la catégorie

Bonjour,

Format [mm]:ss,0 pour pouvoir afficher plus de 60 minutes

Par formule, avec plages nommées (Insertion - Nom - Définir)
Formule matricielle, à valider par ctrl, maj et entrée

La plage des temps nommée "Temps"
=DECALER($E$5;;;NB($A:$A))

Pour départager les ex aequo :
une plage "virtuelle" nommée "Temps2" :
=Temps+LIGNE(Temps)/9^9
 

Pièces jointes

Vote positif 0 Vote négatif
Re : Copie en fonction du Temps et de la catégorie

J'ai encore un ptit soucis, j'ai modifié quelque peu le projet ...

Désormais les champs "nom" et "prénom" sont des formules ... je m'explique :

J'ai couplé avec le fichier de tous les joueurs licenciés un recherche, aussi désormais en ne saisissant que le n° de licence les champs "nom" et "prénom" sont donc remplis automatiquement sauf que désormais je n'ai plus que des #REF dans le tableau "meilleurs temps"...

J'ai donc tenté un :

Code: 
Private Sub Worksheet_Change(ByVal cel As Range)
Application.EnableEvents = False 'désactive l'action des évènements
With Sheets("Feuil3")
[B4:E1000].Copy[B][COLOR="Red"]Values[/COLOR][/B] .[A1] 'copie du tableau vers la cellule A1 de la Feuil3
For Each cel In Sheets("MEILLEURS TEMPS").Range("A2,A11,A20,A29,A38,A47")
.[A1].AutoFilter Field:=1, Criteria1:=cel 'filtrage en Feuil3 selon critère
.[B2:D1000].SpecialCells(xlVisible).Copy .[A1001] 'copie de la plage filtrée vers A1001
.[A1001:C2000].Sort Key1:=.[C1001], Order1:=xlAscending, Key2:=.[A1001], Order2:=xlAscending, Header:=xlNo 'tri ascendant
cel.Offset(, 1).Resize(8, 3).Value = .[A1001:C1008].Value 'copie des 8 premières lignes de la plage vers la feuille MEILLEURS TEMPS
.[A1].AutoFilter 'désactivation du filtre
Next
.[A:D].Clear 'efface tout en Feuil3
End With
Application.EnableEvents = True
End Sub
Mais bien sur ne connaissant pas la syntaxe ça ne fonctionne pas 😕
 
Vote positif 0 Vote négatif
Re : Copie en fonction du Temps et de la catégorie

Re,

Utilisez cette macro :

Code: 
Private Sub Worksheet_Change(ByVal cel As Range)
With Sheets("Feuil3")
[COLOR="Red"].[A1:D1000].Value = [B4:E1003].Value[/COLOR] 'copie du tableau vers Feuil3
For Each cel In Sheets("MEILLEURS TEMPS").Range("A2,A11,A20,A29,A38,A47")
.[A1].AutoFilter Field:=1, Criteria1:=cel 'filtrage en Feuil3 selon critère
.[B2:D1000].SpecialCells(xlVisible).Copy .[A1001] 'copie de la plage filtrée vers A1001
.[A1001:C2000].Sort Key1:=.[C1001], Order1:=xlAscending, Key2:=.[A1001], Order2:=xlAscending, Header:=xlNo 'tri ascendant
cel.Offset(, 1).Resize(8, 3).Value = .[A1001:C1008].Value 'copie des 8 premières lignes de la plage vers la feuille MEILLEURS TEMPS
.[A1].AutoFilter 'désactivation du filtre
Next
.[A:D].ClearContents 'efface en Feuil3
End With
End Sub

Fichier joint.

A+
 

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

  • Question Question
XL 2021 Automatisation Extraction de données et de sommes
Réponses
1
Affichages
123
chris
N
  • Question Question
Microsoft 365 Cherche a dupliquer des lignes en fonction d'un nombre indépendant sans macro
2
Réponses
16
Affichages
2 K
crocrocro
C
  • Résolu(e)
XL 2021 En fonction d'une feuille de données spécifiques, faire la somme du montants des éléments donnés.
Réponses
5
Affichages
196
Phoenix23
  • Résolu(e)
XL 2016 Incrémenter des formules dans une feuille, en la copiant et la renommant en même temps
Réponses
9
Affichages
627
jgav
  • Résolu(e)
XL 2013 (RESOLU) Automatisation de la création de feuilles en fonction des données de la cellule U13 et une feuille type
Réponses
7
Affichages
601
chaelie2015
K
  • Résolu(e)
XL 2013 recherche en fonction de la valeur et du rang sur une ligne
Réponses
5
Affichages
420
komarlehomard
K
S
  • Question Question
XL pour MAC Tableau de gestion de production et de stock
Réponses
14
Affichages
2 K
ScamPs
S
S
  • Question Question
XL 2016 calculer note de sport en fonction d'une catégorie et d'un barème
Réponses
7
Affichages
1 K
seb grain
S
B
  • Question Question
XL 2016 Recherchez des valeurs et copiez-les dans un autre tableau en fonction de certaines conditions
Réponses
4
Affichages
746
bossman_16
B
C
  • Résolu(e)
XL 2019 Copier et renommer (en même temps) des feuilles à partir d'une liste de noms dans un colonne
Réponses
13
Affichages
2 K
Clemee61
C
  • Résolu(e)
XL pour MAC Extraire les données d'un tableau en fonction du choix de l'année
2
Réponses
21
Affichages
2 K
pilou010
G
  • Question Question
XL 2016 Répartition mensuelle de la charge par équipe en fonction d'une date de début et d'une date de fin
Réponses
4
Affichages
745
Lolote83
L
C
  • Question Question
XL 2021 Positionnement sur une cellule en fonction de la date, du jour et de l'heure
Réponses
2
Affichages
480
clausen
C
X
  • Question Question
XL 2010 Calcul des bonus en fonction du temps
Réponses
11
Affichages
618
XRe
X
  • Résolu(e)
XL 2013 Masquer/Afficher une ligne de tableau Word en fonction de la valeur du contrôleur de contenu
2
Réponses
20
Affichages
2 K
chaelie2015
L
  • Question Question
XL pour MAC Moyenne en fonction du jour de la semaine - Restaurant
Réponses
4
Affichages
726
loic33610
L
C
  • Question Question
XL 2021 Positionnement sur une cellule en fonction de la date, du jour et de l'heure
Réponses
9
Affichages
611
clausen
C
E
  • Question Question
XL 2019 Peut-on créer automatiquement un lien hypertexte en fonction du contenu de la cellule ?
Réponses
1
Affichages
979
vgendron
T
  • Question Question
XL 2016 copier coller les données d'une feuille vers une autre en fonction de la date du jour
Réponses
2
Affichages
692
therse
T
D
  • Question Question
Microsoft 365 Cas réel - avec problème complexe sur de la prevision de match en evitant les doublons
Réponses
1
Affichages
818
Dock91
D
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…