Discussion :

[NEC14]

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 :

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

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

[patricktoulon]

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

[fring]

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 :

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

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

[NEC14]

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 :

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

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

[NEC14]

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

Voici le code corrigé :

Code :

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

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

[fring]

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é.

[fring]

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 :

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

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

[NEC14]

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.