Macro excel

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 ??

@red-69Bonsoir red-69,
La macro que gbinforme te propose est une macro évènementielle, donc quand tu es dans l'éditeur VBA, dans l'arborescence, il te faut double cliquer sur "Feuil1(récapitulatif)" et tu y verras la macro qu'il a faite.
Bonne nuit

@aquarelleBonjour,

j'essaye de faire tourner la macro de gbinforme, mais lorsque j'exécute sa macro à son exemple pour bien comprendre le principe, cela m'indique erreur d'exécution 424 et le débogage se bloque sur la ligne "For Each sel In zone".

que dois-je faire pour réussir à la faire fonctionner ?

@red-69Bonjour,
La macro de gbinforme n'est, en fait, pas une macro habituelle, comme je te l'ai dit au dessus c'est une macro évenementielle qui se déclenche seule à partir du moment où le contenu de certaines cellules changent, tu n'as pas à la lancer toi même.
Pour la déclencher, il te suffit de compléter dans la feuille "récapitulatif", une nouvelle ligne du tableau : n°client /QUANTITE/INTITULE /UNITE (la macro se déclenchera seule et ajoutera un nouvel onglet).
J'espère que ces explications t'aideront quelque peu.
Bonne journée

@aquarelleD'accord merci de ces explications.

Du coup je viens de le tester, cela fonctionne effectivement comme tu l'annonces.
Seul souci maintenant, si dans la feuille récapitulatif je créer la ligne 1 avec le client A pour une quantité de 1, intutile AA et Unité AA et sur la ligne 2 je créer le client A pour une quantité de 2, intutile AA et Unité AA, un nouvel onglet apparait nommé "A" (donc jusqu'ici tout va bien) par contre dans ce nouvel onglet, n'apparait que la ligne 2 le client A avec la quantité 1 n'existe pas.

Il me faudrait dans l'onglet A en ligne 1 le client A quantité 1 et en ligne 2 le client A avec la quantité 2

merci d'avance pour votre aide

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

@Le PingouBonsoir à tous.

Je viens de tester la modification apportée par Jean-Pierre que je remercie au passage. Cela fonctionne très bien avec mon modèle.
Je voudrais savois si, à partir de cette macro, il serait possible de créer un bouton de commande me permettant de faire des mises à jour de toutes les feuilles. Je m'explique, si par exemple mon entité A a une quantité de 200 et que j'ai besoin de la passer à 250, la macro ne tient pas comte de cette modification sauf à créer une nouvelle ligne auquel cas je me retrouve dans la feuille "A" avec une ligne A d'une quantité de 200 et une ligne "A" d'une quantité de 250.

merci d'avance de votre aide

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.