Contenu récent par laurent950

Bonsoir, Avec l'explication detailé c'est mieux.

Bonsoir Bonsoir KTM, @job75 , N'importe quoi Option Explicit Sub exporter_selection() ' --- DÉCLARATION DES VARIABLES (Tout au début pour Option Explicit) --- Dim chrt As ChartObject Dim choix As Variant Dim sFormula As String Dim arrParts As Variant Dim rngData As...

Bonsoir KTM, @job75 , N'importe quoi Option Explicit Sub exporter_selection() Dim chrt As ChartObject Dim choix As Variant Dim sFormula As String Dim arrParts As Variant Dim rngData As Range Dim wbNew As Workbook ' 1. Vérifier si un graphique est sélectionné...

Bonsoir, avec AGREGAT(sans matricielle) Ps : il faudrait borner la matrice : $H$5:$H pour $H$5:$H$100000 en exemple pour toutes les plages des formules 2023Taux Horaire Début N-2 (2023)Taux Horaire Fin N-2 (2023)Taux Horaire Début N-1 (2024)Taux Horaire Fin N-1 (2024)Taux Horaire Début N...

Bonjour, Avec une formule matricielle : Ps : il faudrait borner la matrice : $H$5:$H pour $H$5:$H$100000 en exemple pour toutes les plages des formules Pour les années : feuille "Table" ---->>> Cellules 2023 "Table" ---->>> $A$2 2024 "Table" ---->>> $A$3 2025 "Table" ---->>>...

Bonsoir @job75 une variante intéressante (On reste dans la matrice) =SI(NB.SI($B$2:B2;B2)>1;"";SOMMEPROD(($B$2:$B$12=B2)*($C$2:$C$12)))

Bonsoir @Hdv95 Sub RenommerFeuillesDepuisListe() Dim wsListe As Worksheet Dim i As Long Dim nomFeuille As String ' La liste des noms est en Feuil1, colonne A (A1:A5) Set wsListe = Worksheets(1) ' feuille contenant la liste des noms i = 1 Do While wsListe.Cells(i...

Bonsoir @job75 Formule : =SOMMEPROD((A3:AC3=0)*(MOD(COLONNE(A3:AC3)-COLONNE(A3);3)=1)) '........... / Résultat = 4 pour les 0 Décomposition ci-dessous On utilise MOD pour reproduire un pattern régulier sur une plage de cellules, comme une expression régulière (regex) mais appliquée aux...

Bonsoir @job75 , @DUMART , le forum Somme prod colonne non contigüe. La Formule : pour la ligne 3 de la [Colonne de A à AC] =SOMMEPROD((A3:AC3=0)*(MOD(COLONNE(A3:AC3)-COLONNE(A3);3)=1)) '........... / Résultat = 4 pour les 0 =SOMMEPROD((A3:AC3=1)*(MOD(COLONNE(A3:AC3)-COLONNE(A3);3)=1))...

Bonsoir =SOMME(DECALER(Feuil1!$C6:$G6;;(COLONNE(A1)-1)*5;;5))

Bonsoir @patricktoulon Je pense que tu peux gagner du temps en typant tes variables et tableaux en Long plutôt qu'en Variant. Dans ton post #1, tu devrais voir une nette amélioration du chrono en appliquant cela.

j'ai pas mieux @patricktoulon NombreElements : 50 000 ' Temps Mélange : 3,50 ms Temps Collage : 39,60 ms Pour NombreElements : 1 048 576 Temps Mélange : 177,00 ms Temps Collage : 723,34 ms Option Explicit ' --- Déclaration des API Windows (Haute Précision) --- #If VBA7 Then Private...

Bonsoir @patricktoulon en passant par un tableau 1D test Fisher-yates OK en vba 1D (Champion) avec 40; items IDnr Name Count Sum of tics Percentage Time sum 0 Fisher-yates OK en vba 1D (Champion) 1 63 100,00% 6 us TOTAL...

Sub TestMultiplication() ' Une valeur très précise Dim texte As String texte = "0,123456789012345678901234567890" ' --- CAS 1 : LE VARIANT --- Dim v As Variant v = texte ' v contient le texte, "0,123456789012345678901234567890". ' On fait une opération...

Bonsoir @job75 Pour etre au top : Pour une valeur comme x = "0,1234567890123456789012345678901234567890", il vaut mieux déclarer x As String. Comme ça, on garde la valeur telle quelle, en texte pur, sans aucune conversion automatique. Si on laisse x en Variant, VBA peut faire des conversions...