Macro pour tri

Fermé

Ruffian19 - 3 oct. 2014 à 15:56
via55 Messages postés 14406 Date d'inscription mercredi 16 janvier 2013 Statut Membre Dernière intervention 28 avril 2024 - 3 oct. 2014 à 16:52

Bonjour,

Comment simplifier en supprimant "02" , Sub TFE, TFE veut dire Tri Février, car ce sont les mois je voudrais avoir un programme macro universelle qui trie tous les mois, les mois sont sur une feuille individuel, sans faire une macro pour chaque mois.
merci

Sub TFE()
'
' TFE Macro
'

'
Range("M3:W29").Select
ActiveWorkbook.Worksheets("02").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("02").Sort.SortFields.Add Key:=Range("M3"), SortOn _
:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("02").Sort
.SetRange Range("M3:W29")
.Header = xlNo
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
Range("K36").Select
End Sub

A voir également:

Macro pour tri
Macro word - Guide
Macro logiciel - Télécharger - Organisation
Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
Macro recorder - Télécharger - Confidentialité
Tri excel - Guide

1 réponse

Réponse 1 / 1

via55 Messages postés 14406 Date d'inscription mercredi 16 janvier 2013 Statut Membre Dernière intervention 28 avril 2024 2 703
Modifié par via55 le 3/10/2014 à 16:53

Bonjour,

Places en debut de macro les lignes suivantes :

Dim feuille As String
For n = 1 To 12
If n < 10 Then feuille = "0" & n Else feuille = n
Sheets(feuille).Select

puis remplace tous les "02" par feuille (sans guillemets)

et avant le End sub tu rajoutes la ligne

Next n

Cdlmnt

"L'imagination est plus importante que le savoir." A. Einstein

Discussions similaires

Est-ce que je peux aller chercher un colis à l'agence Chronopost

Transformer un chiffre en lettres dans excel sans macro

Copie automatique tableau Excel sans macro

recup couleur de cellule sans macro

Discussions similaires

Newsletters