Autres accelerer les fonction

S

samia89

XLDnaute Nouveau
bonjour tt le monde j'ai besoin de votre svp y a t'il un moyen d’accelerer ces fonctions car elle sont très lentes

VB: 
=INDEX(Mouvement!$F$1:$F$9959;MIN(SI((Mouvement!$B$7:$B$1000="sortie")*(Mouvement!$C$7:$C$1000=$A$1)*(NB.SI(A$4:A4;Mouvement!$F$7:$F$1000)=0);LIGNE(Mouvement!$F$7:$F$1000))))&""

Code: 
=SI($A5="";"";SOMMEPROD((Mouvement!$F$7:$F$1000=$A5)*(Mouvement!$C$7:$C$1000=$A$1)*(Mouvement!$G$7:$G$1000)*(Mouvement!$B$7:$B$1000="sortie")))

voila l'image du tableau sur le quel je travail e je vous joint mon classeur pour bien voir le problème de lenteur au moment d'exécution des fonctions j’espère vous lire bien tôt
image002.jpg
 

Pièces jointes

  • fonctions.xlsm
    104.5 KB · Affichages: 19
Trier par date Trier par votes
S

samia89

XLDnaute Nouveau
Dranreb à dit:
C'est la première fois que je vois ça. Normalement le message affiche aussi en dessous l'Err.Description. Quelle est elle ?
Si vous tentiez de l'enregistrer manuellement sur votre dossier de complément (donné par Application.UserLibraryPath) comme fichier de type "Complément Excel (*.xlam)" que se passerait-il ?
Cliquez pour agrandir...
Instalation abondonnée recommandation ne prenez pas le projet CLsCAs de ce classeur précurseur comme référence dans un autre projet
 
Vote positif 0 Vote négatif
Dranreb

Dranreb

XLDnaute Barbatruc
Il faut d'abord régler le problème de l'installation du CBxLCtlA. Ça m'inquiète cette histoire là.
Non, ça c'est après, mais avant quand il fait :
Err.Clear: Me.SaveAs ChNomF, FileFormat:=xlOpenXMLAddIn
If Err Then MsgBox "Impossible d'enregistrer le complément." _
& vbLf & "Erreur " & Err & " :" & vbLf & Err.Description, _
vbCritical, Titre: Exit Function
Cliquez pour agrandir...
qu'est-ce qu'il met comme Err.Description ?
C'est d'autant plus bizarre que l'installation du GigIdx avait bien marché, or il procède exactement de la même façon !

Je joins le générateur d'UserForm permettant de créer celui que j'ai montré.
 

Pièces jointes

  • GénérateurUFm.xlsm
    425.3 KB · Affichages: 11
Vote positif 0 Vote négatif
S

samia89

XLDnaute Nouveau
Dranreb à dit:
Il faut d'abord régler le problème de l'installation du CBxLCtlA. Ça m'inquiète cette histoire là.
Non, ça c'est après, mais avant quand il fait :qu'est-ce qu'il met comme Err.Description ?
C'est d'autant plus bizarre que l'installation du GigIdx avait bien marché, or il procède exactement de la même façon !

Je joins le générateur d'UserForm permettant de créer celui que j'ai montré.
Cliquez pour agrandir...
y a erreur a l'ouverture du classeur GénérateurUFm excel a rencontre un contenu illisible dans GénérateurUFm......
bon si pas méchant je vais travailler directe avec la premier solution VBA que tu ma proposer tout a l'heur elle fonctionne très bien et merci pour tout
 
Vote positif 0 Vote négatif
S

samia89

XLDnaute Nouveau
samia89 à dit:
Instalation abondonnée recommandation ne prenez pas le projet CLsCAs de ce classeur précurseur comme référence dans un autre projet
Cliquez pour agrandir...
Dranreb à dit:
Je joins quand même le classeur équipé de l'UserForm, à tout hasard.
Réessa
Cliquez pour agrandir...
désolé pour le derangement
voila le message d'erreur a l'ouverture de CBxLCtlA il est impossible d'enregistrer le compliment erreur 1004
la méthode 'SaveAs' de l'objet'_workbook' a échoué
 
Vote positif 0 Vote négatif
Dranreb

Dranreb

XLDnaute Barbatruc
Il me vient une idée : dans VBE, faites ALT+OO (Outils/Options…), voyez onglet Général, rubrique Récupération d'erreur.
Si c'est Arrêt sur toutes les erreurs qui est coché, ça explique tout.
Même Arrêt sur les erreurs non gérées n'est pas idéal, je vous conseille de cocher Arrêt dans le module de classe.
Mais dans ce cas pourquoi diable l'installation du GigIdx avait marché ???
Je l'ai refaite chez moi sans problème.
 
Vote positif 0 Vote négatif
Dranreb

Dranreb

XLDnaute Barbatruc
Oui j'y répondrai sans doute. Mais le principe c'est de ne JAMAIS travailler directement avec des cellules individuelles. Toujours passer par des tableaux VBA dynamiques. Il prend pratiquement autant de temps à accéder à une seule cellule qu'à 100000 d'un coup !
Je joins à tout hasard le CBxlCtla au cas ou il aurait subi des dégâts au transfert la 1ère fois.

Si ça ne va toujours pas, est-ce que la tentative manuelle comme décrite au poste #13 indiquerait pourquoi ? Essayez !
Le chemin du dossier de compléments c'est généralement C:\Users\………\AppData\Roaming\Microsoft\AddIns. Vous devez y avoir déjà le GigIdx.xlam
 

Pièces jointes

  • CBxLCtlA.xlsm
    168.5 KB · Affichages: 5
Dernière édition:
Vote positif 0 Vote négatif
Dranreb

Dranreb

XLDnaute Barbatruc
Oui, c'est normal, c'était juste l'UserForm sans encore aucune programmation dedans.
J'ai l'impression que le code indiqué pourrait ce réécrire en utilisant la fonction Gigogne. Voir l'aide, et s'inpirer de l'autre procédure.
 
Dernière édition:
Vote positif 0 Vote négatif
mapomme

mapomme

XLDnaute Barbatruc
Supporter XLD
Bonjour à tous,

Une piste pour la réponse à la première question: utilisation d'une fonction personnalisée matricielle : RecapJour(....)
L'utilisation est expliquée dans le fichier. Cela semble être rapide.

Le code de la fonction est dans module1:
VB: 
Function RecapJour(xSource As Range, Action As String, leJour As Date)
Dim t, dico, i&, j&, N&, plage, r, res
   t = xSource.Value2
   Set plage = Application.Caller
   ReDim res(1 To plage.Rows.Count, 1 To plage.Columns.Count)
   For i = 1 To UBound(res): For j = 1 To UBound(res, 2): res(i, j) = "": Next j: Next i
   Set dico = CreateObject("scripting.dictionary")
   dico.CompareMode = vbTextCompare
   For i = 1 To UBound(t)
      If LCase(t(i, 1)) = LCase(Action) And t(i, 2) = leJour Then
         If Not dico.Exists(t(i, 5)) Then N = N + 1: dico(t(i, 5)) = N
      End If
   Next i
   If dico.Count = 0 Then RecapJour = res: Exit Function
   ReDim r(1 To dico.Count, 1 To 4)
   For i = 1 To UBound(t)
      If LCase(t(i, 1)) = LCase(Action) And t(i, 2) = leJour Then
         N = dico(t(i, 5))
         r(N, 1) = t(i, 5): r(N, 2) = r(N, 2) + t(i, 6)
         r(N, 3) = t(i, 7): r(N, 4) = r(N, 4) + t(i, 6) * t(i, 7)
      End If
   Next i
   On Error Resume Next
   For i = 1 To UBound(r): For j = 1 To UBound(r, 2): res(i, j) = r(i, j): Next j: Next i
   RecapJour = res
End Function
 

Pièces jointes

  • samia89- fonctions- v1.xlsm
    112.3 KB · Affichages: 11
Vote positif 0 Vote négatif
S

samia89

XLDnaute Nouveau
mapomme à dit:
Bonjour à tous,

Une piste pour la réponse à la première question: utilisation d'une fonction personnalisée matricielle : RecapJour(....)
L'utilisation est expliquée dans le fichier. Cela semble être rapide.

Le code de la fonction est dans module1:
VB: 
Function RecapJour(xSource As Range, Action As String, leJour As Date)
Dim t, dico, i&, j&, N&, plage, r, res
   t = xSource.Value2
   Set plage = Application.Caller
   ReDim res(1 To plage.Rows.Count, 1 To plage.Columns.Count)
   For i = 1 To UBound(res): For j = 1 To UBound(res, 2): res(i, j) = "": Next j: Next i
   Set dico = CreateObject("scripting.dictionary")
   dico.CompareMode = vbTextCompare
   For i = 1 To UBound(t)
      If LCase(t(i, 1)) = LCase(Action) And t(i, 2) = leJour Then
         If Not dico.Exists(t(i, 5)) Then N = N + 1: dico(t(i, 5)) = N
      End If
   Next i
   If dico.Count = 0 Then RecapJour = res: Exit Function
   ReDim r(1 To dico.Count, 1 To 4)
   For i = 1 To UBound(t)
      If LCase(t(i, 1)) = LCase(Action) And t(i, 2) = leJour Then
         N = dico(t(i, 5))
         r(N, 1) = t(i, 5): r(N, 2) = r(N, 2) + t(i, 6)
         r(N, 3) = t(i, 7): r(N, 4) = r(N, 4) + t(i, 6) * t(i, 7)
      End If
   Next i
   On Error Resume Next
   For i = 1 To UBound(r): For j = 1 To UBound(r, 2): res(i, j) = r(i, j): Next j: Next i
   RecapJour = res
End Function
Cliquez pour agrandir...

bonjour mapomme merci pour ton aide oui le code fonction très bien il affiche les resultats rapidement
mapomme à dit:
Bonjour à tous,

Une piste pour la réponse à la première question: utilisation d'une fonction personnalisée matricielle : RecapJour(....)
L'utilisation est expliquée dans le fichier. Cela semble être rapide.

Le code de la fonction est dans module1:
VB: 
Function RecapJour(xSource As Range, Action As String, leJour As Date)
Dim t, dico, i&, j&, N&, plage, r, res
   t = xSource.Value2
   Set plage = Application.Caller
   ReDim res(1 To plage.Rows.Count, 1 To plage.Columns.Count)
   For i = 1 To UBound(res): For j = 1 To UBound(res, 2): res(i, j) = "": Next j: Next i
   Set dico = CreateObject("scripting.dictionary")
   dico.CompareMode = vbTextCompare
   For i = 1 To UBound(t)
      If LCase(t(i, 1)) = LCase(Action) And t(i, 2) = leJour Then
         If Not dico.Exists(t(i, 5)) Then N = N + 1: dico(t(i, 5)) = N
      End If
   Next i
   If dico.Count = 0 Then RecapJour = res: Exit Function
   ReDim r(1 To dico.Count, 1 To 4)
   For i = 1 To UBound(t)
      If LCase(t(i, 1)) = LCase(Action) And t(i, 2) = leJour Then
         N = dico(t(i, 5))
         r(N, 1) = t(i, 5): r(N, 2) = r(N, 2) + t(i, 6)
         r(N, 3) = t(i, 7): r(N, 4) = r(N, 4) + t(i, 6) * t(i, 7)
      End If
   Next i
   On Error Resume Next
   For i = 1 To UBound(r): For j = 1 To UBound(r, 2): res(i, j) = r(i, j): Next j: Next i
   RecapJour = res
End Function
Cliquez pour agrandir...



bonjour mapomme merci pour ton aide oui le code fonction bien il affiche les résultats rapidement
ma 2eme question et ce que en peut associer un autre critère de recherche a 'A1'date' on ajoutent la cellule 'E1' pour inséré par ex des nom client' et le résultat finale doit être de cette façon:

quand j'ajoute un nom 'qui se trouve dans ma base de donné' dans la cellule ' E1' le résultat doit afficher uniquement ' le détail des sortie pour le nom 'E1' de la date inséré dans 'A1'




et merci encor une fois
 
Vote positif 0 Vote négatif
S

samia89

XLDnaute Nouveau
Dranreb à dit:
Oui, c'est normal, c'était juste l'UserForm sans encore aucune programmation dedans.
J'ai l'impression que le code indiqué pourrait ce réécrire en utilisant la fonction Gigogne. Voir l'aide, et s'inpirer de l'autre procédure.
Cliquez pour agrandir...
Dranreb à dit:
Oui, c'est normal, c'était juste l'UserForm sans encore aucune programmation dedans.
J'ai l'impression que le code indiqué pourrait ce réécrire en utilisant la fonction Gigogne. Voir l'aide, et s'inpirer de l'autre procédure.
Cliquez pour agrandir...

merci comme meme pour ton aide Dranreb
 
Vote positif 0 Vote négatif
S

samia89

XLDnaute Nouveau
mapomme à dit:
Re,

Pour le critère 'Client", on a ajouté un 4ème argument à la fonction RecapJour(...)
Voir fichier joint.
Cliquez pour agrandir...

rebonjour mapomme tt fonction bien mais y a un petit problème j'ai oublier de le souligner dans le poste précédent si que quand la cellule 'E1' et vide le résultat doit être tout de même afficher tout les résultat des sortie de la date inséré dans "A1'
toutes mes excuses et merci encor une fois
 
Vote positif 0 Vote négatif

Discussions similaires

U
  • Résolu(e)
Autres Centrer ou Annuler Centrer
Réponses
12
Affichages
448
un internaute
U
p'tit vieux
  • Question
XL 2021 VBA: Extraction des paramètres d'une formule (texte)
2
Réponses
28
Affichages
620
p'tit vieux
p'tit vieux
B
  • Résolu(e)
Microsoft 365 affecter des valeurs dans un tableau de noms de variable
Réponses
4
Affichages
668
bérylion
B
D
  • Question
XL 2016 Exporter au format PDF dans un dossier existant les colonnes ciblées et en filtrant les lignes qui contiennent une valeur quelconque.
Réponses
6
Affichages
619
Phil69970
Phil69970
G
  • Question
Microsoft 365 Export données d'une listview
Réponses
5
Affichages
413
GClaire
G
S
  • Résolu(e)
XL 2016 problème de filtre dans listbox
2 3 4
Réponses
51
Affichages
2 K
saidoush
S
P
  • Question
XL 2019 Copier des cellules d'une feuille sur une autre
Réponses
2
Affichages
530
phoceenjo
P
M
  • Question
XL 2019 Historique, affichage antichronologique des sorties
Réponses
3
Affichages
324
Lolote83
L
Roland_M
  • Question
XL 2016 Tri (Filtrer) ne tri pas toutes les colonnes !?
Réponses
6
Affichages
678
Roland_M
Roland_M
B
  • Question
XL 2013 Automatiser une formule sur les nouvelles lignes insérées en fonction d'une recherche sur les enregistrements
Réponses
9
Affichages
437
bedley
B

Membres actuellement en ligne

2 membres et 37 invités.

Partager cette page

Tutos vidéos

Power Query : Ajouter des requêtes (Excel et Power BI)
Créez votre première fonction LAMBDA dans Excel en 3 étapes!
LAMBDA, l’arme secrète de Microsoft pour Excel !
Office Insider - Découvrez les nouveautés Excel avant tout le monde

Statistiques des forums

Discussions
314 645
Messages
2 111 536
Membres
111 184
dernier inscrit
amiko