Générer une table en choisissant maximum et step
Bonjour, bonjour,
Désolé pour le titre absolument pas clair.
Je suis en train de travailler sur un projet pour pour mon module VBA.
Je tente de créer une boucle, qui me permettra d'afficher des valeurs.
La première valeur sera automatiquement 0. Je souhaiterais pouvoir laisser l'utilisateur choisir la valeur maximale (fin de boucle) et le pas entre chaque valeur. Aujourd'hui je n'y arrive qu'avec un step de 1....
Désolé pour le titre absolument pas clair.
Je suis en train de travailler sur un projet pour pour mon module VBA.
Je tente de créer une boucle, qui me permettra d'afficher des valeurs.
La première valeur sera automatiquement 0. Je souhaiterais pouvoir laisser l'utilisateur choisir la valeur maximale (fin de boucle) et le pas entre chaque valeur. Aujourd'hui je n'y arrive qu'avec un step de 1....
Public Sub Table_DRM()
ActiveWorkbook.Worksheets("BondAnalysis").Activate
'mes variables
DMR_Max = Range("J15").Value * 100
Intervalle = Range("J16").Value
'First loop
For N = 0 To DMR_Max - 1
m = 20 + N
Range("I" & m).Value = N / 100 + Intervalle
Next N
End Sub
1 réponse
-
Contributeur Ambassadeurbonjour,
suggestion:Option Explicit Public Sub Table_DRM() Dim DMR_Max As Long, nlig As Long, Intervalle As Integer, compteur As Long Dim valeur As Single ActiveWorkbook.Worksheets("BondAnalysis").Activate 'mes variables DMR_Max = Range("J15").Value * 100 Intervalle = Range("J16").Value 'First loop valeur = 0 compteur = 0 nlig = 20 Do While valeur <= DMR_Max Range("I" & nlig).Value = valeur nlig = nlig + 1 compteur = compteur + 1 valeur = compteur * Intervalle / 100 Loop 'While valeur <= DMR_Max End Sub
