Affichage userform modal
fabien25000
Messages postés
697
Statut
Membre
-
fabien25000 Messages postés 697 Statut Membre -
fabien25000 Messages postés 697 Statut Membre -
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
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
A voir également:
- Affichage userform modal
- Userform excel mac - Forum Excel
- Userform Petit ✓ - Forum VB / VBA
- Userform vba récupérer valeur - Forum Excel
- Pointillé et userform ✓ - Forum Excel
- Création d'un UserForm sur Word 2016 Mac - Forum Word
5 réponses
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
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
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
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
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
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
Re,
Oui le Modal est associé a une Userform
pour répondre au zoom automatique, clic droit sur l'onglet de ta feuille/Visualiser le code double clic sur Thiswokbook pour ouvrir le module qui lui est associé et colle ce code
Private Sub Workbook_Open()
On Error Resume Next
Application.ScreenUpdating = False
[A1:W40].Select
ActiveWindow.Zoom = True
Application.ScreenUpdating = True
[A1].Select
End Sub
le fichier doit être enregistré avec l’extension .XLSM ou .XLS
Oui le Modal est associé a une Userform
pour répondre au zoom automatique, clic droit sur l'onglet de ta feuille/Visualiser le code double clic sur Thiswokbook pour ouvrir le module qui lui est associé et colle ce code
Private Sub Workbook_Open()
On Error Resume Next
Application.ScreenUpdating = False
[A1:W40].Select
ActiveWindow.Zoom = True
Application.ScreenUpdating = True
[A1].Select
End Sub
le fichier doit être enregistré avec l’extension .XLSM ou .XLS
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
Je ne comprends pas ton problème avec le control image1!
L'image est dimensionnée dans le control
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
Ce n'est pas ma plage le problème, moi je travail sur un 24 pouces et j'ai un collègue qui bosse sur un 12.6 pouce donc son écran fait 1 quart du mien et un autre qui est sur du 15 pouce etc etc... je ne peux pas me permettre de coder et paramètrer des dimensions en fonction d'un utilisateur et surtout que le jour ou ils changent de format c'est à refaire j'imagine?