Input box - insérer une cellule => départ de la macro

Bonjour,

Est-ce possible de rentrer une donnée d'une cellule dans une inputbox afin de lancer la macro à partir de cette cellule renseigné dans l'inpubox?

exemple:

Sub list_color()
Dim x As Integer 'integer comprend des valeurs entre 1 et 56, -32000 ET 32000
dim cellule as variant

cellule = inputbox ("entrer la cellule de départ de la macro")

For x = 1 To 56 ' for variable = valeur1 to valeur 2 instruction next, instruction qui se repete ici 56 fois

    ActiveSheet.Range("cellule").Offset(x, 0).Value = x 
    ActiveSheet.Range("cellule").Offset(x, 1).Interior.ColorIndex = x

Next
End Sub

Merci de votre aide

Bonjour,

Voici ton code. Il ne faut pas de guillemets dans le range quand c'est une variable.

Sub list_color()
Dim x As Integer 'integer comprend des valeurs entre 1 et 56, -32000 ET 32000
Dim cellule As Variant

cellule = InputBox("entrer la cellule de départ de la macro")

For x = 1 To 56 ' for variable = valeur1 to valeur 2 instruction next, instruction qui se repete ici 56 fois

    ActiveSheet.Range(cellule).Offset(x, 0).Value = x
    ActiveSheet.Range(cellule).Offset(x, 1).Interior.ColorIndex = x

Next x
End Sub

Cordialement

ddetp88

Je suis outré de ma médiocrité....

Désolé pour le dérangement et merci pour ton retour

bonne soirée