Discussion :

[nouha_79]

bonjour,
j ai beaucoup de Userform,l un d une s apellle(overview),celle ci je l ai essayer de la zoomer avec une macro.

le probleme qui s impose maintenant que :quand j ouvre ce Userform(overview) et je choisi le facteur par exemple 80% ca marche ,qunad je le quitte ,et je reviens pour l ouvrir ca reste pas 80% il reviens a 100%.

bon moi je veux quand je choisi une valeur de zoom par exemple 70% qu elle reste jusqua ce que je termine de remplir les autres userform .


merci de votre aide

[jfontaine]

Utilise une variables global pour memoriser la taille.
Et a chaque ouverture du userform tu modifies la taille en utilisant la variable

[nouha_79]

moi je veux va pa la modifier parceque c est un fichier pour les conseillers c est a dire il peuvent pas a chaque fois modifier.

merci

[jfontaine]

Je ne comprend pas tou; tu parles de choisir un facteur de 80 %. Donc tu modifies bien quelque chose. Cette valeur de 80 % tu la mémorises puis tu la recharge quand tu rappels ton userform

[nouha_79]

voila je poste mon exemple comment j ai fait.je pose ma question autrement:
j ai l unserform (overview)et deux autres.dans les deux autres userform il ya toujours un button dedans qui mene a overview.
voila moi ja i essayer de zoomer overview ,moi je veux alors quand je choisi 80% qu elle reste enregistrer,meme si j ouvre l autre userform et je clique sur overview c reste (overview zoommer a 80%)

[jfontaine]

Voila méthode que j'ai utilisé

je sauvegarde la taille dans la cellule qui se trouve sous le bouton qui lance la userform

dans l'ouverture du classeur

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 
Private Sub Workbook_Open()
Sheets("tabelle1").Range("A1").Value = 100
End Sub

Code a mettre dans la userform

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
 
Private Sub UserForm_Activate()
oldW = Me.Width
oldH = Me.Height
'Chargement de la taille au demarrage de la userform
ScrollBar1 = Sheets("tabelle1").Range("A1").Value
End Sub
 
Private Sub UserForm_Terminate()
'sauvegarde de la taille en cours avant de quitter
Sheets("tabelle1").Range("A1").Value = ScrollBar1
End Sub