Capturer le nom d'une feuille à l'aide de Application.InputboxRésolu

Question

Bonjour. Je cherche &#224; r&#233;cup&#233;rer le nom d'une feuille avec la commande Application.InputBox dans VBA, mais je me heurte &#224; un message d'erreur "Votre formule contient une r&#233;f&#233;rence externe non valide". Il s'agit certainement d'une erreur de "type", mais je ne trouve pas lequel. Quelqu'un peut-il m'aider ? Merci d'avance.

Exemple raccourci:

sub test()
NomFeuille = Application.InputBox("Nom de la feuille ?",,Type:=0)
Sheets(NomFeuille).Select
end sub

aieeeuuuuu · Accepted Answer

ok je comprend mieux ton probleme

je croyais que l'utilisateur devait saisir a la main le nom de la feuille.

d'apres ce que je comprend, tu veux qu'il clique directement sur la feuille a supprimer.

je pense que le inputbox n'est pas trop fait pour ca.
il attend une valeur, et tu lui place une reference (le R1 corespondant a la reference d'une cellule)

si tu veux vraiment proceder ainsi, a la rigueur e recupere pas le contenu de ta inputbox, mais supprime directement la feuile active apres.

enfin c'est pas terrible comme solution.

soit tu invite l'utilisateur a rentrer le nom de la feuille a la main, soit tu cr&#233;e une forme avec un menu d&#233;roulant qui contient toutes les feuille, et l'utilisateur doit choisir avant de valider. si tu as le temps je pense que cette deuxieme solution est la mieux

nostra78 · Answer

Set NomFeuille = ...

aieeeuuuuu · Answer

salut

je t'ai fait cette fonction, elle te permet de verifier aussi que le nom de la feuille saisi existe bien.
tu peux l'adapter a ta sauce...

Public Function SelectionneFeuille(nomFeuille As String) As Boolean
'tente de selectionner la feuille dont le nom est plac&#233; en parametre, et renvoi TRUE si l'op&#233;ration a r&#233;ussi
Dim feuille As Worksheet


    SelectionneFeuille = True
    For Each feuille In ThisWorkbook.Worksheets
        If feuille.Name = nomFeuille Then
            feuille.Select
            Exit Function
        End If
    Next
    MsgBox "La feuille " & nomFeuille & " n'existe pas !"
    SelectionneFeuille = False
End Function

jpleroisse · Answer

Bonjour,

C'est ta macro qui n'est pas bonne.Celle-ci fonctionne.



Sub test()

Dim NomFeuille

NomFeuille = InputBox("Nom de la feuille ?")

Sheets(NomFeuille).Select

End Sub



jpleroisse



Si une r&#233;ponse vous convient, cliquez R&#233;ponse Accept&#233;e.

nairolftessub · Answer

Bonjour,
Merci &#224; tous pour vos r&#233;ponses. Apr&#232;s tests, aucune ne convient. Celle de [auteurdetail.aspx?ID=35535 aieeeuuuuu] m'a montr&#233; comment cr&#233;er une fonction. M&#233;thode que je n'avais pas encore utilis&#233;e.
Je r&#233;-explique mieux mon probl&#232;me:
J'affiches des r&#233;sultats de calculs dans plusieurs feuilles.
J'aimerai pouvoir supprimer ces r&#233;sultats uniquement dans une de ces feuille, en s&#233;lectionnant celle-ci dans le classeur.
En utilisant : Application.InputBox , je peux s&#233;lectionner la feuille, mais le r&#233;sultat affich&#233; dans l'InputBox est: ='R1'! et me donne une erreur si je valide, alors que moi j'aimerai avoir comme r&#233;sultat, uniquement R1.
Merci pour vos r&#233;ponses.

aieeeuuuuu · Answer

qu'entends tu par :
le resultat affich&#233; par la inputbox est ='R1'
c'est dans ton programme que tu d&#233;fini le contenu de ta inputbox

essaie de nous definir clairement ce que tu veux faire, et eventuellement mets nous un peu de code qu'on comprenne ce qui va pas, car la je vois pas trop quel est ton probleme. en fait je ne comprends pas d'ou sort le ='R1'

nairolftessub · Answer

Il s'agit de la fonction "Application.InputBox" qui affiche une InputBox dans Excel et permet de pointer une cellule ou un onglet en fonction du type d&#233;fini. Dans mon cas, lorsque je clique sur l'onglet, la r&#233;ponse indiqu&#233;e dans la InputBox est 'R1'!.
Voici le code utilis&#233;:

Dim NomFeuille As String
' S&#233;lection de la feuille &#224; supprimer
NomFeuille = Application.InputBox("Indiquez la feuille de r&#233;sultat &#224; supprimer !", "Indiquer feuille", "R1")
SelectionneFeuille (NomFeuille)
On Error GoTo Fin
Sheets(NomFeuille).Select
Fin:
    Range("A1").Select
   Sheets("1").Select
End Sub

Public Function SelectionneFeuille(NomFeuille As String) As Boolean
Dim Feuille As Worksheet
    SelectionneFeuille = True
    For Each Feuille In ThisWorkbook.Worksheets
        If Feuille.Name = NomFeuille Then
            Feuille.Select
            Exit Function
        End If
    Next
    MsgBox "La feuille " & NomFeuille & " n'existe pas !"
    SelectionneFeuille = False
End Function

nairolftessub · Answer

Petite pr&#233;cision: La r&#233;ponse indiqu&#233;e dans la InputBox est : ('R1'!). Le point d'exclamation n'est pas la fin de ma phrase.
J'ai aussi essay&#233; avec la ligne de code suivante:

Set NomFeuille = Application.InputBox("Indiquez la feuille de r&#233;sultat &#224; supprimer !", "Indiquer feuille", Type:=0)

Idem en variant le type:

Type:=3 ou 10

Rien n'y fait !

nairolftessub · Answer

Merci a toi aieeeuuuuu .
Effectivement, l'entr&#233;e a la main ne pose pas de probleme, mais l'entree sous une forme, beaucoup plus.
En fait, je ne l'ai jamais fait. Je vais donc me replonger dans mon bouquin.
Mais tu as raison, la solution sous menu d&#233;roulant aura surement un aspect plus pro.
Merci de tes conseils avises.

aieeeuuuuu · Answer

de rien :)