affichage userform modal Fermé

Question

Bonjour, 

Je travaille sur un formulaire Excel qui tourne uniquement avec des userform , ma problèmatique est que tout mes collègues ont des tailles d'écrans différentes et donc certains n'ont pas le plaisir d'avoir l'uf dans toute son intégralité et je ne trouve pas quelle commande utiliser pour demander un affichage "selon la taille de l'écran"?

Merci d'avance pour vos conseils

Configuration: Windows / Chrome 68.0.3440.106

Mike-31 · Answer

Bonjour,

pour adapter automatiquement l'affichage d'une plage à la résolution de ton écran il faut écrire un bout de code VBA à coller dans la Thiswokbook
pour écrire le code donne nous les limites de ta plage exemple A1:X30

Mike-31 · Answer

Re,

Tu as mal compris, le code que je te propose est d'afficher une surface en fonction de l'écran sur lequel le fichier est ouvert.
si au départ tu veux afficher la plage A1:X20 par exemple lorsque tu ouvriras le fichier sur un 15 pouces le code zoomera la surface prévue et dézoomera sur un écran plus petit sans altérer le fichier

Autrement mettre ton Userform en modal ne changera pas l'affichage mais te permettra de te déplacer sur la plage l'userform active

pour mettre ton Userform en modal il faut ouvrir le VBA cliquer sur l'Userform et dans les propriétés de l'Userform rechercher ShowModal et la mettre en False

cs_Le Pivert · Answer

Bonjour,

Voici un exemple, il faudra l'adapter

https://www.cjoint.com/c/HItq0ia7yfQ

fabien25000 · Answer

Bonjour et merci à tout les 2

Si j'ai compris ton exemple cs_Le Pivert, chaque userform utilise une méthode différente
L'UF 1 joue sur le zoom  alors que le 2 redimensionne chaque éléments 
Dans le deuxième cas qu'advient il des left et top de ces éléments une fois leur taille révisées? je ne vois pas à quel moment image1 est recalibré?

 Mike, pour répondre à ta question donc, ma plage est A1:W40

cs_Le Pivert · Answer

Je ne comprends pas ton problème avec le control image1!
L'image est dimensionnée dans le control

Private Sub CommandButton1_Click()
Dim Fichier As String
    Fichier = "C:\Users\monimage.jpg"'adapter le chemin
    'Vérifie si le fichier existe.
    If Dir(Fichier) <> "" Then
        'si le fichier existe, il est chargé pour visualisation.
        Image1.Picture = LoadPicture(Fichier)
         Image1.PictureSizeMode = fmPictureSizeModeStretch ' a adapter
        Else
        'Sinon, affiche aucune image.
        Image1.Picture = LoadPicture("")
       End If
End Sub

Affichage userform modal

5 réponses

Discussions similaires