Contenu récent par job75

  1. job75

    Microsoft 365 Liste alphabétique

    Notez que chez moi la macro précédente est 3 fois plus rapide qu'une macro utilisant des tableaux VBA, le Dictionary et Quick sort.
  2. job75

    Microsoft 365 Liste alphabétique

    Bonjour à tous, Ne pas oublier que VBA est toujours là pour apporter une solution : Private Sub Worksheet_Change(ByVal Target As Range) Dim P As Range, n& Application.ScreenUpdating = False Application.EnableEvents = False 'désactive les évènements With ActiveSheet If .FilterMode Then...
  3. job75

    Microsoft 365 Mélange aléatoire de 2 lignes ( colonne ) de données

    C'est sûr que 130 lignes VBA c'est pas grand-chose par rapport à l'usine à gaz Excel. Mais 5 lignes c'est encore moins que pas grand-chose !
  4. job75

    Microsoft 365 Définir une zone "aléatoire" à sélectionner en VBA

    Bonjour le forum, Le problème posé est celui-ci : En l'occurrence on utilisera plutôt la propriété Resize : ActiveCell.Resize(101, 33).Select A+
  5. job75

    Microsoft 365 Mélange aléatoire de 2 lignes ( colonne ) de données

    Bonjour le forum, Je sais bien que la qualité du travail fourni ne se mesure pas en nombre de lignes. Mais le fichier du post #5 contient 130 lignes de code VBA, je trouve que c'est un peu beaucoup pour un problème somme toute très simple. A+
  6. job75

    Microsoft 365 Mélange aléatoire de 2 lignes ( colonne ) de données

    Le tri de la ligne contenant =ALEA() permet de faire un mélange aléatoire...
  7. job75

    Microsoft 365 Mélange aléatoire de 2 lignes ( colonne ) de données

    On peut se passer du tri VBA, ces formules en B8 et B9 fonctionnent sur toute version Excel : =RECHERCHEH(PETITE.VALEUR($B$3:$HI$3;COLONNE()-1);$3:4;2;FAUX) =RECHERCHEH(PETITE.VALEUR($B$3:$HI$3;COLONNE()-1);$3:5;3;FAUX) Touche F9 ou touche suppr sur une cellule vide pour un nouveau tirage.
  8. job75

    Microsoft 365 Mélange aléatoire de 2 lignes ( colonne ) de données

    Bonjour le forum, A priori s'il s'agit juste de mélanger les colonnes un tri horizontal sur la ligne 5 suffit : Sub Tri_horizontal() With [B3].Resize(3, 216) .Sort .Rows(3), Orientation:=2 End With End Sub A+
  9. job75

    Microsoft 365 suppression de plusieurs lignes dans des tableaux tres grands

    Bonjour à tous, Voici mon code pour ces nombres de lignes : Sub Initialisation() Application.ScreenUpdating = False [A2:E2] = Array("A00001", "B00001", "C00001", "D00001", "E00001") [A2:E2].AutoFill [A2:E17353] [J:J].ClearContents [J2:J13588] = "Oui" [K2:K17353] = "=RAND()": [K2:K17353] =...
  10. job75

    Power Query Power Query - Est-il possible d'inscrire des données d'un champ A provenant d'un enregistrement n sur un champ B d'un enregistrement n-1 ?

    Une question pour Flx1er : Vos compétences en langage M sont-elles suffisantes pour comprendre la solution du post #8 ?
  11. job75

    Power Query Power Query - Est-il possible d'inscrire des données d'un champ A provenant d'un enregistrement n sur un champ B d'un enregistrement n-1 ?

    Bonjour le forum, Oui Flx1er veut du PowerQuery, on peut ajouter cette MFC pour visualiser les corrections des colonnes K L M : =ET($K2=$H3;JOURSEM($K2)=2;--$L2=6) A+
  12. job75

    Microsoft 365 suppression de plusieurs lignes dans des tableaux tres grands

    Bonjour le forum, C'est classique : si la plage des lignes à supprimer est constituée d'un grand nombre (plusieurs milliers) de lignes disjointes leur suppression peut prendre beaucoup de temps. Pour y remédier il faut utiliser une colonne auxiliaire avec une formule de filtrage suivie d'un...
  13. job75

    XL 2021 Recherche du prix au litre Max, Mini, Moyen carburant

    A partir d'Excel 2021 la validation matricielle par Ctrl+Maj+Entrée n'est plus nécessaire, tableau structuré ou pas.
  14. job75

    Autres Document non enregistré

    Bonjour soudanpierre, TooFatBoy, Valtrase, le forum, Perso je n'ai jamais rencontré de refus d'enregistrement d'un fichier .xlsx ou .xlsm en .xls (Excel 97-2003). Bien sûr le vérificateur de compatibilité peut avertir que certaines fonctionnalités ne seront pas prises en compte, c'est normal. A+
  15. job75

    XL 2021 Recherche du prix au litre Max, Mini, Moyen carburant

    Bonjour Phoenix23, TooFatBoy, le forum, L'utilisation d'un tableau structuré n'est pas du tout indispensable, formule matricielle en B34 : =MAX((MOIS(Super!$A$3:$A$100)=MOIS(1&Tableaux!$A34))*(ANNEE(Super!$A$3:$A$100)=Tableaux!B$33)*Super!$D$3:$D$100) A noter qu'il y avait 4 espaces " " en...
Retour