Discussion :

[olivepao]

Bonjour le forum

Dans un userform, je teste la valeur de certaines zones et j'affiche ces valeurs dans des MsgBox.

Tout se passe bien seuf pour les éléments qui sont dans les outils StatusBar.

Ma macro plante sur cette partie du code

Code :

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

MsgBox StatusBar1, , "Valeur dans StatusBar1"

Les valeurs dans un StatusBar peuvent-elles être affichées dans un MsgBox ?

Merci de votre aide.

[JackOuYA]

bonjour,


Tout d'abords, as tu regardé l'aide en ligne :

StatusBar, propriété
Voir aussi S'applique à Exemple Spécificités
Cette propriété renvoie ou définit le texte de la barre d'état. Type de données String en lecture-écriture.

Note
Cette propriété renvoie False si Microsoft Excel garde le contrôle de la barre d'état. Pour restaurer le texte par défaut de la barre d'état, affectez la valeur False à cette propriété. Cela est valable même si la barre d'état est masquée.

donc si StatusBar n'est pas géré par ton code, tu as False en retour quelque soit l'état de la StatusBar


dans ton code tu met StatusBar1 , pourquoi un 1, Il n'y as qu'une seule StatutsBar sous excel : Application.StatusBar

[olivepao]

Hello JackOuYA Hello le forum

Je te parle du StatusBar qui est un objet de la boîte à outils.

Quand tu regardes dans les propriétés le "name" est StausBar1 comme tu peux avoir Label1 ou DTPicker1.

A++

[JackOuYA]

oh d'accord , je l'avais oublié celui-la

si tu l'utilise sans préciser la propriété :

Code :

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

msgbox statusbar1

ton contôle retourne, sa propriété par défaut, et celle-ci ne semble pas être la ce que tu désire ! précise la propriété désiré et cela sera mieux

[olivepao]

Re JackOuYA

Mon StatusBar1 a une valeur date et un autre une valeur time.

Si je fais

Code :

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

MsgBox StatusBar1, , "valeur dans StatusBar"

il y a plantage.

Avec DTPicker par exemple, il n'y a pas plantage.

Code :

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

MsgBox DTPicker1, , "valeur dans DTPicker"

A++

[JackOuYA]

et bien c'est ce que j'ai dis , tu ne précise pas la propriété à afficher ! et de plus tu veux en afficher 2 !

comment met tu à jour ces propriétés ?

(VB et trop gentil... mais en te permettant de ne pas mettre la propriété par défaut, il te conduit en erreur quand celle-ci n'est pas du type que tu désire ..)

[olivepao]

Re JackOuYA

Je ne comprends pas ta demande.

Mon StatusBar1 contient une valeur DATE. Mon MsgBox doit me renvoyer la date qui est ce StatusBar1.

As-tu besoin d'autres informations ?

A++

[JackOuYA]

elle viens d'ou cette date ?

[olivepao]

RE JackOuYA

C'est simplement une des propriétés de StatusBar :

Texte, Date, Time

Si tu ne précises rien avec Time ou Date c'est l'heure courante et le jour courant qui s'affiche.

A++

[JackOuYA]

RE JackOuYA

C'est simplement une des propriétés de StatusBar :

Texte, Date, Time

Si tu ne précises rien avec Time ou Date ces l'heure courante et le jour courant qui s'affiche.

A++

ma statusbar n'as pas ces propriétées
.. si c'était le cas pour les afficher il faut faire :

Code :

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

1
2
3
4
 
msgbox statusbar1.Texte
msgbox statusbar1.Date
msgbox statusbar1.Time

essai quand même cela :

Code :

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

1
2
3
 For Each p In StatusBar1.Panels
   MsgBox p.Text
 Next

[fring]

Bonjour,

C'est du VBA ? Je ne trouve pas ce contrôle.

[olivepao]

Re JackOuYA

Merci de tes propositions.

La première ne fonctionne pas, elle plante malheureusement.

La seconde me renvoie une combobox vide même si la valeur de ma StatusBar a une valeur Text.

J'ai adapté et fais

Code :

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

1
2
3
 For Each p In StatusBar1.Panels
   MsgBox p.Date
 Next

et là ça plante également.

Merci encore de m'avoir aidé

A++

[olivepao]

Hello fring

Il me manquait les contrôle DTPicker et Calendar.

J'ai installé les fichiers suivants :

MSCOMCT2.OCX et MSCAL.OCX dans C:\Windows\System32 et je les ai validé dans la Base de Registre avec regsvr32.

Lorsque je voulais rentrer dans les propriétés, la boîte à outils me renvoyait cette erreur:

CLSID:{7EBDAAE0-8120-11CF-899F-00AA00688B10}

En recherchant sur le site Microsoft, j'ai trouvé qu'il manquait la librairie MSSTKPRP.DLL,

Je l'ai instalée dans C:\Windows\System32 et je l'ai validé dans la Base de Registre avec regsvr32.

Et j'ai ce contrôle suplémentaire.

A++

[fring]

Je l'avais, je cherchais à StatusBar et c'est Microsoft StatusBar

Comme Jack, je ne vois pas où tu vas chercher les propriétés Date et Time ?
Ceci ne fonctionne pas ?

Code :

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

MsgBox StatusBar1.Panels(1).Text

[olivepao]

Re fring, Re JackOuYA et Re le forum

Je vais dans les propriétés de l'objet StatusBar1. Dans la liste des différentes propriétés, il y en a une qui se nomme (personnalisé).

En entrant dedant, une ComboBox avec plusieurs onglets s'affiche. On prend l'onglet nommé Zone, la liste déroulante Style. Là, se trouve les options Date et Time.

Je joins un printscreen des propriétés de la StatusBar

A++

[fring]

Ca serait quand même bien que tu lises les réponses en entier et que tu essayes ce qu'on te propose...

Les zones sont les Panels donc...

Code :

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

MsgBox StatusBar1.Panels(1).Text

[olivepao]

Re fring

Tu me demandais où je trouvais ces propriétés, j'ai répondu à ta demande.

Ceci ne m'a pas empêché entre-temps de tester ta proposition.

La MsgBox s'affiche normalement et me renvoi une valeur "vide" comme dans la proposition de JackOuYA.

J'ai également essayer de modifier ma StatusBar en y mettant du texte, le résultat est également une valeur "vide".

Je suis entrain de refaire une recherche sur la toile mais pour l'instant sans succès.

A++

[OrDonc]

Bonsoir,

Avec ce

Code :

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

1
2
3
4
5
 
Private Sub StatusBar1_PanelClick(ByVal Panel As MSComctlLib.Panel)
  Panel = "oui"
  MsgBox StatusBar1.Panels.Item(1)
End Sub

un clic dans le contrôle pour y mettre le texte et afficher cet texte dans la boîte.

[olivepao]

Hello OrDonc Re le forum

Merci ta solution fonctionne. Super !

Ce n'est pas tout à fait ce que je désirais.

Je fais un click sur le bouton "Valider", une MsgBox me renvoie la valeur de DTPicker, puis la valeur de MonthView, puis la valeur Calendar.

J'ai ajouté un StatusBar avec la valeur Time et un autre StatusBar avec la valeur Date je voulais sur le principe de

Code :

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

1
2
3
4
5
Private Sub CommandButton1_Click()
  MsgBox DTPicker1, , "valeur DTPicker"
  MsgBox MonthView1, , "valeur MonthView"
  MsgBox Calendar1, , "valeur Calendar"
End Sub

ajouter StatusBar1 et StatusBar2 à la macro. Mais voilà mes essais renvoient à chaque fois une valeur "vide".

Encore merci et A++

[JackOuYA]

...

Code :

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

1
2
3
4
5
Private Sub CommandButton1_Click()
  MsgBox DTPicker1, , "valeur DTPicker"
  MsgBox MonthView1, , "valeur MonthView"
  MsgBox Calendar1, , "valeur Calendar"
End Sub

..

Comme dis plus haut dans ce code tu profite de VBA qui te fourni en réponse les propritétés par défaut d'un controle , ce code est incomplet un puriste écritai ton code ainsi:

Code :

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

1
2
3
4
5
Private Sub CommandButton1_Click()
  MsgBox DTPicker1.Value, , "valeur DTPicker"
  MsgBox MonthView1.Value, , "valeur MonthView"
  MsgBox Calendar1.Value, , "valeur Calendar"
End Sub