Dimension userform en fonction du bouton
Résolu
niny@
Messages postés
107
Date d'inscription
Statut
Membre
Dernière intervention
-
Polux31 Messages postés 6917 Date d'inscription Statut Membre Dernière intervention -
Polux31 Messages postés 6917 Date d'inscription Statut Membre Dernière intervention -
Bonjour à tous,
j'ai une petite question, en fait j'aimerai redimensionner un userform2 en fonction du bouton (qui se trouve sur un autre userform1) sur lequel je clique donc avec la propriété "height".
le truc c'est que je ne sais aps comment récupéré de quel bouton il s'agit pour qu'à l'initialisation de mon userform2 celui ci soit à la taille souhaitée.
quelqu'un pourrait m'aiguiller svp
je suis sous excel VBA
merci
j'ai une petite question, en fait j'aimerai redimensionner un userform2 en fonction du bouton (qui se trouve sur un autre userform1) sur lequel je clique donc avec la propriété "height".
le truc c'est que je ne sais aps comment récupéré de quel bouton il s'agit pour qu'à l'initialisation de mon userform2 celui ci soit à la taille souhaitée.
quelqu'un pourrait m'aiguiller svp
je suis sous excel VBA
merci
A voir également:
- Dimension userform en fonction du bouton
- Fonction si et - Guide
- Dimension a5 - Guide
- Bouton reinitialisation pc - Guide
- Diagnostic bouton photo - Accueil - Outils
- Bouton home clavier ✓ - Forum PC portable
4 réponses
Bonjour toi :o))
Il faut déclarer une variable globale dans ton UserForm2, par exemple : Private myHeight As Integer.
Ensuite tu rajoutes dans le code de la UserForm2:
tu rajoutes cette ligne dans UserForm_Initialize : Me.Height = myHeight
Dans l'évènement click du bouton de la UserForm1, tu ajoutes cette ligne en début :
Et voilà ... le tour est joué ... lol
Bon courage
;o)
Polux
Il faut déclarer une variable globale dans ton UserForm2, par exemple : Private myHeight As Integer.
Ensuite tu rajoutes dans le code de la UserForm2:
Public Sub setMyHeight(ByVal str As Integer)
myHeight = str
End Sub
tu rajoutes cette ligne dans UserForm_Initialize : Me.Height = myHeight
Dans l'évènement click du bouton de la UserForm1, tu ajoutes cette ligne en début :
Call UserForm2.setMyHeight(xxxx) 'tu mets la dimension que tu veux à la place des x ...
Et voilà ... le tour est joué ... lol
Bon courage
;o)
Polux
lol, je pense qu'il faut que tu fasses pareil avec le width ... Assures également que la taille que tu passes soit correct ... c'est de pixels et non des cm ...
;o)
Polux
;o)
Polux
dans userform2_initialize as tu bien mis Me.Height = myHeight ??? et le call doit se faire en premier dans l'évènement click de ton bouton, avant de faire UserForm3.Show
oui c'était fait finalement j'ai enlever la variable, dans le initialize j'ai rine mis mon code est devenu :
dans userform1 avec le bouton :
Call userform2.setMyHeight(216) comme tu m'as dit
dans userform2 :
Public Sub setMyHeight(ByVal str As Integer)
renseignement_tranche.Height = str
End Sub
comme ca seulement pour ce bouton cela fonctionnera est pas pour les autres, de plus finalement ca prend bien la bonne longueur .
c'est cool, tu m'as encore débuggé !!!!
je vais plus savoir quoi te dire à force de "merci" !
pour la peine encore MERCI !!!!!!!!!!!!!!!
bonne soirée à toi
@+
dans userform1 avec le bouton :
Call userform2.setMyHeight(216) comme tu m'as dit
dans userform2 :
Public Sub setMyHeight(ByVal str As Integer)
renseignement_tranche.Height = str
End Sub
comme ca seulement pour ce bouton cela fonctionnera est pas pour les autres, de plus finalement ca prend bien la bonne longueur .
c'est cool, tu m'as encore débuggé !!!!
je vais plus savoir quoi te dire à force de "merci" !
pour la peine encore MERCI !!!!!!!!!!!!!!!
bonne soirée à toi
@+
je viens d'essayer ta proposition et ca marche mais je sais pas pourquoi ca me met la userform2 à la taille de la barre de fenêtre (le truc bleu lol) . pourtant dans mon premier userform1 je mets bien la taille entre paranthèses .
c'est bizarre non ?