Rentrer la valeur d'une variable dans une cellule

Bonjour,

j'ai réalisé un document excel avec des calculs dans ma macro VBA. Je déclare des variables pour mes calculs, je réalise mes calculs. Quand vient le résultat j'aimerai affecté la valeur de la variable dans une cellule; Range("M7").Value = ep_min_coq. Mais ca ne marche pas j'ai l'erreur 1004' quand je fais le calcul en pas à pas détaillé. Je ne vois pas d'autres solutions, Merci d'avance

Cordialement

Hello !

Sans ton classeur en exemple c'est difficile de se rendre vraiment compte du problème ^^'. Parce que c'est une erreur assez.. standard

Mais et si tu fais :

Range("M7").Value = Cstr(ep_min_coq) 

?

C'est tout ce que je peux proposer sans voir le classeur.

Enfaite j'ai trouvé la solution, ca vient de la protection de la feuille. Ce que je comprends pas c'est que pour faire le calcul dans la macro, j'ai ajouté dans la macro une désactivation de la protection justement (elle se reverrouille a la fin). Je ne sais pas pourquoi mais du coup lorsque l'erreur apparaît (je sais pas quelle manipulation auparavant) il faut déverrouiller manuellement la feuille.

Cordialement

Sub Nb_raidisseurs_()

Dim degre As Integer

Dim i As Integer

Dim ep_min_coq As Currency

Dim matériau As String

Dim Ph As Single

Dim Rayon As Single

Dim s As Single

Dim Re As Single

'Definition des variables

materiau = Range("D8").Value

ep_min_coq = 0

Ph = Range("D52")

Rayon = Range("D54")

s = Range("D22")

Re = Range("D43")

'Protection de la page

ActiveSheet.Unprotect ""

'Calcul epaisseur coque selon le matériau

If materiau = "PEHD" Then

ep_min_coq = 6.5 * ((Ph * s * (Rayon / 1000) / (Re * 1000000)) * 1000)

Else

If materiau = "PPH" Then

ep_min_coq = 15.1 * ((Ph * s * (Rayon / 1000) / (Re * 1000000)) * 1000)

Else

ep_min_coq = 10.8 * ((Ph * s * (Rayon / 1000) / (Re * 1000000)) * 1000)

End If

End If

'Epaisseur minimum de 5 mm pour la coque

If ep_min_coq < 5 Then

Range("M7") = 5

Else

Range("M7").Value = ep_min_coq

End If