Générer une table en choisissant maximum et step
matthi3ut
Messages postés
160
Date d'inscription
Statut
Membre
Dernière intervention
-
yg_be Messages postés 23541 Date d'inscription Statut Contributeur Dernière intervention -
yg_be Messages postés 23541 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
A voir également:
- Générer une table en choisissant maximum et step
- Table ascii - Guide
- Table des matières word - Guide
- Generer mot de passe - Télécharger - Sécurité
- Comment générer un qr code - Guide
- Table des caractères - Guide
1 réponse
yg_be
Messages postés
23541
Date d'inscription
Statut
Contributeur
Dernière intervention
Ambassadeur
1 584
bonjour,
suggestion:
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