Nom de Bouton

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:

---

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?

bonjour dynarc,

Citation:

---

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

---

Code:

---

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

---

ou bien,

Code:

---

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

---

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à?

Bonsoir
ça ne serait pas ça :

Code:

---

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

---

Vraiment au hasard

Non toujours pas.

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

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

bonjour dynarc,

Citation:

---

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:

---

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

---

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...

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:

---

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

Re,

Si tu veux utiliser un truc du style

Code:

---

namebouton(x,y).Backcolor = ...

---

il faut que ta fonction renvoie un contrôle de type bouton, et non le nom du bouton.

Tu pourrais avoir une fonction dont la signature serait

Code:

---

1 2 3 4

function Bouton(x as long, y as long) as control ... ... end function

---

Il serait intéressant que tu donnes le code de ta fonction. Il serait peut-être intéressant que tu expliques ce que tu souhaites réaliser, car il y a peut-être plus simple que de créer 72 boutons sur une feuille... :koi:

bonjour a tous et merci pour vos réponses et votre aide et tout et tout.
bisous à votre famille et vos amis


Pour Pierre fauconnier:

nous essayons d'élaborer un jeu avec 72 cases réagissant au clic de l'utilisateur. (Ne nous demandez pas pourquoi sur excel, c'est pas nous qu'on décide!). Etant débutants on a choisit la structure boutonnienne. (et on voudrait maintenant s'en sortir avec ceux-ci, voilà.

hop et sans transition, "pouf pouf" comme aurait dit Desproges:

Voici le programme "Namebutton" comme nous l'avions écrit au départ. celui ci nous permettant de localiser les boutons:

Code:

---

1 2 3 4 5

Function NameButton(i As Integer, j As Integer) As String   NameButton = "B" & i & j   End Function

---

on a remplacé string par control depuis mais ça ne marche pas non plus et on commence à déprimer un peu.

Lorsqu'on utilise ce programme avec un sub de la forme

Code:

---

1 2 3

sub B37_click () namebutton(3 , 4).backcolor = couleurtruc endsub

---

L'erreur affichée est dorénavant:

Citation:

---

Erreur d'execution '91'
Variable Objet ou variable de bloc With non définie

---