Microsoft 365 Amélioration Fichier excel

[stella69670]

Bonjour à tous,
J'ai créer il y a quelques temps, avec mes minimes connaissances et votre aide ce fichier pour ma collègue.
Sauf que les lignes s'entasse et la visibilité est de moins en moins lisible.
Sa fonction primaire à ce fichier est de copier-coller la commande excel reçu par mail à la suite.
Mais je me demande s'il n'existe pas de meilleurs solutions pour suivre ces commandes ? J'ai pensé à un formulaire VBA, une BDD Access mais concrêtement de vos retours qu'est-il le plus facile à faire et à exploiter ?

Merci pour votre lecture à très vite

 

[riton00]

Bonsoir,

Je ne suis pas un pro du VBA je dirais plutôt que je bricole beaucoup en fouinant par ci par là mais......
je te propose peut-être un truc simple c'est de masquer tes lignes par noms du coup ta visibilité de la feuil1 sera meilleur et du coup ce sera toujours mieux que rien comme proposition voir listes déroulantes

Slts

 

[Bebere]

bonsoir
il y a des erreurs(ex: If cel.Value - Range("L1").Value > 0 And cel.Value - Range("L1").Value >= 1 Then
L1 doit être M1(formule aujourdhui).La formule devrait être en dehors de la base
colonne L devrait contenir des dates
Un exemple de ce que tu reçois serait le bienvenu
mettre dans une autre feuille ce qui est terminé

 

[stella69670]

Bonjour, Merci pour votre retour,
https://www.cjoint.com/c/JLeiXnfLn7y
Voici le fichier reçu de base, en c-joint car trop volumineux.
Nous avons beaucoup de références et plus de 50 campings, d'où le nombre de lignes qui "ME" fait mal aux yeux

 

[stella69670]

bonsoir
il y a des erreurs(ex: If cel.Value - Range("L1").Value > 0 And cel.Value - Range("L1").Value >= 1 Then
L1 doit être M1(formule aujourdhui).La formule devrait être en dehors de la base
colonne L devrait contenir des dates
Un exemple de ce que tu reçois serait le bienvenu
mettre dans une autre feuille ce qui est terminé

Ah oui merci, ma collègue a rajouté des colonnes à mon fichier initial, ce qui a faussé le code

 

[Bebere]

bonjour
met le dernier fichier au format binaire(taille devient 3,48M)
transfère userform1 de ce fichier dans le dernier fichier
tu le lances avec touche fonction F5
pour ma part , dans bon de commande les lignes(colonne A) qui sont en gras
je rajouterais une colonne en A et mettrais ces lignes ds la nouvelle colonne

 

[stella69670]

Bonjour, je vous prie de m'excuser pour mon silence j'étais en arrêt, bref
Je ne vois pas de données en A en Gras. Mais pas contre l'idée du userform modifiable m'a séduite. Il va falloir que je creuse pour voir comment on fait, car niveau lisibilité c'est excellent.
Merci beaucoup. Je reposterai surement pour demander conseil
prenez soin de vous

 

[stella69670]

j'ai pu débuter mon code, et mon userform mais j'ai un beug dans le code suivant :

Private Sub TextBox1_Change()
Feuil4.Cells.Clear
Feuil4.[M1] = bddfeuil1.Cells(1, critere)
Feuil4.[M2] = Me.TextBox1.Value & "*"

Feuil1.[A1].CurrentRegion.AdvancedFilter Action:=xlFilterCopy, criteriarange:=Feuil4.[M:M2], copytorange:=Feuil4.[M1], Unique:=False
If Feuil4.[M1].CurrentRegion.Rows.Count > 1 Then
Set plagefeuil4 = Feuil4.[M1].CurrentRegion.Offset(1).Resize(Feuil4.[A1].CurrentRegion.Rows.Count - 1)
Me.ListBox1.RowSource = plagefeuil4.Address(external:=True)
End If
End Sub

Mon Advancedfilter ne foncitonne pas et du coup, lorsque je test la macro rien de fonctionne. Pourriez-vous m'expliquer svp ?

 

[Bebere]

Bonjour
Stella
userform est fait pour bon de commande
dans bon de commande A5 A92,lignes colorées
si tu veux faire un tri sur family il faut ajouter une page et créer un code pour cette page
je vais faire un exemple dans un fichier plus mince
'Feuil4.[M1] = bddfeuil1.Cells(1, critere)
bddfeuil1 et critère non défini
explique ce que tu veux faire
merçi pour le conseil et pareillement pour toi