Changement de couleur d'une selection de cellules

[kaluspirit]

Bonjour,
Je suis nouveau sur le forum et je suis pas trés doué en vba. Mais bon j'ai quand même quelques notions, et la je comprend vraiment pas pourquoi mon code marche pas.

Mon but est tout simplement de colorer les cellules sélectionnées.

Lorsque je met se code il me met une erreur, il n'arrive pas a définir la propriété de colorindex.

code :
Private Sub Label1_Click()

With Selection
If ActiveSheet.Protect = False Then
ActiveSheet.Range(Selection.Address).Interior.ColorIndex = 16
End If
End With

End Sub

Si qq a la solution sa m'arrangerais et dsl si c'est tout bête mais j'vois vraiment pas la... 😕

En tout cas merci d'avance.

 

[Guest]

Re : Changement de couleur d'une selection de cellules

bonjour KaluSpirit,

ActiveSheet.Protect n'est pas une propriété renvoyant False ou True mais une méthode pour protéger la feuille.

A+

 

[kaluspirit]

Re : Changement de couleur d'une selection de cellules

Bonjour Hasco,
Oki pour la fonction protect, mais en fait sur cette ligne le déboguer ne me dit rien c'est sur la ligne d'après qu'il me met l'erreur :

ActiveSheet.Range(Selection.Address).Interior.ColorIndex = 16

Même si je laisse que celle-ci, la même erreur se produit...
j'ai mis un espion sur "selection.address", il me renvois bien les coordonnées d'une plage de cellules...🙁

...A ni rien comprendre...

 

[Guest]

Re : Changement de couleur d'une selection de cellules

Bonjour Kaluspirit, le forum,

Selection.Interior.colorIndex=16

A+

 

[kaluspirit]

Re : Changement de couleur d'une selection de cellules

Oki c'est nikel sa fonctionne.

Merci bien et bonne journée a toi. 🙂

 

[kaluspirit]

Re : Changement de couleur d'une selection de cellules

Merci bien sa marche comme sur des patins a roulettes.

A la prochaine, et bonne journée a toi 🙂

 

[kaluspirit]

Re : Changement de couleur d'une selection de cellules

Merci bien sa marche comme sur des patins a roulettes.

A la prochaine, et bonne journée a toi 🙂

 

[kaluspirit]

Re : Changement de couleur d'une selection de cellules

Opus dsl je pensai que sa voulais pas envoyer ma réponse....
apparemment si...
😱