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
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