Contenu récent par job75

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.

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

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 !

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+

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+

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

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.

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+

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] =...

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

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+

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

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

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+

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