Nom de cellule dans InputBox

Bonjour

J'ai trouvé sur le net ce code qui me permet de classer mes onglets selon la valeur d'une cellule.

Le souci que je rencontre ,j'ai nommé InputBox du nom de la cellule qui m'intéresse ,mais ce que je voudrais c'est que le nom de cette

cellule ce mette tout seul dans InputBox

Voir la photo de InputBox

Je vous remercie pour votre aide Cordialement

Sub SortWksByCell()

Dim WorkRng As Range

Dim WorkAddress As String

On Error Resume Next

xTitleId = "KutoolsforExcel"

Set WorkRng = Application.Selection

Set WorkRng = Application.InputBox("Range ($BD$10)", xTitleId, WorkRng.Address, Type:=8)

WorkAddress = WorkRng.Address

Application.ScreenUpdating = False

For i = 1 To Application.Worksheets.Count

For j = i To Application.Worksheets.Count

If VBA.UCase(Application.Worksheets(j).Range(WorkAddress)) < VBA.UCase(Application.Worksheets(i).Range(WorkAddress)) Then

Application.Worksheets(j).Move before:=Application.Worksheets(i)

End If

Next

Next

Application.ScreenUpdating = True

End Sub

Bonjour

Remplacez

Set WorkRng = Application.InputBox("Range ($BD$10)", xTitleId, WorkRng.Address, Type:=8)

par

Set WorkRng = Application.InputBox("Selectionnez vos cellules", Type:=8)

Après je ne vois pas l'utilité de cette ligne --> Set WorkRng = Application.Selection

Cordialement

Bonjour Dan

Merci pour ta réponse

J'ai fait les modifs ,cela fonctionne bien .

Par contre je suis toujours obligé de rentrer le nom de la cellule BD10

tu n'aurais pas une idée pour que BD10 se mette automatiquement dans InputBox

Peut être ceci -->

Set WorkRng = Application.InputBox("Selectionnez vos cellules", "", "B10", Type:=8)

Bonjour,

N'y a t il pas un "default" dans le InputBox ?

@ bientôt

LouReeD

@Dan ta deuxième proposition est la bonne

Set WorkRng = Application.InputBox("Selectionnez vos cellules", "", "B10", Type:=8)

Merci à tous les 2 pour votre aide

Bonne fin de journée