Aide sur userform

[Josette]

Bonjour le forum,
Travaillant pour une association, je suis en tain d'essayer de mettre en place un fichier de suivi d'activité sportive.
Débutante depuis 8 mois sur Excel (merci internet !) je vous soumets le début de mon travail afin que vous me mettiez sur la bonne voie ( en vba notamment)
En espérant votre aide, merci par avance.
Josette.
[file name=Association.zip size=14450]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Association.zip[/file]

 

[BOBBY]

Hi Josette

Je ne suis pas sur d'avoir saisi tout ce que vous désirez faire, mais est ce quelque chose dans ce style ???

A+ [file name=Association2.zip size=15128]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Association2.zip[/file]

 

[Josette]

Hi BOBBY
En fait je voudrais automatiser la saisie dans le tableau.
en faisant appel à l'userform1.
C'est à dire que les bottons prennent les valeurs (texte et couleur définis dans la feuille menu)
En gros en cliquant dans l'userform1 il répercute les valeurs
Merci

 

[Eric C]

Bonjour le forum
Bonjour Josette, bonjour BOBBY

Alors si c'est en plus pour une aider une bénévole d'une association, j'ai repris une idée de notre ami Thierry (que je salue au passage). Dans cet exemple, il suffit dans ta feuille Tableau de faire un clic droit pour voir s'afficher le UserForm avec tes # couleurs.
En espérant avoir comris ta demande.
Bon Ouikand à toutes & à tous [file name=Association_20050528150657.zip size=14165]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Association_20050528150657.zip[/file]

 

[Josette]

Re,
Merci infiniment Eric
Génial ton astuce, mais juste une chose... pourquoi le texte n'apparait pas dans la cellule ?
Bises

 

[Eric C]

Re le forum
Re bonjour Josette, re bonjour BOBBY

Je n'avais pas lu ta demande jusqu'au bout (Lecture diagonale....).
Rajoutes ceci

Private Sub Rouge_Click()
ActiveCell.Interior.ColorIndex = 3
[color=#FF0000]ActiveCell.Value = Rouge.Caption[/color]
Unload USF1
End Sub
Private Sub Bleu_Click()
ActiveCell.Interior.ColorIndex = 5
[color=#0000FF]ActiveCell.Value = Bleu.Caption[/color]
Unload USF1
End Sub
Private Sub Jaune_Click()
ActiveCell.Interior.ColorIndex = 6
[color=#FFFF00]ActiveCell.Value = Jaune.Caption[/color]
Unload USF1
End Sub

Baille baille (Ptite sieste tiens .......arf)

 

[Josette]

Re
Désolée mais ça ne marche pas ...
Tu peux vérifier
A+

 

[Eric C]

Re le forum
Re bonjour Josette & Bobby

Private Sub Rouge_Click()
ActiveCell.Interior.ColorIndex = 3
ActiveCell.Value = Rouge.Caption
Unload USF1
End Sub
Private Sub Bleu_Click()
ActiveCell.Interior.ColorIndex = 5
ActiveCell.Value = Bleu.Caption
Unload USF1
End Sub
Private Sub Jaune_Click()
ActiveCell.Interior.ColorIndex = 6
ActiveCell.Value = Jaune.Caption
Unload USF1
End Sub

 

[Josette]

Re Eric
C'est génial !!! MERCI de tout coeur pour votre aide.
Je vous embrasse.
A+