Etendre une formule de N lignes

Bonjour à tous,

je suis encore en train d'apprendre la programmation VBA de ce fait j'ai quelque petit soucis.

Je travaille sur plusieurs feuille et voudrais dans la feuille nommée (calcul ELS/ELU) étendre une formule qui dépend d'une valeur notée dans la feuille "saisie de donnée" en D9.

D'un point de vue pratique j'ai une poutre qui va de 0 à X(valeur donnée dans la feuille calcul brouillon à la cellule D10) et je dois la couper en différents tronçons (la valeur rentrée dans la saisie de donnée)

Je veux au final pouvoir avoir les différents abscisses en fonction du nombre de tronçons.

je voudrais affecter ce code à une macro afin de faire les calculs en automatique.

Voici le code que j'ai commencé à faire cependant il m'annonce des problèmes.

Sub discretisation()

Dim DerLigne As Integer

Dim numero As Integer

DerLigne = Worksheets("Saisie de données").Range("D9").Value

numero = 0

While numero <= DerLigne

Worsheet('Calcul ELS/ELU").Cells(numero, 1) = ((Worksheets("feuille calcul brouillon").Range("D10").Value) / (Worksheets("Saisie de données").Range("D9").Value)) * numero

numero = numero + 1

Wend

End Sub

Voilà en espérant que vos puissiez m'aider

j'ai peut être pas été très clair dans l'exposition de mon problème mais j'espère que c'est compréhensible

Bonne journée

Bonjour,

au premier tour de la boucle

numero = 0

et tu multiplie la division par ce 0

à tester,

Sub discretisation()
Dim DerLigne As Integer
Dim numero As Integer
DerLigne = Worksheets("Saisie de données").Range("D9").Value
While numero <= DerLigne 
numero = numero + 1 
Worsheet('Calcul ELS/ELU").Cells(numero, 1) = ((Worksheets("feuille calcul brouillon").Range("D10").Value) / (Worksheets("Saisie de données").Range("D9").Value)) * numero
Wend
End Sub

Bonjour,

Bonjour i20100

De petites corrections, dont un nom feuille non valide.

Cdlt.

Public Sub Discretisation()
Dim Value1 As Long, Value2 As Long, numero As Long
    Value1 = Worksheets("Saisie de donn?es").Range("D9").value
    Value2 = Worksheets("feuille calcul brouillon").Range("D10").value
    Do While numero <= Value1
        numero = numero + 1
        Worksheets("Calcul ELS ELU").Cells(numero, 1) = Value2 / Value1 * numero
    Loop
End Sub

slt Jean-Eric,

De petites corrections, dont un nom feuille non valide.

bien vu!

merci bien de votre aide ;D l'erreur venait du problèe de l'indice ^^

Pour le moment il ne semble pas que le nom de mes feuilles posent problèmes mais quels caractère vaut-il mieux éviter ? les accents et le "tiret du 6" ?

merci et bonne journée

re,

Pour le moment il ne semble pas que le nom de mes feuilles posent problèmes mais quels caractère vaut-il mieux éviter ? les accents et le "tiret du 6" ?

Les caractères suivants sont réservés pour des usages spéciaux et ne doivent pas être utilisés dans le nom d'un fichier ou le nom d'un onglet :

< (plus petit que; less than)

> (plus grand que; greater than)

: (deux points; colon)

" (double appostrophe; double quote)

/ (slash; barre de fraction; forward slash)

(antislash; backslash)

| (barre verticale; vertical bar; pipe)

? (point d'interrogation; question mark)

* (astérisque; asterisk)