[VBA-E2003] Colorier des cellule sélectionnée

Bonjour à tous,

et au passage félicitation pour le transfert sur le nouveau forum c'est plutot réussi ;);)

Voilà pour moi : j'ai l'habitude de programmer en vba sous access mais je ne l'ai jamais fait sous excel et voilà la galère du débutant qui recommence.

mon premier problème : J'aimerai créer un bouton qui, après un clic, me coloriera les cellules de mon tableurs que j'aurais préalablement sélectionnées. et ne j'ai absolument aucune idées sur la façon de procéder.

Aussi j'imagine qu'il existe des codes pour chaque couleur donc si quelqu'un les a je le remercie d'avance de les poster sur le forum.

A bientôt (oui oui je vais revenir vous embêter plus souvent désormais ;))

Merci encore

Thomas

Regarde déjà à cette adresse si le code fourni par bbil te donne des idées

http://www.developpez.net/forums/sho...cellule+select
Tu nous diras ensuite sur quoi tu cales... ;)
A+

Merci ouskel'n'or, j'étudie celà de suite et je vous tiendrai au courant..

Woua yiailla !!!

ça m'a l'air bien chaud tout ça... j'ai l'impression de na plus rien connaitre à la programation. vivement que je retourne sous access.

Moi ce que je souhaite c'est :

• vérifier si une sélection est active
• changer la couleur des cellules sélectionnée

Donc en gros : comment sait on s une sélection est courante ? (range ????) et comment modifie t-on celle ci ?

Merci encore.;)

Tu peux tester l'adresse de la cellule active dans le code de la feuille de calcul

Code:

---

1 2 3 4

Sub Worksheet_SelectionChange(ByVal Target As Excel.Range) msgbox Target.address end sub

---

A partir de là, tu testes l'adresse, si c'est la bonne, tu collories...

Code:

---

1 2 3 4

if Target.address = range(Cells(NoLigne,NoColonne)).address then Range(Target.address).Font.ColorIndex = 3 endif

---

C'est à toi de définir NoLigne, NoColonne et ColorIndex.
Tu penses pouvoir t'en sortir ?

Tu dis

Décidément... je n'y comprend plus rien à la prog...

Si je comprends ce que tu as écris, on ne peut pas connaitre les cellules sélectionnées car dans mon cas elle changeront tout le temps ....

Ces cellules seraient donc ma cible (Target) ??

Aussi peux tu m'expliquer ceci :

Code:

---

ByVal Target As Excel.Range

---

C'est ma sélection ???

ben la sélection courante est contenu dans l'object selection tiens un peu de code plus approprié à ton probléme:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

Sub test() Dim c As Range If TypeName(Selection) = "Range" Then For Each c In Selection If c < 0 Then c.Interior.Color = vbRed If c > 10 Then c.Interior.Color = vbBlue If c = 100 Then c.Interior.Color = RGB(0, 255, 0) Next End If   End Sub

---

Merci bbil, ça fonctionne à peu près

Pouvez vous m'expliquer à quoi correspond la clause RANGE ??? Histoire que j'y vois un peu plus clair ?

Merci

thom

Je suppose que tu veux placer ton bouton sur ta feuille. Auquel cas, ton code doit être placé dans le click du bouton

Code:

---

1 2 3 4

Private Sub CommandButton1_Click() MsgBox ActiveCell.Address 'juste pour que tu aies une idée End Sub

---

et le clic du bouton (deux clics sur le bouton en mode création) te place dans la feuille de code de la feuille de calcul
Là, tu peux faire le test de bbil ;)

Citation:

---

Envoyé par qui

tiens un peu de code plus approprié à ton probléme

---

Merci bbil :furax:

A+

Citation:

---

Envoyé par 973thom

Merci bbil, ça fonctionne à peu près

Pouvez vous m'expliquer à quoi correspond la clause RANGE ??? Histoire que j'y vois un peu plus clair ?

Merci

thom

---

dans ce cas range est un objet .. :

Citation:

---

Envoyé par Aide en ligne excel

Représente une cellule, une ligne, une colonne ou une sélection de cellules contenant un ou plusieurs blocs contigus de cellules ou une plage 3D.

---

le test effectué par la fonctionTypeName, permet d'être sur que la sélection est bien un range, et pas un graphique par exemple...

ok,

merci à tout les deux pour votre aide et votre rapidité d'action... je commence à y voir un peu plus clair !

Demain je m'y remet et je vous tiens au courant...

Ben oui je parts me baigner dans le plus beaux lagon du monde 8-) 8-), j'ai fini le boulot pour aujoud'hui!

@ demain donc

-12.779444 / 45.227222... Sud ? Je n'ai pas la carte du monde mais ce ne dois pas être loin de la Nouvelle Calédonie... :lol:

Citation:

---

Envoyé par ouskel'n'or

-12.779444 / 45.227222... Sud ?

---

Vi m'sieu (m'dame ???) !!

Citation:

---

Envoyé par ouskel'n'or

Je n'ai pas la carte du monde mais ce ne dois pas être loin de la Nouvelle Calédonie... :lol:

---

ça fait qd même qq kilomètre ...

Look at this !

Bon c'est pas le tout !!!! j'y retourne à ma prog excel !!

Sûrement à tout à l'heure

Thomas

c'est bon j'arrive à peu près à faire ce que je veux.

une autre question cependant :

Comment modifier la couleur du texte de la cellule ???
J'ai essayer avec plusieurs paramètres mais visiblement ce ne sont pas les bons (pattern, patterncollor, PatternColorIndex ...)

Merci

ben avec l'enregistreur de macro ..., tu aurai trouvé ...

Code:

---

1 2 3 4 5 6 7 8

Sub Macro1() ' ' Macro1 Macro ' Macro enregistrée le 26/04/2006 par bbil ' Selection.Font.ColorIndex = 3 End Sub

---

tu as aussi la propriété color

Code:

---

Selection.Font.Color

---

Citation:

---

Envoyé par Tu

ça fait qd même qq kilomètre ...

---

Oh, tu sais, vu d'ici... :lol:

Tu en es où ?

Citation:

---

Envoyé par ouskel'n'or

Oh, tu sais, vu d'ici... :lol:

Tu en es où ?

---

Ben ma foie ça fonctionne à peu près comme je veux. Pour un début se sera bon comme ça...
J'arrive à affecter une couleur + texte en fct du type de journée à passer (gestion de l'agenda de ma boîte), aux cellules sélectionnées.

Reste à faire des restrictions en fonction des utilisateurs (en théorie chacun ne devrait s'occuper que de sa collone)mais là ça va pas être de la tarte...

Un grand merci pour le coup de main

:merci:

thom