Contenu récent par laurent950

  1. laurent950

    XL 2016 Exporter Graphique sur nouveau classeur

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

    XL 2016 Exporter Graphique sur nouveau classeur

    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...
  3. laurent950

    XL 2016 Exporter Graphique sur nouveau classeur

    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é...
  4. laurent950

    Microsoft 365 recherche avec critère variable

    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...
  5. laurent950

    Microsoft 365 recherche avec critère variable

    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" ---->>>...
  6. laurent950

    XL 2019 additionner plusieurs valeurs pour un même sku

    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)))
  7. laurent950

    Microsoft 365 nommer automatiquement les différentes feuilles d'un dossier

    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...
  8. laurent950

    XL 2021 calculer nombre de cellules contant 1 dans colonnes non contigües

    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...
  9. laurent950

    XL 2021 calculer nombre de cellules contant 1 dans colonnes non contigües

    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))...
  10. laurent950

    Microsoft 365 recopie de valeur cellule avec decalage

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

    Fisher-yates KO en vba

    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.
  12. laurent950

    Fisher-yates KO en vba

    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...
  13. laurent950

    Fisher-yates KO en vba

    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...
  14. laurent950

    Autres résultats differents entre formule et macro (excel 2007)

    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...
  15. laurent950

    Autres résultats differents entre formule et macro (excel 2007)

    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...
Retour