Aide sur userform

B

BOBBY

Guest

• 28 Mai 2005

• #2

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]

 

Pièces jointes

• Association2.zip

  14.8 KB · Affichages: 29

Vote positif 0 Vote négatif

J

Josette

Guest

• 28 Mai 2005

• #3

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

 

Vote positif 0 Vote négatif

Eric C

XLDnaute Barbatruc

• 28 Mai 2005

• #4

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]

 

Pièces jointes

• Association_20050528150657.zip

  13.8 KB · Affichages: 37

Vote positif 0 Vote négatif

J

Josette

Guest

• 28 Mai 2005

• #5

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

 

Vote positif 0 Vote négatif

Eric C

XLDnaute Barbatruc

• 28 Mai 2005

• #6

Re le forum
Re bonjour Josette, re bonjour BOBBY

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

Code:

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)

 

Vote positif 0 Vote négatif

J

Josette

Guest

• 28 Mai 2005

• #7

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

 

Vote positif 0 Vote négatif

Eric C

XLDnaute Barbatruc

• 28 Mai 2005

• #8

Re le forum
Re bonjour Josette & Bobby

Code:

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

😉

 

Vote positif 0 Vote négatif

J

Josette

Guest

• 28 Mai 2005

• #9

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

 

Vote positif 0 Vote négatif