Microsoft 365 Exercice VBA probleme variable

[Msouami33]

Bonjour, J'ai un petit exercice VBA, et cela me renvoie tjs "Erreur 91", j'aimerai savoir si quelqu'un a la solution Merci d'avance.
Exercice :
sub afficheN(cellule as range, nombre as integer)
Affiche les chiffres de 1 à nombre, les uns en dessous des autres, à partir de la cellule cellule.
sub range5()
Appelle afficheN avec comme paramètre : cellule = B2 et nombre = 6.

Mon Code :

Sub Range5()

Dim cellule As Range
Dim nombre As Integer
Dim i As Integer
cellule = inputbox("Entrez le Numéro de la Cellule !", "Cellule")
nombre = inputbox("Entrez le Nombre !", "Nombre")
cellule.Value = 1
For i = 1 To nombre
cellule.Offset(1, 0) = 1 + i

Next

End Sub

Merci d'avance

 

[JM27]

bonjour

Ci joint exemple de sélection de cellule
pour plus d'ino sélectionner inputBox et faire F1 pour avoir l'explication
Je te laisse le soin de faire la boucle finale

Sub BoiteSelectionZone()
    Dim Var As Object
    On Error Resume Next
        Set Var = Application.InputBox(prompt:="Sélectionner votre zone: (Ex. A1:B10) ", _
        Title:="Sélection de zone ", Default:="$A$1", Type:=8)
    On Error GoTo 0
    If Not (TypeName(Var) = "Rien") Then
    MsgBox Var.Address
    Var.Select
    End If
    Set Var = Nothing
End Sub

 

[Msouami33]

bonjour

Ci joint exemple de sélection de cellule
pour plus d'ino sélectionner inputBox et faire F1 pour avoir l'explication
Je te laisse le soin de faire la boucle finale

Sub BoiteSelectionZone()
    Dim Var As Object
    On Error Resume Next
        Set Var = Application.InputBox(prompt:="Sélectionner votre zone: (Ex. A1:B10) ", _
        Title:="Sélection de zone ", Default:="$A$1", Type:=8)
    On Error GoTo 0
    If Not (TypeName(Var) = "Rien") Then
    MsgBox Var.Address
    Var.Select
    End If
    Set Var = Nothing
End Sub

Merci beaucoup, même si j'avoue ne pas avoir tout compris, je pensais que c'etait plus simple