lien du bouton selon la valeur d'une liste

R

repcheks

Guest

• 17 Avril 2011

• #2

Re : lien du bouton selon la valeur d'une liste

Bonjour,

Code:

Sheets(Sheets("Menu").Range("B7").value).select

 

Vote positif 0 Vote négatif

B

Bienfaiteur

Guest

• 17 Avril 2011

• #3

Re : lien du bouton selon la valeur d'une liste

Désolé, ca ne marche pas j'ai une erreur d'exécution "9": l'indice n'appartient pas à la sélection ...

 

Vote positif 0 Vote négatif

néné06

XLDnaute Accro

• 17 Avril 2011

• #4

Re : lien du bouton selon la valeur d'une liste

Bonjour Bienfaiteur
Pour la feuille:
Sub Bouton3_Clic()
a = Cells(7, 2)
Sheets(a).Select
End Sub

A+

 

Vote positif 0 Vote négatif

R

repcheks

Guest

• 17 Avril 2011

• #5

Re : lien du bouton selon la valeur d'une liste

J'ai pourtant utilisé le fichier que tu as mis en exemple.

Ou alors, tu as laissé ta cellule B7 vide...

 

Vote positif 0 Vote négatif

B

Bienfaiteur

Guest

• 17 Avril 2011

• #6

Re : lien du bouton selon la valeur d'une liste

Ah je viens de comprendre !! Ca marche en fait ! BRAVO à toi ^^
Si la case est vide, c'est à dire qu'il n'y a pas de choix, ca ne marche pas ! mais c'est normal ! Par contre, peut on améliorer ce service en disant justement que vu qu'il n'y a pas de valeur choisi le bouton ne peut marcher ??

 

Vote positif 0 Vote négatif

R

repcheks

Guest

• 17 Avril 2011

• #7

Re : lien du bouton selon la valeur d'une liste

Code:

Sub Bouton3_Clic()
If Sheets("Menu").Range("B7").Value <>"" Then 
Sheets(Sheets("Menu").Range("B7").Value).Select
Else
MsgBox"Pas de nom !"
End If
End Sub

 

Vote positif 0 Vote négatif

B

Bienfaiteur

Guest

• 17 Avril 2011

• #8

Re : lien du bouton selon la valeur d'une liste

Je viens de voir avec mon vrai fichier, et j'ai vu que les valeurs de la liste n'ont pas le même nom que mes feuilles excel car trop long ! Du genre, le résultat de ma cellule c'est souvent la signification d'un sigle comme P.S.G par exemple ... Et donc ma cellule donne le nom Paris Saint Germain mais ma feuille s'appelle PSG ... Comment faire pour résoudre ce problème sans changer le nom des feuilles ? merci

Je poste le nouveau fichier avec les nouvelles contraintes 😛

 

Pièces jointes

• test a resoudre.xls

  36.5 KB · Affichages: 40
• test a resoudre.xls

  36.5 KB · Affichages: 48
• test a resoudre.xls

  36.5 KB · Affichages: 47

Dernière modification par un modérateur: 17 Avril 2011

Vote positif 0 Vote négatif

néné06

XLDnaute Accro

• 17 Avril 2011

• #9

Re : lien du bouton selon la valeur d'une liste

Une solution

Sub Bouton3_Clic()
a = Cells(7, 2)
if a= "Paris saint germain" then a= "PSG"
if a= "Olympique de marseille" then a= "OM"
if a= "Olympique lyonnais" then a= "OL"
Sheets(a).Select
End Sub
A+

 

Vote positif 0 Vote négatif

B

Bienfaiteur

Guest

• 17 Avril 2011

• #10

Re : lien du bouton selon la valeur d'une liste

néné ca coince avec la même erreur que tout à l'heure la "9" ... ca bloque au niveau "Sheets(a).Select" pourtant la cellule n'est pas vide .. hmm
C'est peut être parce que ma cellule de choix n'est pas une cellule classique ... elle a été fusionnée ..

 

Vote positif 0 Vote négatif

néné06

XLDnaute Accro

• 17 Avril 2011

• #11

Re : lien du bouton selon la valeur d'une liste

J'ai changé la Cells(7,2) Par cells(7,1)

A+

 

Vote positif 0 Vote négatif

néné06

XLDnaute Accro

• 17 Avril 2011

• #12

Re : lien du bouton selon la valeur d'une liste

A rectifier
Tu as deux espaces entre Olympique de marseille et dans ma routine j'ai mis un seul espace!

entre "olympique" et "de"

Edit: Salutation du soir à Carcharodon-Carcharias

A+

 

Dernière édition: 17 Avril 2011

Vote positif 0 Vote négatif

B

Bienfaiteur

Guest

• 17 Avril 2011

• #13

Re : lien du bouton selon la valeur d'une liste

Woauh ca c'est du talent Bravo les gars ca marche du tonnerre !! Vous déchirez 🙂


ps: oui néné je l'ai vu aussi après ^^ c'est pour ca que ca ne marchait pas du coup 😉 merci bien !

 

Vote positif 0 Vote négatif

B

Bienfaiteur

Guest

• 24 Avril 2011

• #14

Re : lien du bouton selon la valeur d'une liste

Bonjour à Tous ^^
J'ai modifié le fichier mère (du 1er message) "test à résoudre". Cette fois-ci, j'ai besoin de lier 2 critères dans mon choix de feuille. Vous pouvez visualiser mon problème sur le fichier. Je vous remercie 🙂

 

Vote positif 0 Vote négatif