Discussion :

[973thom]

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

[ouskel'n'or]

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+

[973thom]

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

[973thom]

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.

[ouskel'n'or]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[973thom]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

ByVal Target As Excel.Range

C'est ma sélection ???

[SfJ5Rpw8]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[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

[ouskel'n'or]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

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

Merci bbil

A+