colorier cells feuille1 à partir bouton feuille2

Salut,
essaie ca.

Sub Macro1()
'
' Macro1 Macro

Sheets('Feuil2').Select
Range('B10:F23').Select
Range('B23').Activate
With Selection.Interior
.ColorIndex = 6
.Pattern = xlSolid
End With
End Sub

En esperant avoir pu t'aider.
@+

Merci je vais tester de suite.

Moi j'ai testé ca et ca donne rien. 🙁

Private Sub CommandButton1_Click()
Sheets('Tableau récapitulatif').Select
If Range('C2').Value = 0.5 Then Range('C2').Interior.ColorIndex = 4
ActiveWindow.SelectedSheets.PrintPreview
End Sub

Bonjour Walden, Bichon 94, 🙂

Vois classeur de base joint avec bouton en feuille 1...

cordialement,

Brico [file name=RepColWalden.zip size=8616]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/RepColWalden.zip[/file]

Oops à la place de tableau récapitulatif il faut voir la feuille2.


J'ai testé ton code dans un bouton, ca ne marche pas . :unsure: Merci en tout cas.

Avis aux amateurs, ca fait bien 1 heure que je me prends la tete, si d'autres veulent se joindre à moi, c'est volontiers :lol:

Walden.

AHhhhhhhh voila mon bricolo préféré, comment vas tu ?

Moi comme tu vois je galère un peu :lol: .

Merci je vais testé cela.

Walden.

Walden écrit:

Merci je vais tester de suite.

Moi j'ai testé ca et ca donne rien. 🙁

Private Sub CommandButton1_Click()
Sheets('Tableau récapitulatif').Select
If Range('C2').Value = 0.5 Then Range('C2').Interior.ColorIndex = 4
ActiveWindow.SelectedSheets.PrintPreview
End Sub

Cliquez pour agrandir...

Tu vois le code que j'ai mis, il faudrait que j'intègre le code que tu m'as donné avec, mais où l'intégrer et comment, :S . Je vais regarder, mais si tu trouves je t'en saurais gré pour nième fois :lol: .

Merci.

Walden.

Re tout le monde, 🙂
Vois ce code :

Private Sub CommandButton1_Click()
Sheets('Tableau récapitulatif').Select
'If Sheets('Tableau récapitulatif').Range('C2').Value = 0.5 Then Range('C2').Interior.ColorIndex = 4
If Sheets('Tableau récapitulatif').Range('C2').Value = 0.5 Then Sheets('Tableau récapitulatif').Range('C2').Interior.ColorIndex = 4
ActiveWindow.SelectedSheets.PrintPreview
End Sub

Attention la première ligne en commentaire est là pour te détailler f'effet du problème, désactive la bonne et actibve celle là, ça cause tout seul... 🙂 (c'est pas au bon endroit quoi..)

Cordialement,

Brico

Oui j'ai pareil j'ai trouvé ca aussi. 🙂 *

Merci encore à toi Mr le Bricolo le sauveur de mes fesses :lol: .

Walden.

Re tout le monde, 🙂
Arf ! Walden, 🙂

N'oublies pas de consulter l'aide VBA 😉 , le temps 'perdu' dessus sera rattrappé au centuple 🙂

Ton pb était simple, tu fais appel à partir du code d'une feuille à des propriétés de cellules situées sur une autre feuille. Quand sous VBA tu mets Range('D5').Truc, en fait implicitement, tu as tapé Worksheets(x).Range('D5').Truc, et même.. Application.Workbooks(z).Worksheets(x).Range('D5').Truc. La puissance de VBA nous permet des raccourcis par omissions bien pratiques, mais si on ne fait pas attention où l'on met les pieds, Boum !
Dons tu es sur Feuil1, tu selectionnes Feuil2, tu dis D5 en vert, étant de base dans la feuille de code de Feuil1.... ben sans précision, il te colore D5 sur la feuille de base implicite à savoir Feuil1. Ce qui est piégeux dans ton cas, c'est que tu soumets le coloriage à un test, donc il n'est bien sûr jamais vérifié, et tu n'as même pas une case colorée (où il ne faut pas) pour te mettre sur la piste.. 🙂

Le code de Bichon 94 fonctionne d'ailleurs, mais si comme je pense il l'a écrit pour être placé dans un Module indépendant, il faut l'y mettre et mettre dans le code clic de ton bouton un Call Macro1.. 😉, dans ce cas la feuille implicite est celle qui est active...

Bonne soirée,

Brico

édition, oups, oublié le Workbook :whistle:

Message édité par: bricofire, à: 27/02/2006 17:49

Oui j'ai tendance à oublier l'aide de VBA va falloir que j'y pense plus souvent en effet.

Merci Brico.

Walden.