XL 2021 Alléger, simplifier et optimiser un fichier excel

[momo27]

Bonjour tout le monde,
voici un classeur excel contenant des macros, je vous demande de l'alléger et l'optimiser pour une meilleure efficacité.

 

[momo27]

Bonjour
la nuit porte conseil
Le mieux serai que tu me fasse un fichier Excel (sans macro) correspondant à ce que tu souhaites
Le plus important c'est que la présentation corresponde à tes souhaits...
Je ferai la partie macro et fonctionnement

A+ François

Salut François, désolé de t’embêter encore. Je t’envoie le fichier Excel sans macro. Merci beaucoup pour ton aide !

 

[fanfan38]

Bonjour
Ci joint ma solution

A+ François

 

[momo27]

Bonjour
Ci joint ma solution

A+ François

Bonjour François,
J’ai testé le classeur, et dans l’ensemble, c’est parfait — c’est beaucoup plus fluide et fonctionnel. Merci encore !
Il reste toutefois deux petits points à corriger :
* Dans l’onglet "FACTURE", le bouton "RESTAURE" ne fonctionne pas.
* Toujours dans "FACTURE", la fenêtre de recherche affiche une erreur lorsque j’essaie de saisir un article dans le champ "Contient".
Peux-tu y jeter un œil quand tu auras un moment ?
Merci d’avance pour ton aide !

 

[fanfan38]

Bonjour
Restaure un ajout de dernière minute non contrôlé: corrigé
Recherche: chez moi ça marche
si tu tapes 7 (par exemple) dans la liste tu as la liste des produits
IL faut choisir un de ces produits (même si il n'y en a qu'un)
Sinon explique, ou mieux, affiche, l'erreur

A+ François

 

[momo27]

en tapant un lettre dans le champ "Contient", je reçois un code d'erreur :

 

[fanfan38]

Bonjour
Après plusieurs essais, je n'ai pas d'erreur?

A+ François

 

[TooFatBoy]

Bonjour,

en tapant un lettre dans le champ "Contient", je reçois un code d'erreur :

Montrer un message d'erreur, c'est bien.
Mais montrer aussi la ligne incriminée, c'est mieux. 😉

Utilises-tu un Excel 32 ou 64 bits ?

 

[ChTi160]

Bonjour le fil ,
Chez moi , pas de problème ! (W11 365 32)
Bonne Journée
jean marie

 

[TooFatBoy]

en tapant un lettre dans le champ "Contient", je reçois un code d'erreur

Pas de code d'erreur chez moi (2016 32), ni dans le UserForm "Usf_commande" ni dans le UserForm "Usf_stock".



Il faudrait commencer par nettoyer ton classeur :
- Feuille "STOCK" : pourquoi va-t-elle jusqu'en L3189 alors que les données s'arrêtent en L25 ?
- Feuille "Facture" : pourquoi va-t-elle jusqu'en JH126 alors que les données s'arrêtent environ en Q62 ?
- Feuille "Facture" : pourquoi y a-t-il des boutons qui trainent en BP2, BP5, BP56, BP64, CF56, EM57 ?
- etc.



D'autre part, on constate une chose concernant la recherche, mais c'est avec le champ "Texte Recherché :" (sic) du UserForm "Rech2", c'est quelle ne fonctionne pas correctement :
- ça n'affiche pas ce que ça devrait (liste incomplète),
- quand on vide le champ "Contient", la liste complète ne réapparait pas.

[edit] J'ai jeté un œil sur la macro "T1_Change", et effectivement il y a deux petites erreurs : le 1er test est en trop et il manque un UCase. [/edit]

 

[fanfan38]

Bonjour
C'est pourquoi j'ai supprimé des lignes dans stock...
Je n'avais pas vu les boutons (supprimés)
Modif faite pour la recherche contient

A+ François

 

[TooFatBoy]

C'est pourquoi j'ai supprimé des lignes dans stock...

Dans le classeur de #70 tu as oublié de supprimer les lignes inutiles : la feuille "STOCK" va jusqu'en L3189. 😉


Tu as oublié de lui corriger sa macro "T1_Change".
Perso, mais ça n'engage que moi..., je proposerai de lui corriger sa macro de cette façon :

Private Sub T1_Change()
'
Dim tmp, i As Integer

    tmp = "*" & UCase(Me.T1) & "*"
    Me.L1.Clear
    For i = 1 To [T_stock].Rows.Count
        If UCase([T_stock].Item(i, 3)) Like tmp Then
            Me.L1.AddItem i
            Me.L1.List(Me.L1.ListCount - 1, 1) = [T_stock].Item(i, 3)
        End If
    Next i

End Sub

 

[fanfan38]

Si, Si, on va y arriver
Il me semblait les avoir supprimé..
Mais comment tu vois ça
sinon modif faite

A+ François

 

[TooFatBoy]

Mais comment tu vois ça

<Ctrl>+<Fin> 😉

 

[TooFatBoy]

Si, Si, on va y arriver

Je n'en doute pas : en toi toute confiance nous avons. 👍

 

[fanfan38]

Merci TooFatBoy....