Activer une feuille avec InputBox

7 réponses

Max du Vuache

25/02/2006 à 18:10

Bonjour,

J'essaie d'écrire le code pour activer une des nombreuses feuilles dans un
classeur avec l'InputBox d'Excel de deux façons:
soit l'utilisateur tape le nom de la feuille dans l'InputBox (ce que
j'arrive à faire et ça marche),
soit , dans l'InputBox, il clique sur le nom de la feuille qui apparaît dans
une cellule d'une feuille Excel (j'ai écrit une petite macro qui liste tous
les noms des feuilles du classeur à l'endroit choisi par l'utilisateur, de
haut en bas).

Merci de vos lumières

Max

7 réponses

garnote

25/02/2006 à 18:19

Salut Max,

Essaie ceci:
Sub Sélection()
rep = Application.InputBox(Prompt:="Sélectionnez la cellule contenant" _
& vbNewLine & "le nom de la feuille à activer.", Type:=8)
Sheets(rep).Activate
End Sub

Serge

"Max du Vuache" <nospam du a écrit dans le message de
news:

Bonjour,

J'essaie d'écrire le code pour activer une des nombreuses feuilles dans un
classeur avec l'InputBox d'Excel de deux façons:
soit l'utilisateur tape le nom de la feuille dans l'InputBox (ce que
j'arrive à faire et ça marche),
soit , dans l'InputBox, il clique sur le nom de la feuille qui apparaît
dans une cellule d'une feuille Excel (j'ai écrit une petite macro qui
liste tous les noms des feuilles du classeur à l'endroit choisi par
l'utilisateur, de haut en bas).

Merci de vos lumières

Max

Max du Vuache

25/02/2006 à 18:50

Bonjour Garnote,

Merci de ta réponse rapide, ça marche si on clique sur le nom, mais cela ne
fonctionne pas, quand un saisi le nom dans la InputBox.
Max
"garnote" a écrit dans le message de news:
%23mzv2%

Salut Max,

Essaie ceci:
Sub Sélection()
rep = Application.InputBox(Prompt:="Sélectionnez la cellule contenant"
_
& vbNewLine & "le nom de la feuille à activer.", Type:=8)
Sheets(rep).Activate
End Sub

Serge

"Max du Vuache" <nospam du a écrit dans le message de
news:
Bonjour,

J'essaie d'écrire le code pour activer une des nombreuses feuilles dans
un classeur avec l'InputBox d'Excel de deux façons:
soit l'utilisateur tape le nom de la feuille dans l'InputBox (ce que
j'arrive à faire et ça marche),
soit , dans l'InputBox, il clique sur le nom de la feuille qui apparaît
dans une cellule d'une feuille Excel (j'ai écrit une petite macro qui
liste tous les noms des feuilles du classeur à l'endroit choisi par
l'utilisateur, de haut en bas).

Merci de vos lumières

Max

garnote

25/02/2006 à 18:55

Pour prévoir le coup du bouton "Annuler" :
Ajouter If rep = False Then Exit Sub

Sub Sélection()
rep = Application.InputBox(Prompt:="Sélectionnez la cellule contenant" _
& vbNewLine & "le nom de la feuille à activer.", Type:=8)
If rep = False Then Exit Sub
Sheets(rep).Activate
End Sub

ReSerge

"garnote" a écrit dans le message de news:
%23mzv2%

Salut Max,

Essaie ceci:
Sub Sélection()
rep = Application.InputBox(Prompt:="Sélectionnez la cellule contenant"
_
& vbNewLine & "le nom de la feuille à activer.", Type:=8)
Sheets(rep).Activate
End Sub

Serge

"Max du Vuache" <nospam du a écrit dans le message de
news:
Bonjour,

J'essaie d'écrire le code pour activer une des nombreuses feuilles dans
un classeur avec l'InputBox d'Excel de deux façons:
soit l'utilisateur tape le nom de la feuille dans l'InputBox (ce que
j'arrive à faire et ça marche),
soit , dans l'InputBox, il clique sur le nom de la feuille qui apparaît
dans une cellule d'une feuille Excel (j'ai écrit une petite macro qui
liste tous les noms des feuilles du classeur à l'endroit choisi par
l'utilisateur, de haut en bas).

Merci de vos lumières

Max

garnote

25/02/2006 à 18:58

Alors essaie celle-ci :

Sub Sélection()
rep = Application.InputBox(Prompt:="Sélectionnez la cellule contenant" _
& vbNewLine & "le nom de la feuille à activer.", Type:)
If rep = False Then Exit Sub
Sheets(rep).Activate
End Sub

Serge

"Max du Vuache" <nospam du a écrit dans le message de
news:

Bonjour Garnote,

Merci de ta réponse rapide, ça marche si on clique sur le nom, mais cela
ne fonctionne pas, quand un saisi le nom dans la InputBox.
Max
"garnote" a écrit dans le message de news:
%23mzv2%
Salut Max,

Essaie ceci:
Sub Sélection()
rep = Application.InputBox(Prompt:="Sélectionnez la cellule contenant"
_
& vbNewLine & "le nom de la feuille à activer.", Type:=8)
Sheets(rep).Activate
End Sub

Serge

"Max du Vuache" <nospam du a écrit dans le message de
news:
Bonjour,

J'essaie d'écrire le code pour activer une des nombreuses feuilles dans
un classeur avec l'InputBox d'Excel de deux façons:
soit l'utilisateur tape le nom de la feuille dans l'InputBox (ce que
j'arrive à faire et ça marche),
soit , dans l'InputBox, il clique sur le nom de la feuille qui apparaît
dans une cellule d'une feuille Excel (j'ai écrit une petite macro qui
liste tous les noms des feuilles du classeur à l'endroit choisi par
l'utilisateur, de haut en bas).

Merci de vos lumières

Max

Hervé

25/02/2006 à 19:17

Bonsoir,
En cliquant droit sur les petits boutons en bas à gauche (boutons flèches de
navigation) tu obtiens une boite te permettant de sélectionner une des
feuilles du classeur. N'est ce pas plus rapide ?
Hervé.

"Max du Vuache" <nospam du a écrit dans le message de
news:

Bonjour,

J'essaie d'écrire le code pour activer une des nombreuses feuilles dans un
classeur avec l'InputBox d'Excel de deux façons:
soit l'utilisateur tape le nom de la feuille dans l'InputBox (ce que
j'arrive à faire et ça marche),
soit , dans l'InputBox, il clique sur le nom de la feuille qui apparaît
dans une cellule d'une feuille Excel (j'ai écrit une petite macro qui
liste tous les noms des feuilles du classeur à l'endroit choisi par
l'utilisateur, de haut en bas).

Merci de vos lumières

Max

Max du Vuache

25/02/2006 à 21:17

Bonjour Hervé
Tout-à.fait, tu as raison, pourqoui faire compliqué ?
Merci
Max

"Hervé" a écrit dans le message de news:
%

Bonsoir,
En cliquant droit sur les petits boutons en bas à gauche (boutons flèches
de navigation) tu obtiens une boite te permettant de sélectionner une des
feuilles du classeur. N'est ce pas plus rapide ?
Hervé.

"Max du Vuache" <nospam du a écrit dans le message de
news:
Bonjour,

J'essaie d'écrire le code pour activer une des nombreuses feuilles dans
un classeur avec l'InputBox d'Excel de deux façons:
soit l'utilisateur tape le nom de la feuille dans l'InputBox (ce que
j'arrive à faire et ça marche),
soit , dans l'InputBox, il clique sur le nom de la feuille qui apparaît
dans une cellule d'une feuille Excel (j'ai écrit une petite macro qui
liste tous les noms des feuilles du classeur à l'endroit choisi par
l'utilisateur, de haut en bas).

Merci de vos lumières

Max

Max du Vuache

25/02/2006 à 21:23

Re-bonsoir Garnote,
J'ai bien noté ta solution pour quelque chose de similaire, mais dans le cas
présent, j'adopte la solution de Hervé.
Merci.
Max

"garnote" a écrit dans le message de news:

Pour prévoir le coup du bouton "Annuler" :
Ajouter If rep = False Then Exit Sub

Sub Sélection()
rep = Application.InputBox(Prompt:="Sélectionnez la cellule contenant"
_
& vbNewLine & "le nom de la feuille à activer.", Type:=8)
If rep = False Then Exit Sub
Sheets(rep).Activate
End Sub

ReSerge

"garnote" a écrit dans le message de news:
%23mzv2%
Salut Max,

Essaie ceci:
Sub Sélection()
rep = Application.InputBox(Prompt:="Sélectionnez la cellule contenant"
_
& vbNewLine & "le nom de la feuille à activer.", Type:=8)
Sheets(rep).Activate
End Sub

Serge

"Max du Vuache" <nospam du a écrit dans le message de
news:
Bonjour,

J'essaie d'écrire le code pour activer une des nombreuses feuilles dans
un classeur avec l'InputBox d'Excel de deux façons:
soit l'utilisateur tape le nom de la feuille dans l'InputBox (ce que
j'arrive à faire et ça marche),
soit , dans l'InputBox, il clique sur le nom de la feuille qui apparaît
dans une cellule d'une feuille Excel (j'ai écrit une petite macro qui
liste tous les noms des feuilles du classeur à l'endroit choisi par
l'utilisateur, de haut en bas).

Merci de vos lumières

Max

Activer une feuille avec InputBox

7 réponses

Veuillez sélectionner un problème