Extension de formule erreur de code

Bonjour à tous,

Je cherche à étendre une formule qui contient deux cellules pour mettre le résultat de cette formule dans une troisieme cellule. (jusque la Easy money ^^)

Mais Je veux étendre cette formule sur plusieurs lignes (ici des miliers) en utilisant a chaque fois les deux bonnes cellules à prendre. (ici les deux cellules sont sur la meme ligne avec quelques colonnes d'écart)

Or j'ai une erreur sur ce code.. Et je ne sais pas vraiment ou elle pourrait être ?

Sub Hauteur()
ActiveCell.formulaR11C13 = "=(((1013.25/RC[-9]^(1/5.257)))-1)*(RC[-3])+273.15))/0.0065"
Selection.AutoFill Destination:=Range("M11:M36311")
End Sub

De plus j'ai une autre question, J'aimerai que si dans les cellules sélectionnées par la formule, il n'y a pas de valeurs, qu'il ne me mette rien dans la case destination.. C'est possible ? Si oui pourriez vous m'indiquer comment le faire ?

Merci beaucoup,

Cordialement,

Laiiha

Bonjour,

une proposition à adapter éventuellement

Sub Hauteur()
Range("M11").FormulaR1C1 = "=IF(OR(RC[-9]="""",RC[-3]=""""),"""",(((1013.25/RC[-9]^(1/5.257)))-1)*(RC[-3]+273.15)/0.0065)"
Range("M11:M36311").FillDown
End Sub

Bonjour,

ou directement (j'ai repris la formule de h2so4) :

Sub Hauteur()
    Range("M11:M36311").FormulaR1C1 = "=IF(OR(RC[-9]="""",RC[-3]=""""),"""",(((1013.25/RC[-9]^(1/5.257)))-1)*(RC[-3]+273.15)/0.0065)"
End Sub

Mais je suppose que c'est à faire dans un tableau qui varie. Dans ce cas tu devrais limiter aux lignes nécessaires :

Sub Hauteur()
    Dim derlig As Long
    derlig = Cells(Rows.Count, "C").End(xlUp).Row
    If derlig >= 11 Then
        Range("M11:M" & derlig).FormulaR1C1 = "=IF(OR(RC[-9]="""",RC[-3]=""""),"""",(((1013.25/RC[-9]^(1/5.257)))-1)*(RC[-3]+273.15)/0.0065)"
    End If
End Sub

en supposant la colonne C remplie jusqu'en bas.

eric

Bonjour,

Merci pour vos réponses,

Merci Beaucoup Eriiic pour ta fonction, elle me convient et marche très bien

Bonne soirée et merci encore.

Cordialement,

Laiiha