XL 2010 Parametrer une formule en vba

[polyteis]

Bonjour à toutes et tous

Je vous decris ma demande.
Je cree une macro
Sub etirer_formule
Range("k6:s6").select
Aplication.cutcopymode=false
Selection.autofill destination :=range("k6:s50000")
Range("k6:s50000").select
Actkvesheet.calculate
End sub
J aimerai que la valeur s50000 soit variable , selon mes besoins .
J'ai pensé à mettre une valeur dans une cellule exemple A1=10000
Ainsi ma macro travaille sur la plage k6: s10000.
Mais comment ecrire cela ?
Merci

 

[Bernard_XLD]

Bonjour polyteis, le forum

Ce code vous demandera la valeur qui devra être comprise entre 7 et 1048576, 5000 par défaut.

Bien cordialement, @+

Sub etirer_formule()
Dim Row_Id&, Mem_Calc
Row_Id = Application.InputBox(Prompt:="Entrez la ligne de fin", Title:="Demande", Default:=5000, Type:=1)
If Row_Id > 6 And Row_Id < 1048577 Then
    Mem_Calc = Application.Calculation
    Application.Calculation = xlCalculationManual
    Range("K6:S6").AutoFill Destination:=Range("K6:S" & Row_Id)
    Application.Calculation = Mem_Calc
    ActiveSheet.Calculate
End If
End Sub

 

[polyteis]

Bonsoir,

Je vais essayer merci

 

[Bernard_XLD]

Bonjour polyteis, le forum

alors ?

Cordialement, @+

 

[Bernard_XLD]

Bonjour polyteis, le forum

@polyteis , avec un pseudo comme celui ci, on aurait pu s'attendre à une réponse après essai.
L'avantage est que je m'en rappellerai facilement et ne me fatiguerai plus à vous répondre.

Cordialement, @+