Trier à l'aide d'une macro Résolu/Fermé

Question

Salut les amis 
j'ai une grande tache a traiter il s'agit de préparer 22 fichiers concernat  les liste des élèves qui vont bénéficier du soutien pendant le 2 eme semestre  dans les matières suivantes : math ; langue arabe et langue française chaque liste doit contenir les noms et les moyennes des élèves ayant une moyenne inférieure strictement à 5
la liste des élèves et les moyenne se trouvent dans la feuille " semestre "  je veux les extraire les listes dans la feuille " soutien " par une  macro 
 le classeur se trouve dans l'adresse ci-dessous  
http://www.cjoint.com/c/FBfqC0hdqjP
merci infiniment

Configuration: Windows 7 / Chrome 48.0.2564.103

Theo.R · Answer

Bonjour, Le code suivant devrait répondre à votre demande : Sub ElevesEnSoutien()Dim DernLigne As LongDernLigne = Sheets("semestre").Range("B" & Rows.Count).End(xlUp).Rowm = 6 'début de collage pour soutienFor i = 5 To DernLigne'FrançaisSheets("semestre").SelectIf Range("AI" & i).Value >= 5 ThenElse'Nom français Sheets("semestre").Select Range("B" & i).Select Selection.Copy Sheets("soutien").Select Range("L" & m & ":M" & m).Select ActiveSheet.Paste 'Moyenne français Sheets("semestre").Select Range("AI" & i).Select Application.CutCopyMode = False Selection.Copy Sheets("soutien").Select Range("N" & m & ":O" & m).Select ActiveSheet.PasteEnd If 'Fin Français'MathsSheets("semestre").SelectIf Range("X" & i).Value >= 5 ThenElse'Nom Maths Sheets("semestre").Select Range("B" & i).Select Selection.Copy Sheets("soutien").Select Range("H" & m & ":I" & m).Select ActiveSheet.Paste 'Moyenne Maths Sheets("semestre").Select Range("X" & i).Select Application.CutCopyMode = False Selection.Copy Sheets("soutien").Select Range("J" & m & ":K" & m).Select ActiveSheet.Paste End If 'Fin Maths 'ArabeSheets("semestre").SelectIf Range("P" & i).Value >= 5 ThenElse 'Nom Arabe Sheets("semestre").Select Range("B" & i).Select Selection.Copy Sheets("soutien").Select Range("D" & m & ":E" & m).Select ActiveSheet.Paste 'Moyenne arabe Sheets("semestre").Select Range("P" & i).Select Application.CutCopyMode = False Selection.Copy Sheets("soutien").Select Range("F" & m & ":G" & m).Select ActiveSheet.PasteEnd If 'Fin ArabeSheets("semestre").SelectIf Range("AI" & i).Value < 5 Or Range("X" & i).Value < 5 Or Range("P" & i).Value < 5 Thenm = m + 1End IfNext iEnd Sub

noe2008 · Answer

m
Même si vous trouvez une formule qui pourra faire la même chose faites moi signe
cordialement

f894009 · Answer

Bonjour a vous deux,

Theo.R:
les selects et activate sont a eviter car tres goumands en temps d'execution

neo2008: trois fichiers

https://www.cjoint.com/c/FBgkAwUzIbf

celui de Theo.R avec son temps d'execution
et deux autres avec temps d'execution qui peut etre ameliore un peu si vous trouvez que c'est encore trop long

le premier meme classement que Theo.R
le deuxieme un classement par matiere que je trouve plus logique

A vous de voir

noe2008 · Answer

oui elle marche bien mais est il possible qu'il n'aura plus de cellules vides

Trier à l'aide d'une macro

4 réponses

Discussions similaires