Contenu récent par Nico_J

  1. Nico_J

    Autres Petite mise a jour (exceptionnellement pour cp4) du calendar V4.1(OLDVERSION)

    Désolé Patrick je sais pas, fait pipi dans un coin ou ça crain pas trop :D;), J'ai 3 écrans don 1 en résolution différente mais le problème est toujours identique. Mais bon à la base c'était pas le sujet désolé, beau calendrier.
  2. Nico_J

    Autres Petite mise a jour (exceptionnellement pour cp4) du calendar V4.1(OLDVERSION)

    Comme je disais à Patrick (que j'aprécie beaucoup), au poste 4 et 6, le fameux -5 au left, on n'en à passer des heures à le trouver ce fameux code sur un autre site.
  3. Nico_J

    Autres Petite mise a jour (exceptionnellement pour cp4) du calendar V4.1(OLDVERSION)

    Bonjour, remplacer la fonction proposé du même nom par celle si pour voir merci Private Function placementRange(Obj As Object) If Obj Is Nothing Then Exit Function Dim Z#, L1#, T1#, Hx#, Wx#, PtoPx# With ActiveWindow PtoPx = 1 / ((.ActivePane.PointsToScreenPixelsX(7200) -...
  4. Nico_J

    Autres Petite mise a jour (exceptionnellement pour cp4) du calendar V4.1(OLDVERSION)

    Je sais pas après, j'ai les notifications NVIDIA pour me dire qu'il y a une mise à jour dispo de la carte mais pas windows
  5. Nico_J

    Autres Petite mise a jour (exceptionnellement pour cp4) du calendar V4.1(OLDVERSION)

    re Désolé que tu me dises que je suis têtu, je n'est pas les drivers graphiques génériques, mes drivers sont chez NVIDIA pour ma RTX3070 à jour et W10 64bits C'était juste pour t'informer.
  6. Nico_J

    Autres Petite mise a jour (exceptionnellement pour cp4) du calendar V4.1(OLDVERSION)

    Comme ça, ça va bien pour moi, Private Function placementRange(Obj As Object) If Obj Is Nothing Then Exit Function Dim Z#, L1#, T1#, Hx#, Wx#, PtoPx# With ActiveWindow PtoPx = 1 / ((.ActivePane.PointsToScreenPixelsX(7200) - .ActivePane.PointsToScreenPixelsX(0)) / 7200)...
  7. Nico_J

    Autres Petite mise a jour (exceptionnellement pour cp4) du calendar V4.1(OLDVERSION)

    C'est pas moi qui va te donner des leçon, super boulot. ;)
  8. Nico_J

    Autres Petite mise a jour (exceptionnellement pour cp4) du calendar V4.1(OLDVERSION)

    Tu te rapelles: Function PositionForm(FORM As Object, rng As Range) Dim Z As Double, K As Double Z = ActiveWindow.Zoom / 100 K = ((ActiveWindow.ActivePane.PointsToScreenPixelsX(ActiveSheet.[A1].Width) - ActiveWindow.ActivePane.PointsToScreenPixelsX(0)) / ActiveSheet.[A1].Width) / Z lleft =...
  9. Nico_J

    Autres Petite mise a jour (exceptionnellement pour cp4) du calendar V4.1(OLDVERSION)

    Salut Patrick, On relance le sujet ?? non hein @+
  10. Nico_J

    Microsoft 365 Erreur Nom ambigu détecté: Workbook_Open

    Bonjour, Vous avez 2 fois la même procédure sur ThisWorkbook Private Sub Workbook_Open() With Sheets("feuil1") Application.WindowState = xlMaximized ' Ouvre le Classeur en grand ActiveWindow.DisplayHorizontalScrollBar = False ActiveWindow.DisplayVerticalScrollBar =...
  11. Nico_J

    XL 2016 Tableau Dynamique : Problème pourcentage moyen

    Bonjour, juste une idée au passage Bonne suite
  12. Nico_J

    XL 2019 Deplacer un cercle au dessus d'une cellule cible

    Bonjour, pas tout à fait ce qui est demandé, mais peut-être une piste ou une solution à la demande Private Sub CommandButton1_Click() Dim plage As Range Set plage = Worksheets("feuil1").Range("B2:G7") numero = Range("K2").Value Worksheets("feuil1").Range("B2:G7").Interior.ColorIndex = 2...
  13. Nico_J

    XL 2021 Affichage s’adapte automatiquement à la taille de l’écran que j’utilise !

    Je viens de réessayer sur classeur vierge, enregistré en xlsm, sur mes 3 écrans ça marche, bizarre