Modif démo barre menus

Bonjour à tous,

J'ai utilisé le modéle de barre de menus que Fring a mis sur le net et j'aimerai pouvoir modifier une partie du code et notamment la partie concernant la zone texte où l'on peut taper une date.

http://fring.developpez.com/vba/excel/barremenu/


Dans mon application, j'aimerai que cette date soit la date du jour et non modifiable.

Pouvez-vous m'aider s'il vous plait ?
Merci par avance

Voici le code de Fring

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Sub Macro2() With CommandBars("MaBarre").Controls(2) If .Text = "" Then MsgBox "Veuillez saisir une date dans la zone de texte" Exit Sub Else MsgBox "Date saisie :" & Chr(10) & "le " & .Text End If End With End Sub

---

bonjou

il faut l'instruire a la construction de ta bar

command bar("truc").control(x).text=Date

enfin un truc dans le genre


au plaisir

Bonjour,

Au moment de l'insertion de la zone de texte dans la barre de menu (module Cbar du fichier démo), tu fais ceci :

Code:

---

1 2 3 4 5 6

'insertion sur la barre de menus d'une zone de texte Set Ctxt = Cbar.Controls.Add(msoControlEdit) With Ctxt .Text = Date '<-- insertion de la date .Enabled = False '<-- non modifiable End With

---

Bonjour à tous,

Voici le code, j'y ai ajouté une ligne mais elle ne fonctionne pas.
Que n'ai-je pas fait correctement ?
Je vous en remercie par avance

Code:

---

1 2 3 4 5 6 7 8

'insertion sur la barre de menus d'une zone de texte Set Ctxt = Cbar.Controls.Add(msoControlEdit) With Ctxt .Caption = "Nous sommes le :" '<-----texte du label .Text = Date '<----- affichage de la date du jour .Enabled = False '<----- la date est non modifiable End With

---

C'est bon j'ai trouvé mon erreur.

Voici le code corrigé :

Code:

---

1 2 3 4 5 6 7 8 9

'insertion sur la barre de menus d'une zone de texte Set Ctxt = Cbar.Controls.Add(msoControlEdit) With Ctxt .Style = msoComboLabel '<----- zone du label .Caption = "Nous sommes le :" '<-----texte du label .Text = Date '<----- affichage de la date du jour .Enabled = False '<----- la date est non modifiable End With

---

Pas contre est-ce qu"il est possible que cette zone soit mise en rouge ?
Merci par avance

Voir la différence entre les deux styles d'affichage d'une zone de texte

• msoComboNormal = affichage uniquement de la zone de texte (valeur par défaut)
• msoComboLabel = affichage de la zone de texte et d'un Label à la gauche de celle-ci. Ce style s'utilise avec la propriété Caption qui contiendra le texte s'affichant dans le Label.

Donc dans ton cas ça donne :

Code:

---

1 2 3 4 5 6 7 8

'insertion sur la barre de menus d'une zone de texte Set Ctxt = Cbar.Controls.Add(msoControlEdit) With Ctxt .Style = msoComboLabel .Caption = "Nous sommes le :" '<-----texte du label .Text = Date '<----- affichage de la date du jour .Enabled = False '<----- la date est non modifiable End With

---

Bonjour fring,

Je crois que nos réponses se sont croisées.
Merci pour ton aide.

Ton modèle de barre de menus va beaucoup m'aider dans mon projet, il va falloir que j'y aille doucement pour ne pas me tromper (ce qui risque d'arriver).

Je dois modifier pas mal de paramètres, mais les bases sont excellentes ce qui va me faciliter la tâche.

Citation:

---

Envoyé par NEC14

Pas contre est-ce qu"il est possible que cette zone soit mise en rouge ?

---

Non à ma connaissance il n'est pas possible de jouer sur les mises en forme, peut être en 2007 mais je ne l'ai pas encore testé.

Bon eh bien tant pis.

Je continue dans mon projet et je te tiens au courant de mon avancée.
Encore merci. :ccool:

bonjour


non ca n'est pas possible meme avec 2007


au plaisir