Calcul sur une colonne

Bonjour à tous, j'utilise le code ci-dessous pour calculer le Cx, maintenant j'aimerait la calculer sur toute la colonne F, sachant que la colonne B et C'ont des valeurs variables alors que D2 et E2 sont fixes.

Pouvez vous m'aider s'il vous plait .

Guillaume

Sub essai()
  Dim sh As Worksheet
  Set sh = ThisWorkbook.Worksheets("Feuil1")
  sh.Range("F2") = sh.Range("B2") / (sh.Range("C2") * sh.Range("D2") * sh.Range("E2") * sh.Range("C2")) * 0.5
End Sub

bonjour

pourquoi faire des calculs en VBA alors qu'Excel est un logiciel de calculs ?

ou alors tu veux tout passer sous Word ou Outlook ?

joins un extrait de ton fichier pour voir

Pour mon stage, mes tuteurs veulent une macro qui exécute tous les calculs à leur place.

re

non, ils veulent un automatisme qui travaille à leur place. VBA ou autre importe peu.

comme ils ne connaissent que VBA (et mal) ils t'en ont parlé.

Tu as un but : automatiser. Choisis TA solution.

que ferais-tu s'ils demandaient que tu sauvegardes sur disquettes ?

mais si tu penses que VBA est l'avenir...

ils me l'imposent

re

je comprends

la dernière fois qu'on m'a fait le coup personnellement, ça s'est mal fini j'ai perdu mon client trop borné. Tant pis... ou tant mieux.

mais toi tu es coincé

concernant le VBA, je ne peux pas t'aider. Je passe la parole à plus compétent.

Bonjour rg57, jmd,

a tester :

Sub essai()

  Dim sh As Worksheet
  Dim DernLigne As Long
      DernLigne = Range("B" & Rows.Count).End(xlUp).Row

  Set sh = ThisWorkbook.Worksheets("Feuil1")

  For i = 2 To DernLigne

  If sh.Range("B" & i) <> "" And sh.Range("C" & i) <> "" And sh.Range("D" & i) <> "" And sh.Range("E" & i) <>  "" Then
  sh.Range("F" & i) = sh.Range("B" & i) / (sh.Range("C" & i) * sh.Range("D" & i) * sh.Range("E" & i) * sh.Range("C" & i)) * 0.5
  End If
  Next i

End Sub

Cordialement,

PS: je ne suis pas un pro du vba, je me suis contenté d'adapter ta formule,