Etirement de formule (v2.0)

Bonjour à tous,

J'avais posté hier une question pour étirer par rapport à une autre colonne.

Je souhaite maintenant demander à l'utilisateur sur quelle distance il souhaite étendre sa formule. J'ai donc créé un UserForm et écris le code de celui-ci. Il contient un textbox et un bouton (juste pour entrer le nombre et valider). Sans plus attendre voilà le code du User et de la macro qui l'appel, le tout ne fonctionnant absolument pas :

Sub étirementask()
'
' étirementask Macro
'
' Touche de raccourci du clavier: Ctrl+w
'

    frmAsk.Show
    Activcell.AutoFill Destination:=Range(Activcell, Activcell.Offset(Nombre)), Type:=xlFillDefault
End Sub

Private Sub txtNombre_Change()
btnNombre.Enabled = True
End Sub

Public Sub btnNombre_Click()
Nombre = CInt(txtNombre.Value)
End Sub

Voilà, si quelqu'un trouve mon erreur ca serait super, j'ai fait des recherche pendant 1h et pas moyen de trouver! :/

Merci d'avance!

Bonjour,

Avant d'aller plus avant dans ton code VBA ... il te faut remplacer

Activcell

par

ActiveCell

Oui, effectivement, ca marche, je ne comprends pas vraiment comment j'ai pu faire cette erreur de frappe, c'est tout bête mais quand on a le nez dessus on ne s'en rend pas compte. Merci de l'avoir vu pour moi!

De rien ...

Tous autant que nous sommes ...à force d'être "le nez dans le guidon"... on finit par ne plus voir la route ...