Caption CommandButton

[Elise]

Bonjour le forum,
J'aimerai votre aide sur le fichier suivant.
Je ne suis pas trés douée en Vba
Merci de me mettre sur la bonne voie.
Bises.
Elise [file name=colo.zip size=9365]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/colo.zip[/file]

 

[P@tric€]

Bonjour tout le monde et bonjour Elise

Pour ta question 1 va voir le code quant à la question 2 quelle est ta source pour compléter les cases du tableau?

@ +

Patrice


[file name=colo_20050710134521.zip size=10456]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/colo_20050710134521.zip[/file]

 

[Elise]

Bonjour Patrice
Merci de ton aide.
La Source c'est les bouttons de l'usf
C'est pour automatiser la saisie dans le tableau ( qui normalement est plus important )
Ex en cliquant dans l'usf sur lundi on reporte dans le tableau dans la cellule selectionnée.

 

[JeanMarie]

Bonjour

Une proposition en liste de validation.

1) Sélectionne ta plage B15:G21
2) clique sur le menu Données/Validation...
3) dans la boîte de dialogue, clique sur le 'pop menu' qui affiche 'Tout', pour choisir 'Liste',
4) dans le champ saisissable, tu sélectionnes la plage $A$3:$A$9.
5) Puis tu valides

Dans chacune des cellules de la plage B15:G21, tu as une liste d'aide à la saisie.

@+Jean-Marie

 

[Elise]

Bonjour Jean Marie

Je connaissais cette procédure, mais je suis interessée par un systeme en vba.
Patrice m'a mis sur la voie avec ceci:

Private Sub UserForm_Activate()
CommandButton1.Caption = [A3]
CommandButton2.Caption = [A4]
CommandButton3.Caption = [A5]
CommandButton4.Caption = [A6]
CommandButton5.Caption = [A7]
CommandButton6.Caption = [A8]
CommandButton7.Caption = [A9]

mais je voudrais savoir comment écrire que par exemple que la
CommandButton1.Caption est = à la cellule A3 de la feuille 'MENU'


CommandButton1.Caption = feuille'MENU'[A3] ???

 

[JeanMarie]

Re...

Tant pis pour la liste de validation.

CommandButton1.Caption = Worksheets('Menu').Range('A3')

et pour améliorer tout ceci

With Worksheets('Menu')
   CommandButton1.Caption = .Range('A3')
   répéte tous les commandbutton ici avec la même syntaxe
end With

@+Jean-Marie

Message édité par: JeanMarie, à: 10/07/2005 14:55

 

[Elise]

Re
Merci pour ta reponse Jean Marie, tu es un vrai p'tit Ange !!!
Bises