Générer une table en choisissant maximum et step
matthi3ut
Messages postés
203
Statut
Membre
-
yg_be Messages postés 23437 Date d'inscription Statut Contributeur Dernière intervention -
yg_be Messages postés 23437 Date d'inscription Statut Contributeur Dernière intervention -
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
-
yg_be Messages postés 23437 Date d'inscription Statut Contributeur Dernière intervention Ambassadeur 1 588
bonjour,
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
