Discussion :

[dynarc]

Bien le bonjour,

je suis actuellement en train de me battre avec Excel VBA...

Voici mon probleme. J'ai 72 boutons, nommés de la forme Bij, i designant le numero de la ligne et j celui de la colonne.
J'ai créé une fonction "NameButton(i,j)" renvoyant le nom du boutton. Celle ci fonctionne :-)

J'aimerais changer la couleur de fond d'un bouton. Pour ce faire j'ai tenté la chose suivante:

Par exemple:

Code :

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

NameButton(1,3).backcolor = &HFFC0C0

&HFFC0C0 étant bien entendu une couleur.
Le problème est qu'il considère NameButton(1,3) comme le nom du bouton, or je voudrais qu'il considère la valeur de la fonction comme le nom de ce bouton.

Des suggestions? Des idées?

[sabzzz]

bonjour dynarc,

J'ai créé une fonction "NameButton(i,j)" renvoyant le nom du boutton. Celle ci fonctionne

Code :

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

Sheets("NomDeLaFeuille").Controls(NameButton(i,j)).Backcolor = &HFFC0C0

ou bien,

Code :

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

Sheets("NomDeLaFeuille").Shapes(NameButton(i,j)).Backcolor = &HFFC0C0

[dynarc]

Tout d'abord merci pour ta réponse Isabelle, cependant cela ne marche toujours pas...

J'ai entendu dire que certaines fonctions ne sont pas activées par défaut. Le problème peut il venir de là?

[casefayere]

Bonsoir
ça ne serait pas ça :

Code :

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

Sheets("NomDeLaFeuille").Controls("NameButton(" & i & "," & j & ")").Backcolor = &HFFC0C0

Vraiment au hasard

[dynarc]

Non toujours pas.

Pouvez vous me dire a quoi sert exactement ces fonctions controls() et shapes()?

[casefayere]

Bonjour,
Va faire un tour sur ce lien
http://silkyroad.developpez.com/VBA/ControlesUserForm/

[sabzzz]

bonjour dynarc,

Pouvez vous me dire a quoi sert exactement ces fonctions controls() et shapes()?

Shapes : pour faire référence au objects créer à partir de la boite à outils dessin.
controls : pour faire référence au objects créer à partir de la boite à outils Controles.

il y a aussi cette syntaxe que tu peut utiliser,

Code :

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

1
2
bouton  = NameButton(i,j)
Feuil1.Shapes(bouton).OLEFormat.Object.Backcolor = &HFFC0C0

[Pierre Fauconnier]

Bonjour

Donner le code de la fonction serait utile.

Dire ce qui ne marche pas, ce qui plante serait un plus

Donner l'éventuel message d'erreur serait un "must"

Expliquer ce qui est attendu et ce qui est réalisé aiderait à aider...

[patricktoulon]

bonjour a tous
javais deja il y a quelque temps poser le meme genre de question

il me semble que le titre du post etait "le nom du bouton"

en plus pour le cas ici j'ai remarquer que selon la version de excel le"namebouton ne marche pas bien

alors

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 trucmachin ()
dim nombouton as variant 
 
nombouton=activecontrol.name
'pour modifier la valeur 
sheets("trucmachincouette").range(nombouton).value='cequetuveux
'pour colorier l'interieur de la cellule
sheets("trucmachincouette").range(nombouton).interior.colorindex='de 1 a 56 comme tu veux
'pour les caractere en couleure
sheets("trucmachincouette").range(nombouton).font.colorindex='de 1 a 56
 
 
end sub

et il y a bien d'autre solutions et possibilités
au plaisir