Macro excel

Merci gbinforme,
J'ai apprécié de découvrir votre procédure et d'enrichir mon savoir.
Bonne soirée.

Je me joins aux remerciements de Le Pingou car comme lui, la lecture de vos procédures me permet d'apprendre énormément.
Je profite donc aussi de l'occasion pour te saluer Le Pingou car cela faisait longtemps que nous ne nous étions pas croisés.
Bonne nuit et jolis rêves à tous ;-)

Merci gbinforme de répondre.

Le nom de clients n'est pas très élevé, entre 5 à 10 par fichier. En revanche j'ai un nombre important de ficihers excel c'est pour cela qu'une macro s'impose à mon avis.
Si tu pouvais me donner ton exemple, ce serait avec joie.

Bonjour,

Question pour les pros de la macro: que signifie le message "erreur de compilation dans le module caché this workbook"?

Ton fichier semble répondre à mes attentes. Je n'ai juste pas accès à la macro !!! je peux donc pas la reproduire pour mes propres fichiers. Pourrais-tu me la fournir stp ??

OK merci aquarelle, j'attendrais donc gbinforme

Bonsoir,
J'ai adapté le super modèle de gbinforme (au passage, merci de nous faire profiter de votre savoir)
par rapport à votre demande.
Entrer les données sur la feuille "EntrerData"
Le lien : https://www.cjoint.com/?ffwvdlfEIK

rebonjour à tous,

je souhaite apporter des modification à la macro de de gbinforme.

je voudrais trier les nouvelles feuilles par ordre croissant des dates en case H2
et j'aimerais une mise en page automatique .

J'ai donc rajouter les lignes suivantes :

Cells.Select 'tri par date croissante
Selection.Sort Key1:=Range("H2"), Order1:=xlAscending, Header:=xlYes, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal

Cells.Select ' ajustement lmise en forme
With Selection
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlCenter
.WrapText = True
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = True
.ReadingOrder = xlContext
.MergeCells = False
End With

Cette formule fonctionne mais pas systématiquement, donc je suis un peu perdu. Mes tableuax initiaux sont similaire dans la forme mais le résultat la macro ne donne pas les me^mes résultats. Dans certains cas la mise en forme est faite dans les nouveaux onglets avec le tri par date en H2 ; dans d'autre cas rien de tout cela n'est effectué .

D'après vous, où se situe l'erreur ??

très bien Le Pingou. Désolé. Voici la macro entière :


Option Explicit
___________________________________________________________
Public Sub Tri_par_nom()
' en fonction de la valeur de la colonne A
' création d'une feuille avec nom colonne A
' autres colonnes documentant les cellules concernées
Dim W1 As Worksheet ' feuille base
Dim W2 As Worksheet ' feuille client
Dim lig As Long ' ligne traitée
Dim feu As Object ' feuille présente
Dim ong As Integer ' numèro feuille
Set W1 = Sheets("Feuil1") ' position feuille base
Application.ScreenUpdating = False
For Each feu In Sheets ' suppression feuilles
If feu.Name <> W1.Name Then
Application.DisplayAlerts = False
feu.Delete
Application.DisplayAlerts = True
End If
Next feu
' création des feuilles client
For lig = 10 To W1.Cells(65536, 7).End(xlUp).Row
For ong = 1 To Sheets.Count ' test existance feuille
If Sheets(ong).Name = UCase(W1.Cells(lig, 7).Text) Then
Set W2 = Sheets(ong)
Exit For
End If
Next ong
If ong > Sheets.Count Then
For ong = 2 To Sheets.Count ' tri feuille
If Sheets(ong).Name > UCase(W1.Cells(lig, 7).Text) Then Exit For
Next ong ' création feuille
Sheets.Add(After:=Sheets(ong - 1)).Name = UCase(W1.Cells(lig, 7).Text)
Set W2 = ActiveSheet
W1.Rows(8).Copy Destination:=W2.Rows(1) ' ajout titre

End If
W1.Rows(lig).Copy Destination:=W2.Rows(W2.Cells(65536, 7).End(xlUp).Row + 1) ' ajout ligne traitée

Cells.Select 'tri par date croissante
Selection.Sort Key1:=Range("H2"), Order1:=xlAscending, Header:=xlYes, _
OrderCustom:=1, MatchCase:=True, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal

Cells.Select ' ajustement lmise en forme
With Selection
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlCenter
.WrapText = True
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = True
.ReadingOrder = xlContext
.MergeCells = False
End With


Next lig
W1.Activate
Application.ScreenUpdating = True
End Sub

Voila , encore merci

Bonjour gbinforme,
Juste pour comprendre: la notation W2.Cells.... à la place de Selection......
permet de se passer du Sheets(W2.Name).Select suivit du Cells.Select
Est-ce bien comme celà.!

merci à tous.

Cela fonctionne comme je le souhaitais.

Bonjour gbinforme,
Merci infiniment pour votre serviabilité et de vos explications qui me sont très profitables.
Excellente journée.