XL pour MAC Refonte complete d'un fichier, besoin d'idées

[nobodyuse]

Bonjour à toutes et tous

Après quelques temps de travail sur un fichier de suivi de commande d'articles pour des agents d'une entreprise reparties sur 3 sites différents
je me retrouve avec un fichier final fonctionnel, mais très lourd (26Mo pour les 5 années) ce qui rend mon fichier très lent

Tout d'abord je précise que je suis archi novice !
Je viens donc vers vous les pro du Excel afin de quérir quelques idées pour refaire mon entièrement mon fichier de manière a ce qu'il soit moins lourd et utilisable sur serveur d'entreprise par 3 personnes minimum (1 sur chaque site)

je vous expose donc le projet:

j'ai une base de donnée qui doit contenir les différents articles possible, pour lesquels il y a un prix unitaire, différentes tailles possible,
dans cette base de données il y a également une base de Nom/prénom, chef référent, leur site, et la somme qui leur ai attribué au 1er janvier 2020 (repris des années précédentes) il y a pour l’heure quelques 300 agents environs... Mais comme cela peut évoluer (départ en retraite, embauche, ...) il faut donc que ce fichier soit évolutif facilement
il me faut donc un système qui aille cherche les noms, en fonction du nom son chef, que 'l’on sépare les 3 sites si cela est possible...
il y a 3 commande par année civile (Janvier, Mai et Septembre)
il faut que l'on puisse rentrer leur éléments de commande avec des liste deroulantes (Articles, taille, quantité, Prix Unitaire) que ce soit calculé automatiquement et déduit de leur somme initiale
Évidemment chaque fois la somme est reporté sur la feuille de suivi de commande suivants (3 par année) une feuille de Bilan est ajouté pour la fin d'année et permet de voir le nombre d'articles commandé par agents et les totaux par sites (et total global) une feuille de suivi peux éventuellement être inséré ce qui permettrai d'avoir un archivage de ce qui a été commandé .... (si l'on pouvais même réussir a trier par articles et taille de manière a avoir une forme "d’état de la commande" ce serai top pour voir et suivre d'un coup d'oeil les quantités qu'il y a à commander et en quels tailles)
j'avais ajouté une fonction de Statut de remise a l'agent avec la date automatique (qui permet de suivre un peu savoir ou l'on en est)
Afin de réduire la taille du fichier sur chaque page de bilan j'ai inséré une macro qui permet de transformer le résultat des formules en données brutes et supprimer les feuilles de Janvier, Mai et Sept de l'année qui viens de s’écouler, afin de ne pouvoir garder que la feuille de bilan et reprendre la somme en fin d'année sur la nouvelles feuille de Janvier (Auquel on crédite chaque année la somme de 40€ cumulable d'une année sur l'autre sans jamais dépasser un montant de 120€)


je ne peux pas vous mettre le fichier que j'ai créer (Car trop gros même zippé)
je vous met cela dit des captures d'écrans une de la feuille de Janvier, une de la feuille bilan et une du type de feuille de suivi possible (qui pourrai remplacer la feuille de bilan (à voir)
je sais ce n'est pas top mais c'est vraiment pour donner une idée de ce que j'avais fait jusque la, mais comme cela ne vas pas forcement ....

Merci d'avoir pris le temps de lire jusqu'au bout en espérant avoir réussi a être assez clair
D'avance merci à tous

Feuille actuel de Janvier:

Feuille actuel de bilan:

Idée de feuille de suivi a voir:

Autre tentative de mise en forme:

D'avance Merci à tous

 

[nobodyuse]

Bon film et bonne soirée à vous deux
Et MERCI pour votre patience

 

[Phil69970]

Re

2 pour le prix d'un ....

Spoiler

https://www.excel-downloads.com/thr...feuille-existante-vba.20055575/#post-20417418

En image c'est plus parlant

Feuille toto c’est le nom de ton onglet (name) que l'utilisateur peut renommer
Mais Feuil1 en jaune c'est le nom interne (codename) de ta feuille qui lui n'est pas accessible à l'utilisateur sans passer par du code ....

@Phil69970

 

[nobodyuse]

j'ai bien écouté (je crois)
enlevé les cellules fusionnés, mis le bon codename de la feuille (Qui est donc feuil4)

et toujours cette foutu erreur

je vous joint le fichier modifié pour verification en cas que j'ai encore oublié un truc, et me dire si pour vous ça marche ou pas :/

 

[Staple1600]

Re

1) Reproduis fidèlement cet exemple
(Ici on est sur la feuille 1)

2) Copie/Colle le code ci-dessous

Spoiler: code VBA

Sub Archivage()
Application.ScreenUpdating = False
ARCHIVER_A
ARCHIVER_B
End Sub
Private Sub ARCHIVER_A()
Dim arrIN, arrOUT(), cpt As Long, i&
arrIN = Range("D3:D13").Value2
On Error Resume Next
For i = LBound(arrIN, 1) To UBound(arrIN, 1)
If Trim(arrIN(i, 1)) <> vbNullString Then
cpt = cpt + 1
ReDim Preserve arrOUT(1 To 2, 1 To cpt)
arrOUT(1, cpt) = arrIN(i, 1)
End If
Next i
Feuil2.Cells(Rows.Count, 1).End(3)(2).Resize(, cpt) = arrOUT
End Sub
Private Sub ARCHIVER_B()
Dim p As Range, arrIN, arrOUT(), i&, n&, k&, j%
Set p = Range("F3:I13")
arrIN = p: k = UBound(arrIN, 1)
For i = 1 To k
For j = 1 To 4
If Trim(arrIN(i, j)) <> vbNullString Then
If Trim(arrIN(i, j)) > 0 Then
n = n + 1
ReDim Preserve arrOUT(1 To 2, 1 To n)
arrOUT(1, n) = arrIN(i, j)
End If
End If
Next j
Next i
Feuil2.Cells(Rows.Count, 7).End(3)(2).Resize(, n) = arrOUT
End Sub

3) Affecte la macro archivage à un bouton placé sur la feuille 1
4) Clique sur le bouton
5) Va voir ce qui se passe sur la feuille 2.

 

[nobodyuse]

Re

1) Reproduis fidèlement cet exemple
(Ici on est sur la feuille 1)
Regarde la pièce jointe 1100565
2) Copie/Colle le code ci-dessous

Spoiler: code VBA

Sub Archivage()
Application.ScreenUpdating = False
ARCHIVER_A
ARCHIVER_B
End Sub
Private Sub ARCHIVER_A()
Dim arrIN, arrOUT(), cpt As Long, i&
arrIN = Range("D3:D13").Value2
On Error Resume Next
For i = LBound(arrIN, 1) To UBound(arrIN, 1)
If Trim(arrIN(i, 1)) <> vbNullString Then
cpt = cpt + 1
ReDim Preserve arrOUT(1 To 2, 1 To cpt)
arrOUT(1, cpt) = arrIN(i, 1)
End If
Next i
Feuil2.Cells(Rows.Count, 1).End(3)(2).Resize(, cpt) = arrOUT
End Sub
Private Sub ARCHIVER_B()
Dim p As Range, arrIN, arrOUT(), i&, n&, k&, j%
Set p = Range("F3:I13")
arrIN = p: k = UBound(arrIN, 1)
For i = 1 To k
For j = 1 To 4
If Trim(arrIN(i, j)) <> vbNullString Then
If Trim(arrIN(i, j)) > 0 Then
n = n + 1
ReDim Preserve arrOUT(1 To 2, 1 To n)
arrOUT(1, n) = arrIN(i, j)
End If
End If
Next j
Next i
Feuil2.Cells(Rows.Count, 7).End(3)(2).Resize(, n) = arrOUT
End Sub

3) Affecte la macro archivage à un bouton placé sur la feuille 1
4) Clique sur le bouton
5) Va voir ce qui se passe sur la feuille 2.

Bonsoir Staple, bonsoir le fil,

j'ai reproduit a l'identique mais ne sachant pas si pour les cases de la colonne D c'etait une liste deroulante ou simplement une forme, j'ai donc fait simple (K.I.S.S) en ne mettant qu'une forme

Voila le resultat les données sont bien importées en feuil2

 

[Staple1600]

Re

Donc voir maintenant si à l'usage cela te conviendrait.
(en adaptant)

 

[nobodyuse]

Re

Donc voir maintenant si à l'usage cela te conviendrait.
(en adaptant)

Il faut que je teste avec les menu déroulant
A voir ensuite pour éviter les doublons d’enregistrement dans la « feuil2 », puis pour croiser les données etc etc y’a encore du boulot derrière et je suis pas sûr d’y arriver seul
En tous cas merci Staple

 

[Staple1600]

Re

Pour rester Kissien
J'ai simplifié la précédente macro

Sub Archivage()
Application.ScreenUpdating = False
Dim arrINap As Range, arrIN, arrOUT(), i&, n&, k&, j%
arrINa = Array([D3], [D5], [D7], [D9], [D11], [D13])
Set p = Range("F3:I13"): arrIN = p: k = UBound(arrIN, 1)
For i = 1 To k
For j = 1 To 4
If Trim(arrIN(i, j)) <> vbNullString Then
If Trim(arrIN(i, j)) > 0 Then
n = n + 1
ReDim Preserve arrOUT(1 To 2, 1 To n)
arrOUT(1, n) = arrIN(i, j)
End If
End If
Next j
Next i
Feuil2.Cells(Rows.Count, 1).End(3)(2).Resize(, UBound(arrINa, 1) + 1) = arrINa
Feuil2.Cells(Rows.Count, 7).End(3)(2).Resize(, n) = arrOUT
End Sub

 

[nobodyuse]

Re

Pour rester Kissien
J'ai simplifié la précédente macro

Sub Archivage()
Application.ScreenUpdating = False
Dim arrINap As Range, arrIN, arrOUT(), i&, n&, k&, j%
arrINa = Array([D3], [D5], [D7], [D9], [D11], [D13])
Set p = Range("F3:I13"): arrIN = p: k = UBound(arrIN, 1)
For i = 1 To k
For j = 1 To 4
If Trim(arrIN(i, j)) <> vbNullString Then
If Trim(arrIN(i, j)) > 0 Then
n = n + 1
ReDim Preserve arrOUT(1 To 2, 1 To n)
arrOUT(1, n) = arrIN(i, j)
End If
End If
Next j
Next i
Feuil2.Cells(Rows.Count, 1).End(3)(2).Resize(, UBound(arrINa, 1) + 1) = arrINa
Feuil2.Cells(Rows.Count, 7).End(3)(2).Resize(, n) = arrOUT
End Sub

Bonsoir et Merci Staple
j’ai fait des tests ce jour, je me confronte à trop de soucis ainsi
Je cherche des solutions

 

[Staple1600]

RE

La solution idéale: demander à travailler sur un PC

 

[nobodyuse]

RE

La solution idéale: demander à travailler sur un PC

L’importation des données n’est plus vraiment le problème avec ta macro (ou même si j’utilise mon ancien fichier de bon de commande)
C’est le traitement et la réutilisation des données qui me pose plus de soucis

 

[Staple1600]

Re


Traitement come Tableau
Tableau comme Tableau Croisé
Tableau Croisé comme Tableau Croisé Dynamique
Dynamique comme être sur la bonne dynamique

 

[Staple1600]

Bonsoir le fil

Un version encore un peu remaniée

Sub Archiver()
Dim a, b, i&, j&, k&, f As Worksheet: Set f = Feuil2
a = Range("D3:H13").Value2
With Application
    .ScreenUpdating = False
    ReDim b(1 To UBound(a, 1) * UBound(a, 2), 1 To 1)
    For i = 1 To UBound(a, 1)
        For j = 1 To UBound(a, 2)
        If a(i, j) <> "" Then
        k = k + 1: b(k, 1) = a(i, j)
        End If
    Next: Next
    f.Cells(Rows.Count, 1).End(3)(2).Resize(, 6) = _
    Array([B3], [B5], [B7], [B9], [B11], [B13])
    f.Cells(Rows.Count, 7).End(3)(2).Resize(, k).Value = .Transpose(b)
End With
End Sub

NB: Adapter les plages selon les besoins.