Copier-coller de feuille à feuille selon crietre
Bonjour Forum Excel-pratique
Dans mon fichier joint , j'ai 4 feuilles
feuille base
feuille col
feuille lyc
feuille jof
je souhaiterais selon des critères définis (dans le fichier) , copier coller (ou copier-concatener) des données de la feuille générale vers les 3 autres autres feuilles colonnes A à M en un clic sur bouton
Je vous laisse les critères dans le fichier joint
merci à tous
asso
Bonjour asso132,
La macro fonctionne, je lui fais juste effectuer le copier/coller dans les feuilles "test" à droite, j'ai ajouté une macro pour effacer le contenu de ces feuilles pour que tu puisse vérifier le fonctionnement.
Y a peut être moyen de simplier le test mais ça fonctionne.
En attente de ton retour sur le sujet.
Bonjour Timothé, Forum
Tout d'abord, merci de prendre du temps pour m'aider.
j'ai fait fonctionner la macro. Ton copier coller fonctionne sur les 3 feuilles.
Mais il ne remplit pas les cases au bon endroit et, les concatenations ne se font pas
Pour la feuille Jof, j'ai fait une erreur de critere (mea culpa)
il faut exporter les lignes de "base" qui ont en colonne 16 (Niveau)<>"" et non colonne 12= jof
en fait il faut remplir les colonnes dont les titres sont "orangés"
merci encore
as132
J'ai commencé à corriger quelques points, on copie à partir de B et plus de A, j'ai réparé les erreurs de fonctions (j'avais copié l'ancienne appellation à certains endroits et adapté rapidement, forcément si ça ne s'appelle pas pareil, ça ne fonctionnera pas)
J'ai ajouté le décallage de 2 lignes pour conserver les en-têtes.
Je ne vais pas avoir le temps ce soir de faire la mise en oeuvre des données collées (concaténation, etc).
Je met quand même le fichier, si quelqu'un veut le reprendre pour l'améliorer ou le terminer, sinon je m'y remet demain.
Bonsoir Timothé, Forum
merci pour votre aide.
Voici un fichier (trouvé et modifié pour mes colonnes ) qui prend en compte l'exportation vers les 3 feuilles et les concatenations.
Il est certainement plus long car au lieu d'avoir une macro, il y en a 3 , une par feuille d'import
peut être faudrait il les concentrer ?
idem pour les tris, je n'ai pas réussi à créer une macro qui pourrait être utilisée pour chaque feuille en fin de macro
Si quelqu'un a une idée de contraction , ...
j'ai les yeux qui piquent, donc plus rien ce soir...
encore merci pour votre aide
asso132
Bonjour,
J'ai repris rapidement les insctruction dans le module 2
'1- Trier la Feuille Jof par Numclub
'2- Incrire le n° d'équipe en colonne S
' SI(J2<>J3;1;1+N2)
'3- créer une msgbox " équipe céée"
1- J'ai enregistré une macro sur le bouton, elle tri du plus petit, au plus grand numéro d'équipe.
2-J'ai fait le test, à chaque fois qu'une nouvelle équipe est trouvée dans le tableau, on renvoit le numéro en S
3-On a un message Box avec "Nouvelle équipe enregistrée (N°équipe)" qui apparait.
Vérifie si cela fonctionne bien chez toi.
Bonjour Timothée, Le Forum
Merci
1-ok, le tri sur N°club se fait correctement.
Il se fait par ordre alphabétique
Est il possible de "forcer" le tri selon un ordre défini (ex National/Académique/Départemental/District) ??
Du niveau le plus fort au plus faible?
2-je me suis trompé, c'est en colonne N (Eq) que le n° d'équipe doit s'afficher , pas bien grave, j'ai modifiée dans la macro
19 par 14 pour que cela se fasse en colonne N
Cells(i, 19).Value = Cells(i, 10).Value
MsgBox "Nouvelle équipe enregistrée" & "(" & Cells(i, 19).Value & ")"
3- Par contre le n°d'équipe n'est pas bon. (C'est le n° de club qui s'affiche)
il peut y avoir plusieurs équipes dans un même club
le 1er n° doit être 1 puis 2 puis etc ....
ex: SI(J2<>J3;1;1+N2)
Après avoir trié par Club/niveau
je compare les 2 n° de club, si celui de la ligne au dessus est différent, c'est que 'l on a une nouvelle équipe, dans la cellule sélectionnée, donc le n° d'equipe en colonne N commencera par 1
merci pour ton aide
Asso132
Resalut
J'ai réussi à corriger le tri pour le n° des équipe
'Tri du plus petit au plus grand numéro club
ActiveWorkbook.Worksheets("JOF").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("JOF").Sort.SortFields.Add Key:=Range("J3"), _
SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("JOF").Sort
.SetRange Range("A2:N1000")
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
'SI(J2<>J3;1;1+N2)
For i = 3 To Cells(Rows.Count, "A").End(xlUp).Row
If Cells(i, 10) <> "" And Cells(i, 10) <> Cells(i - 1, 10) Then
Cells(i, 14).Value = 1
Else
Cells(i, 14).Value = 1 + Cells(i - 1, 14).Value
End If
Next i
MsgBox "Toutes les équipes sont enregistrées"
End Sub
qu'en penses tu?
merci
Asso132
Le tri par niveau :
Accueil -> Edition -> Trier et Filtrer -> Tri personnalisé ... ->Trier Par-> "Colonne L"-> Ordre -> Liste Personnalisée -> Entrée de la liste ->(tu tapes) National -> "Touche entrée -> (tu tapes) Académique ->...-> Ajouter -> Ok
Normalement ça tri par niveau, et par niveau cela conserve le tri par numéro de club (du plus petit au plus grand).
Il reste autre chose à revoir ?
Salut
mais si on change d'ordi, le tri va t il se faire ????
dans mon dernier fichier il y a une demande en module 4.
les résultats
merci
ass132
On peut toujours sauvegarder une macro en faisant l'ajout du tri, normalement Excel devrait l'enregistré (pas tester)
Sinon tu peux m'indiquer avec précision :
- Le système de points -> où le trouver (c'est situé colonnes T/U/V/W ?, comment le système fonctionne ?)
- Pour l'homogénéité des groupes (c'est classement performances individuelles avec au moins un gars/ une fille par groupe, le tout dans le même club, ça on est d'accord?)
- Pas de mix entre les niveaux (ça sa va j'ai déjà la solution en tête)
- On note le numéro du dossard
Je pense que c'est à peu près tout ce que je voulais vérifier.
Salut
Total points individuel = colonne T = somme (N :S )
Par équipe = 1 gars+ 1 fille (les meilleurs) + 2 meilleurs totaux points suivants (peu importe le sexe)
pas de mix entre les niveaux ' niveau possible dépend des colonnes G et H : )
Pour colonne g = 2 niveaux possibles
oui= excellence
non =etab
pour H l'exemple donne 2 niveaux
débutant et expert mais il peut en avoir plus selon le cas.
donc ici dans l exemple il y a 3 choix de classement
1- excellence
2- Etab/Débutant
3-Etab/ Expert
et les résultats se mettent en feuille Equip_Col ou Equip_Lyc selon le type etab.( cf pj)
j espère que mes explications sont claires
merci
asso132