Contenu récent par job75

  1. job75

    Microsoft 365 Remplir des cellules automatiquement

    Pour la feuille "Données" il paraît plus logique de trier sur les 2 colonnes B (ARTISTE) et D (JUKE) celle-ci en ordre décroissant.
  2. job75

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

    Quant à la solution de laurent950 (définir x et y As Long) elle ne convient pas. Mettez 590,6 en B26 : par macro on a "OK", par formule on a "ERREUR". Par contre tout à fait d'accord avec : mais définir x et y As Single (c'est le mieux) ou As Currency.
  3. job75

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

    Bonjour à tous, Oui il faut arrondir pour supprimer les décimales intempestives introduites par les opérations sur les nombres. C'est ce que fait CCur utilisé par Dranreb mais il suffit de l'appliquer uniquement au résultat de l'opération : x = CCur(Cells(lign, colon + 2) + Cells(lign, colon +...
  4. job75

    Autres Je cafouille sur une RechercheV ou autres...

    Notez que la Pentecôte peut tomber les 15, 22 ou 29 mai, il peut donc y avoir 3 dimanches fériés en mai. Dans le fichier joint je généralise avec tous les jours de la semaine listés en colonne U, formule matricielle en V23 ...
  5. job75

    Autres Je cafouille sur une RechercheV ou autres...

    Bonjour à tous, Dans le fichier joint je traite aussi le vendredi pour anticiper l'année 2027, formule matricielle en V23 : =SIERREUR(PETITE.VALEUR(SI((MOIS(Config!$A$5:$A$18)=$V$22)*(JOURSEM(Config!$A$5:$A$18)=6);Config!$A$5:$A$18);COLONNES($V:V));"") à valider par Ctrl+Maj +Entrée et à tirer...
  6. job75

    Microsoft 365 Remplir des cellules automatiquement

    Bonjour Fanny53, le forum, Un oeuil ??? 1) Dans la feuille "Données" j'ai modifié la formule en E6 : =SI([@JUKE]="ROCK";MAX($E$1:$E5)+(B5<>B6);"") La feuille doit être triée sur 2 colonnes, colonne A puis colonne B. 2) Dand la feuille "Etiquettes ROCK", formule en C4 ...
  7. job75

    Photo de Singapour

    Bonjour TooFatBoy, Comment as-tu fait pour obtenir ces photos du "NTUC" ? A+
  8. job75

    Microsoft 365 VBA - Dynamiser plages de données graphiques

    J'ai testé : ma solution du post #3 avec Address ne fonctionne pas. Par contre ceci fonctionne : ActiveChart.FullSeriesCollection(1).Values = Union(Cells(x.Row, 25), Cells(x.Row, 27))
  9. job75

    Microsoft 365 VBA - Dynamiser plages de données graphiques

    Bonjour, Avec un fichier on pourrait tester mais bon essayez : ActiveChart.FullSeriesCollection(1).Values = "=" & Union(Cells(x.Row, 25), Cells(x.Row, 27)).Address(External:=True) A+
  10. job75

    XL 2019 Calculer le nombre de cp par ligne, quand on atteint 100, déterminer la date et où mettre en gras...

    Il est très facile de colorer les colonnes H et K avec une MFC. Formule pour la colonne H entière =ESTNUM(H1)*(I1<=AUJOURDHUI()) Formule pour la colonne K entière =ESTNUM(K1)*(L1<=AUJOURDHUI()) Mais franchement ça n'a pas un grand intérêt.
  11. job75

    XL 2019 Calculer le nombre de cp par ligne, quand on atteint 100, déterminer la date et où mettre en gras...

    Bonjour anthoYS, le forum, Une solution plus simple : on ne remet pas à zéro les cumuls en colonnes D et E. Par contre on utilise la fonction MOD dans les formules matricielles en I10 et L10 (ce qui en fait revient au même) ...
  12. job75

    XL 2021 Erreur d'enregistrement automatique

    Bonjour clausen, le forum, En effet le fichier du post #1 a deux ThisWorkbook. C'est un phénomène qui se produit parfois, cela montre qu'il est corrompu. La seule solution est de le reconstruire (comme le fait Rheem). A+
  13. job75

    XL 2016 concatenation

    Le post #32 sert juste à montrer qu'il n'est pas "impératif" d'avoir des lignes vides puisqu'on peut s'en passer.
  14. job75

    XL 2019 Calculer le nombre de cp par ligne, quand on atteint 100, déterminer la date et où mettre en gras...

    Les 0 et les 1 correspondent aux valeurs des cumuls quand il y a remise à zéro mais on peut ajouter les 100 supprimés : =SIERREUR(I$6*LIGNES(H$10:H10)+RECHERCHEV(I10;Tableau1;4;FAUX);"") =SIERREUR(I$6*LIGNES(K$10:K10)+RECHERCHEV(L10;Tableau1;5;FAUX);"") Je n'ai pas parlé des MFC, regardez les...
  15. job75

    XL 2019 Calculer le nombre de cp par ligne, quand on atteint 100, déterminer la date et où mettre en gras...

    Bonjour à tous, Pas besoin de bouton pour mettre à zéro les 2 compteurs. Formule en D2 : =SI(SIERREUR((--GAUCHE([@CA1];CHERCHE("cp";[@CA1])-1));0)+N(D1)<I$6;SIERREUR((--GAUCHE([@CA1];CHERCHE("cp";[@CA1])-1));0)+N(D1);SIERREUR((--GAUCHE([@CA1];CHERCHE("cp";[@CA1])-1));0)+N(D1)-I$6) Formule en...
Retour