Contenu récent par bsalv

nouveau essai, maintenant la plage sans entêtes pour les dates dans la colonne F, appliquer le format "jjj, jj/mm/aaaa hh:mm"

avec une macro pour éviter des malconversations / een macro om spraakverwarring te vermijden

un essai

merci Saboh12617, alors ce sera ceci .Offset(, 12).Value = WorksheetFunction.SortBy(Arr, Application.Index(Arr, , 1), 1, Application.Index(Arr, , 2), -1, Application.Index(Arr, , 3), 1) 'key1, key2, key3

le sortby en VBA, on l'écrit comment ? voir PJ, 3ième essai ne fonctionne pas correctement

bonjour le fil, un essai en PJ (à utiliser à partir d'excel2019, je crois) Sub M_Test() Dim Arr, i, j, L, S Arr = WorksheetFunction.RandArray(10000, 3, -100, 100) 'matrice avec 3 colonnes, valeurs "double" entre -100 et 100 For i = 1 To UBound(Arr) L =...

légèrement modifié

exemple, on lance la macro à minuit moins 5 sec (timer = 86400-5 = 86395) avec un TempsRestant de 10 sec, donc normallement jusqu'à 86405, mais ... après 5 sec = environ 4-5ième boucle du FOR...NEXT, le timer se reset à 0, donc uniquement à ce moment, si on soustrait 86400 au "start", il...

Je suis satisfait qu'après 3 jours, au moins la moitié + 1 de vos neurones aient été d'accord avec moi dans cette discussion inutile.;)

pour les cas rares qu'on est autour de minuit 🤓 Start = Timer For i = TempsRestant To 0 Step -1 If Start > Timer Then Start = Start - 86400 'depasser minuit *********** ActiveSheet.Shapes("CHRONO_CERCLE").TextFrame.Characters.Text = i

le voilà, avec les jours fériés dans l'autre feuille. Si vous n'aimez pas ce "_", supprimez-le.

Google is your best friend https://www.howtoexcel.org/get-gold-prices/

avec un 2ième tableau avec vos codes "Un" et leur couleur. Autrement un 3ième tableau avec vos jours fériés pour ajouter ce "d", il faut faire cela uniquement pour les chiffres 1-10 ?

un autre essai. on a un tableau "préalable" dans la feuille "prealable", avec 100 dès 524 cellules comme "pré-alable". Il y a un menu déroulant pour les professeurs et si un professeur devient rouge (MFC), il n'est pas disponible et s'il devient orange, il esten doublon dans cette séance...

un nouveau essai, votre excel est-il en anglais ou un autre langage ? EDIT : nouveau fichier !!!!! =SI(ET(1<=N(C2);N(C2)<=10);"TX"&TEXTE(C2;"00")&CHOISIR(JOURSEM(B2;2);"";"";"";"";"";"s";"d");"-")