OVH Cloud OVH Cloud

Navigation

3 réponses
Avatar
xtrail38
Bonsoir,

Voici mon pb:

J'ai 1er classeur (Maître) dans lequel j'ai toutes mes procédures pour
pouvoir créer des graphiques dans un 2ème classeur (Modèle) n'ayant qu'une
feuille "Sommaire" et d'autres procédures.
Alors suivant le nombre de graphiques que je souhaite générer, je construit
autant de pages nouvelles dans le second fichier. Une fois cette étape fini,
je passe sur ce second fichier, et en cliquant sur un bonton de la feuille
"Sommaire", je détruit ce bouton et je génère plein de boutons sur cette
même feuille, qui me fera déplacer dans mon fichier. J'ai donc écris ceci:

Sub Bouton1_QuandClic()
Sheets("Feuil2").Select
End Sub
Sub Bouton2_QuandClic()
Sheets("Feuil3").Select
End Sub
......
Pour l'instant je suis à Bouton200_QuandClic.....

Je souhaiterais, en fait, pour quelque soit le bouton cliquer, faire appel à
la même procédure, mais suivant le bouton cliquer, aller au bon graphique.

Merci, j'espère avoir été clair.

3 réponses

Avatar
Rai
Bonsoir,

Et pourquoi ne pas générer des Hyperliens qui pointent vers la bonne feuille ?
On peut même automatiser leur écriture :
For i = 2 To 200
Cells(i, 3) = "Aller en Feuille " & i
ActiveSheet.Hyperlinks.Add Cells(i, 3), "", "Feuil" & i & "!A1"
Next i

Ainsi plus de macro, et plus de boutons à gérer.

Bonne soirée

Rai

"xtrail38" a écrit dans le message de news: udvv8M$
Bonsoir,

Voici mon pb:

J'ai 1er classeur (Maître) dans lequel j'ai toutes mes procédures pour
pouvoir créer des graphiques dans un 2ème classeur (Modèle) n'ayant qu'une
feuille "Sommaire" et d'autres procédures.
Alors suivant le nombre de graphiques que je souhaite générer, je construit
autant de pages nouvelles dans le second fichier. Une fois cette étape fini,
je passe sur ce second fichier, et en cliquant sur un bonton de la feuille
"Sommaire", je détruit ce bouton et je génère plein de boutons sur cette
même feuille, qui me fera déplacer dans mon fichier. J'ai donc écris ceci:

Sub Bouton1_QuandClic()
Sheets("Feuil2").Select
End Sub
Sub Bouton2_QuandClic()
Sheets("Feuil3").Select
End Sub
......
Pour l'instant je suis à Bouton200_QuandClic.....

Je souhaiterais, en fait, pour quelque soit le bouton cliquer, faire appel à
la même procédure, mais suivant le bouton cliquer, aller au bon graphique.

Merci, j'espère avoir été clair.




Avatar
xtrail38
Re bonsoir

C'est une chose dont j'avais proposé, mais qui n'a pas été retenu. Je ne
peux pas faire ce que je veux. Dans ce projet, le cahier des charges est
précis, et ce sont des boutons qui ont été décidés.

Merci tout de même.

"Rai" a écrit dans le message de news:
41a0d934$0$8160$
Bonsoir,

Et pourquoi ne pas générer des Hyperliens qui pointent vers la bonne feuille
?
On peut même automatiser leur écriture :
For i = 2 To 200
Cells(i, 3) = "Aller en Feuille " & i
ActiveSheet.Hyperlinks.Add Cells(i, 3), "", "Feuil" & i & "!A1"
Next i

Ainsi plus de macro, et plus de boutons à gérer.

Bonne soirée

Rai

"xtrail38" a écrit dans le message de news:
udvv8M$
Bonsoir,

Voici mon pb:

J'ai 1er classeur (Maître) dans lequel j'ai toutes mes procédures pour
pouvoir créer des graphiques dans un 2ème classeur (Modèle) n'ayant qu'une
feuille "Sommaire" et d'autres procédures.
Alors suivant le nombre de graphiques que je souhaite générer, je
construit
autant de pages nouvelles dans le second fichier. Une fois cette étape
fini,
je passe sur ce second fichier, et en cliquant sur un bonton de la feuille
"Sommaire", je détruit ce bouton et je génère plein de boutons sur cette
même feuille, qui me fera déplacer dans mon fichier. J'ai donc écris ceci:

Sub Bouton1_QuandClic()
Sheets("Feuil2").Select
End Sub
Sub Bouton2_QuandClic()
Sheets("Feuil3").Select
End Sub
......
Pour l'instant je suis à Bouton200_QuandClic.....

Je souhaiterais, en fait, pour quelque soit le bouton cliquer, faire appel
à
la même procédure, mais suivant le bouton cliquer, aller au bon graphique.

Merci, j'espère avoir été clair.




Avatar
xtrail38
Bonjour,

Est-ce que ce que je souhaite est possible, ou non?

Merci

"xtrail38" a écrit dans le message de news:
uT5yn1$
Re bonsoir

C'est une chose dont j'avais proposé, mais qui n'a pas été retenu. Je ne
peux pas faire ce que je veux. Dans ce projet, le cahier des charges est
précis, et ce sont des boutons qui ont été décidés.

Merci tout de même.

"Rai" a écrit dans le message de news:
41a0d934$0$8160$
Bonsoir,

Et pourquoi ne pas générer des Hyperliens qui pointent vers la bonne
feuille ?
On peut même automatiser leur écriture :
For i = 2 To 200
Cells(i, 3) = "Aller en Feuille " & i
ActiveSheet.Hyperlinks.Add Cells(i, 3), "", "Feuil" & i & "!A1"
Next i

Ainsi plus de macro, et plus de boutons à gérer.

Bonne soirée

Rai

"xtrail38" a écrit dans le message de news:
udvv8M$
Bonsoir,

Voici mon pb:

J'ai 1er classeur (Maître) dans lequel j'ai toutes mes procédures pour
pouvoir créer des graphiques dans un 2ème classeur (Modèle) n'ayant
qu'une
feuille "Sommaire" et d'autres procédures.
Alors suivant le nombre de graphiques que je souhaite générer, je
construit
autant de pages nouvelles dans le second fichier. Une fois cette étape
fini,
je passe sur ce second fichier, et en cliquant sur un bonton de la
feuille
"Sommaire", je détruit ce bouton et je génère plein de boutons sur cette
même feuille, qui me fera déplacer dans mon fichier. J'ai donc écris
ceci:

Sub Bouton1_QuandClic()
Sheets("Feuil2").Select
End Sub
Sub Bouton2_QuandClic()
Sheets("Feuil3").Select
End Sub
......
Pour l'instant je suis à Bouton200_QuandClic.....

Je souhaiterais, en fait, pour quelque soit le bouton cliquer, faire
appel à
la même procédure, mais suivant le bouton cliquer, aller au bon
graphique.

Merci, j'espère avoir été clair.