Problème résolution de cellule sur plusieurs PC

Bonjour à tous,

Après avoir effectué des recherches sans succès pour résoudre mon problème, je me tourne vers vous pour solliciter votre aide.

Je travaille actuellement sur Excel 365 et j'ai créé un fichier destiné au suivi de dossiers pour mon entreprise. Ce fichier comprend un premier onglet dans lequel sont saisies les données, suivi de plusieurs autres onglets comportant des macros et des mises en page spécifiques pour l'impression au format A4.

Cependant, nous avons constaté un problème lors de l'utilisation du fichier par plusieurs utilisateurs : la mise en page varie en fonction des ordinateurs, ce qui entraîne un décalage dans les lignes.

Après avoir consulté divers forums, j'ai compris que ce problème était lié à la différence de résolution entre les ordinateurs, mais je n'ai pas encore trouvé de solution efficace.

Voici les solutions que j'ai déjà testées :

• Verrouillage de la feuille avec verrouillage du format des cellules.
• Ajustement précis de la largeur/hauteur des pages dans l'onglet "Mise en page" > "Mise à l'échelle".

Quelqu'un aurait-il une solution à proposer pour verrouiller la mise en page et éviter ces variations ?

En pièce jointe, vous trouverez deux captures d'écran provenant de deux ordinateurs ayant des résolutions différentes, ainsi que le fichier Excel sans macros et avec un seul onglet.

Résolution 2560x1440 : Hauteur = 0.51 cm (24 pixels)

Résolution 1920x1080 : Hauteur = 0.50 cm (19 pixels)

Je vous remercie par avance pour votre aide.

Arnaud

Bonjour Arnaud,

Je ne crois pas que cela soit possible.

Mais peut être cette macro ?

Sub AjusterMiseEnPageA4()

'Auteur 
'https://www.linkedin.com/in/spilerstheo/

    Dim ws As Worksheet

    ' Changer le nom de l'onglet correspondant (Ici c'est Fiche)
    Set ws = ThisWorkbook.Sheets("Fiche")
    With ws.PageSetup
        ' Définir le format de papier à A4
        .PaperSize = xlPaperA4
        ' Orientation portrait
        .Orientation = xlPortrait
        ' Ajuster la mise en page pour tenir sur 1 page en largeur par 1 page en hauteur (ajuster selon les besoins)
        .FitToPagesWide = 1
        .FitToPagesTall = 1
        ' Marges (en pouces, ajuster selon les besoins)
        .LeftMargin = Application.InchesToPoints(0.7)
        .RightMargin = Application.InchesToPoints(0.7)
        .TopMargin = Application.InchesToPoints(0.75)
        .BottomMargin = Application.InchesToPoints(0.75)
        .HeaderMargin = Application.InchesToPoints(0.3)
        .FooterMargin = Application.InchesToPoints(0.3)
        ' Centrer la feuille sur la page
        .CenterHorizontally = True
        .CenterVertically = True
    End With

    MsgBox "La mise en page a été ajustée pour la feuille 'Fiche'.", vbInformation
End Sub

Cordialement,
Parrish