Générer une table en choisissant maximum et step

Fermé

matthi3ut Messages postés 160 Date d'inscription dimanche 7 septembre 2008 Statut Membre Dernière intervention 24 décembre 2022 - 2 déc. 2017 à 14:40
yg_be Messages postés 22720 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 23 avril 2024 - 2 déc. 2017 à 15:22

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....


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
Comment générer un qr code - Guide
Generer mot de passe - Télécharger - Sécurité
No bootable partition in table ✓ - Forum Windows

1 réponse

Réponse 1 / 1

yg_be Messages postés 22720 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 23 avril 2024 1 476
Modifié le 2 déc. 2017 à 15:24

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

Discussions similaires

Table des matières dont les titres n'apparaissent pas..

cherche scan love story

Intégrer une table des annexes et des matières sur word

step up 2 ou le voir en streaming??

FDJ : paiement maximum encaissable dans un bureau de tabac

Discussions similaires

Newsletters