MENU USERFORM

[Sandrine]

Bonsoir cher(e)s ami(e)s du forum

Très peu douée en VBA, je sollicite votre aide afin d'avoir un bon début de base de travail sur un projet éducatif.
En vous remerciant par avance.


Sandrine

 

[Yeahou]

Bonjour sandrine, le forum

voila ton fichier fonctionnel

Cordialement, A+

 

[Sandrine]

Bonsoir cher(e)s ami(e)s du forum

Bonsoir Yeahou,

Merci beaucoup pour le fichier, mais je voudrais savoir si il est possible de laisser l'userform toujours ouvert dans la feuille pour pouvoir cliquer sur les boutons plusieurs fois et remplir les celules choisies ???

Cordialement.
Sandrine.

 

[Yeahou]

Re bonjour Sandrine

voila! mais cela ne fonctionnera pas sur Excel 97 car la propriété showmodal des userform est apparue aprés.

Cordialement, A+

 

[Sandrine]

Bonjour le forum, Yeahou

Oulaaaa je suis bien matinale ce samedi.....

Merci beaucoup Yeahou,

mais peux tu m'expliquer stp pourquoi quand je sélectionne plusieurs cellules et que j'appui sur un bouton, seule une cellule est alimentée.

Est-il possible d'alimenter toutes les cellules sélectionnées en cliquant sur le bouton pomme ?

Cordialement.

Sandrine.

 

[Yeahou]

Bonjour Sandrine, le forum

il faut simplement adapter le code qui actuellement se référe à la cellule active, hors dans une sélection, il n'ya qu'une seule cellule active.

voila le code modifié
Private Sub CommandButton1_Click()
Dim Cel As Range
For Each Cel In Selection
Cel.FormulaR1C1 = CommandButton1.Caption
Cel.Interior.ColorIndex = 36
Next Cel
End Sub
Private Sub CommandButton2_Click()
Dim Cel As Range
For Each Cel In Selection
Cel.FormulaR1C1 = CommandButton2.Caption
Cel.Interior.ColorIndex = 35
Next Cel
End Sub
Private Sub CommandButton3_Click()
Dim Cel As Range
For Each Cel In Selection
Cel.FormulaR1C1 = CommandButton3.Caption
Cel.Interior.ColorIndex = 3
Next Cel
End Sub
Private Sub CommandButton4_Click()
Dim Cel As Range
For Each Cel In Selection
Cel.FormulaR1C1 = CommandButton4.Caption
Cel.Interior.ColorIndex = 9
Next Cel
End Sub

Cordialement, a+

 

[JP]

Bonsoir le forum


Peux t'on intervenir sur Cel.Interior.ColorIndex = 9
pour qu'il prenne la couleur du bouton automatiquement sans toujours besoin de préciser le n° d'index
cad qu'il prenne la couleur qu'on lui aura attribué dans la propriétés de l'userform ???

J.Paul

 

[JP]

Bonsoir le forum

Est ce que quelqu'un peut me repondre ?

Je vous en serais bien gré.

Merci

 

[Yeahou]

Re bonjour à tous

Décidément, il n'y a que des impatients aujourd'hui. C'est dimanche et il fait beau, alors on ne reste pas connecté tout le temps.
Pour ta question, Jp, il n'y a aucune correspondance entre les couleurs d'une feuille et les couleurs d'un bouton. Pour faire ce que tu veux, il faut aller lire les composantes couleurs (RVB) du bouton et les affecter à une couleur Excel pour ensuite affecter la couleur aux cellules ce qui complique quelque peu la chose.
Une solution de contournement serait de parcourir la collection couleur et d'affecter la plus proche de celle du bouton ce qui éviterait de retoucher les couleurs Excel.

A+