Discussion :

[maketossss]

Je pense que je vais avoir du mal à m'expliquer mais je me lance

J'ai de nombreuses feuilles dans un classeur, j'ai fais des boutons de commande pour pouvoir naviguer aisément entre elles, les feuilles sont classées de façon pyramidale (sur le 1ere feuille 2 boutons qui renvoient sur 2 autres feuilles etc..., je souhaiterais savoir si il y un moyen de mettre de la couleur sur les boutons quand l'une des feuilles qui le compose est remplie ?
Je souhaites que celui qui consulte le classeur puisse savoir la feuille qui est remplie sans regarder toutes les feuilles...

Merci

[SfJ5Rpw8]

c'est pas trés clair... comment peut-on savoir qu'une feuille est remplie...?

[calimero91]

bonjour

il faut dans tes feuilles que tu remplisse une cellule que lorsque ta feuille est rempli. ensuite tu fait un test sur cette cellule et tu fait changer la couleur de ton bouton en fonction du resultat du test.
je sais pas si BBIL est d'accord avec moi ou si j'ai mal compris le probleme.

[leroissejp]

Bonjour,
Tu peux faire ceci, si ta dernière cellule de ta plage est par exemple G50.
Si la cellule G50 est vide, le bouton sera colorer en bleu, si elle est remplie, en Rouge.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
Sub ColorButton()
Dim i, col As Range, sélection As Range
Set sélection = Range("G1:50")
For Each col In sélection
 
If col.Value <> "" Then
    Sheets(1).CommandButton1.BackColor = vbRed
    Else
    Sheets(1).CommandButton1.BackColor = vbBlue
 
End If
Next
End Sub

jpleroisse

[SfJ5Rpw8]

leroissejp, ? elle sert à quoi la boucle For dans ton code... :

[leroissejp]

Re,
Exact bbil, j'ais fait un copier coller d'un code que j'avais fait pour trouver toutes les cellules d'une plage avec un format particuler, bon j' ai laisser la boucle se qui peut quand même ralentir un peu l'exécution.Suffit de l'enlever.

jpleroisse

[maketossss]

Bonne solution, comment puis je faire pour tester la couleur d'un bouton (pour les feuilles d'avant) ?