Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Jacques93
Bonjour Patrick Fredin, Patrick Fredin a écrit :
Bonjour,
Sur un UserForm, j'ai placé un objet StatusBar. Est-il possible de mettre une barre de progression dans une des parties de cette barre d'état ?
Vu que cela semble être sous Excel, il faut ajouter le composant 'Microsoft ProgessBar' (Il se trouve dans le même OCX que le contrôle StatusBar : MsComCtl.ocx). Ensuite il te reste à le positionner. Si tu veux le placer dans le deuxième champ su StatusBar, par exemple :
Private Sub UserForm_Initialize() With Me.ProgressBar1 .Appearance = ccFlat ' Question de gout .Top = Me.StatusBar1.Top + 2 .Height = Me.StatusBar1.Height - 4 .Left = Me.StatusBar1.Panels(2).Left + 2 .Width = Me.StatusBar1.Panels(2).Width - 4 .ZOrder 0 .Value = 50 ' A adapter End With End Sub
-- Cordialement,
Jacques.
Bonjour Patrick Fredin,
Patrick Fredin a écrit :
Bonjour,
Sur un UserForm, j'ai placé un objet StatusBar. Est-il possible de mettre
une barre de progression dans une des parties de cette barre d'état ?
Vu que cela semble être sous Excel, il faut ajouter le composant
'Microsoft ProgessBar' (Il se trouve dans le même OCX que le contrôle
StatusBar : MsComCtl.ocx). Ensuite il te reste à le positionner. Si tu
veux le placer dans le deuxième champ su StatusBar, par exemple :
Private Sub UserForm_Initialize()
With Me.ProgressBar1
.Appearance = ccFlat ' Question de gout
.Top = Me.StatusBar1.Top + 2
.Height = Me.StatusBar1.Height - 4
.Left = Me.StatusBar1.Panels(2).Left + 2
.Width = Me.StatusBar1.Panels(2).Width - 4
.ZOrder 0
.Value = 50 ' A adapter
End With
End Sub
Sur un UserForm, j'ai placé un objet StatusBar. Est-il possible de mettre une barre de progression dans une des parties de cette barre d'état ?
Vu que cela semble être sous Excel, il faut ajouter le composant 'Microsoft ProgessBar' (Il se trouve dans le même OCX que le contrôle StatusBar : MsComCtl.ocx). Ensuite il te reste à le positionner. Si tu veux le placer dans le deuxième champ su StatusBar, par exemple :
Private Sub UserForm_Initialize() With Me.ProgressBar1 .Appearance = ccFlat ' Question de gout .Top = Me.StatusBar1.Top + 2 .Height = Me.StatusBar1.Height - 4 .Left = Me.StatusBar1.Panels(2).Left + 2 .Width = Me.StatusBar1.Panels(2).Width - 4 .ZOrder 0 .Value = 50 ' A adapter End With End Sub
-- Cordialement,
Jacques.
Patrick Fredin
Super. Merci. Je n'avais pas pensé à cette manière de procéder.
-- Patrick
"Jacques93" wrote:
Bonjour Patrick Fredin, Patrick Fredin a écrit : > Bonjour, > > Sur un UserForm, j'ai placé un objet StatusBar. Est-il possible de mettre > une barre de progression dans une des parties de cette barre d'état ? >
Vu que cela semble être sous Excel, il faut ajouter le composant 'Microsoft ProgessBar' (Il se trouve dans le même OCX que le contrôle StatusBar : MsComCtl.ocx). Ensuite il te reste à le positionner. Si tu veux le placer dans le deuxième champ su StatusBar, par exemple :
Private Sub UserForm_Initialize() With Me.ProgressBar1 .Appearance = ccFlat ' Question de gout .Top = Me.StatusBar1.Top + 2 .Height = Me.StatusBar1.Height - 4 .Left = Me.StatusBar1.Panels(2).Left + 2 .Width = Me.StatusBar1.Panels(2).Width - 4 .ZOrder 0 .Value = 50 ' A adapter End With End Sub
-- Cordialement,
Jacques.
Super. Merci. Je n'avais pas pensé à cette manière de procéder.
--
Patrick
"Jacques93" wrote:
Bonjour Patrick Fredin,
Patrick Fredin a écrit :
> Bonjour,
>
> Sur un UserForm, j'ai placé un objet StatusBar. Est-il possible de mettre
> une barre de progression dans une des parties de cette barre d'état ?
>
Vu que cela semble être sous Excel, il faut ajouter le composant
'Microsoft ProgessBar' (Il se trouve dans le même OCX que le contrôle
StatusBar : MsComCtl.ocx). Ensuite il te reste à le positionner. Si tu
veux le placer dans le deuxième champ su StatusBar, par exemple :
Private Sub UserForm_Initialize()
With Me.ProgressBar1
.Appearance = ccFlat ' Question de gout
.Top = Me.StatusBar1.Top + 2
.Height = Me.StatusBar1.Height - 4
.Left = Me.StatusBar1.Panels(2).Left + 2
.Width = Me.StatusBar1.Panels(2).Width - 4
.ZOrder 0
.Value = 50 ' A adapter
End With
End Sub
Super. Merci. Je n'avais pas pensé à cette manière de procéder.
-- Patrick
"Jacques93" wrote:
Bonjour Patrick Fredin, Patrick Fredin a écrit : > Bonjour, > > Sur un UserForm, j'ai placé un objet StatusBar. Est-il possible de mettre > une barre de progression dans une des parties de cette barre d'état ? >
Vu que cela semble être sous Excel, il faut ajouter le composant 'Microsoft ProgessBar' (Il se trouve dans le même OCX que le contrôle StatusBar : MsComCtl.ocx). Ensuite il te reste à le positionner. Si tu veux le placer dans le deuxième champ su StatusBar, par exemple :
Private Sub UserForm_Initialize() With Me.ProgressBar1 .Appearance = ccFlat ' Question de gout .Top = Me.StatusBar1.Top + 2 .Height = Me.StatusBar1.Height - 4 .Left = Me.StatusBar1.Panels(2).Left + 2 .Width = Me.StatusBar1.Panels(2).Width - 4 .ZOrder 0 .Value = 50 ' A adapter End With End Sub
