ScrollBar dans userForm

[BLACKHAYES]

re-bonjour le forum,

j'aimerais savoir le code pour ne pas imprimer ma "ScrollBar" de mon usf

 

[Pierrot93]

Re : ScrollBar dans userForm

Bonjour,

regarde ceci, à utiliser dans le module de l'usf :

With Me
    .ScrollBar1.Visible = False
    .Repaint
    .PrintForm
    .ScrollBar1.Visible = True
End With

bon après midi
@+

 

[BLACKHAYES]

Re : ScrollBar dans userForm

Bonjour Pierrot93,

qu'est ce que tu appelle le module de l'usf (désolé, novice)
j'ai doublecliqué sur mon usf et ai coller ce code, mais ca ne fonctionne pas

 

[Pierrot93]

Re : ScrollBar dans userForm

Re,

qu'est ce que tu appelle le module de l'usf (désolé, novice)

dans l'éditeur vba => dans l'usf => click droit => code

j'ai doublecliqué sur mon usf et ai coller ce code, mais ca ne fonctionne pas

cela veut dire quoi ? message d'erreur ou pas le résultat attendu... tu as bien adapté les noms des objets ??

 

[BLACKHAYES]

Re : ScrollBar dans userForm

re,

pas le resultat attendu, il ne se passe rien
c'est une scrollBar Vertical qui est sous "2 - fmScrollBarsVertical" dans les "propriété"

 

[Pierrot93]

Re : ScrollBar dans userForm

Re,

c'est une scrollBar Vertical qui est sous "2 - fmScrollBarsVertical" dans les "propriété"

Aarf.. ce ne sont pas des contrôles que tu as rajoutés alors ?? si c'est le cas, pas trop d'idée, peut être passer par un API, mais là, pas trop mon truc....

 

[BLACKHAYES]

Re : ScrollBar dans userForm

Re,

Désolé, pas grave.

par contre connaitrais tu le code pour afficher dans ue textbox un nombre a virgule,

je saisi 922 dans ma textbox et quand je valide je voudrais qu'il s'affiche automatiquement dans cette meme textbox 9,22

 

[Pierrot93]

Re : ScrollBar dans userForm

Bonjour,

regarde ceci, mais il me semble que tu as déjàun post à ce sujet, le mieux est d'y rester... :

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
TextBox1 = Format(TextBox1, "0,00")
End Sub

bonne soirée
@+

 

[BLACKHAYES]

Re : ScrollBar dans userForm

Re-

ok, merci

j'y retourne