IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

Macros et VBA Excel Discussion :

Répartition montant par tranche de 9999 [XL-365]


Sujet :

Macros et VBA Excel

  1. #1
    Community Manager

    Avatar de Malick
    Homme Profil pro
    Community Manager
    Inscrit en
    juillet 2012
    Messages
    8 803
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : Sénégal

    Informations professionnelles :
    Activité : Community Manager
    Secteur : Conseil

    Informations forums :
    Inscription : juillet 2012
    Messages : 8 803
    Points : 81 305
    Points
    81 305
    Billets dans le blog
    15
    Par défaut Répartition montant par tranche de 9999
    Bonjour,

    Je souhaite faire une répartition suivant le tableau ci-après :

    Nom : Sans titre.png
Affichages : 78
Taille : 8,1 Ko

    Le code que j'ai commencé et qui ne fait pas le nécessaire:
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    Sub Repartition()
        Dim i As Integer
        Dim DernLigne As Integer
                DernLigne = Range("A1048576").End(xlUp).Row
                    Range("A4").Value = 100000000
                    Range("A4").Offset(0, 1).Value = 2100000000
     
           For i = 4 To DernLigne
              Range("A" & DernLigne).Offset(1, 0).Value = Range("A" & DernLigne).Offset(-1, 1).Value
     
           Next i
     
    End Sub

    La boucle For.......To ne s'exécute pas également Edit==> je viens de remarquer que la dernière ligne vide commence à 4 alors que ma boucle commence à i=5

    J'essaie de corriger cela.

    Merci d'avance pour votre aide
    Vous avez envie de contribuer au sein du Club Developpez.com ? Contactez-nous maintenant !
    Vous êtes passionné, vous souhaitez partager vos connaissances en informatique, vous souhaitez faire partie de la rédaction.
    Il suffit de vous porter volontaire et de nous faire part de vos envies de contributions :
    Rédaction d'articles/cours/tutoriels, Traduction, Contribution dans la FAQ, Rédaction de news, interviews et témoignages, Organisation de défis, de débats et de sondages, Relecture technique, Modération, Correction orthographique, etc.
    Vous avez d'autres propositions de contributions à nous faire ? Vous souhaitez en savoir davantage ? N'hésitez pas à nous approcher.

  2. #2
    Membre régulier
    Homme Profil pro
    Chargé d'affaire
    Inscrit en
    avril 2022
    Messages
    81
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 34
    Localisation : Belgique

    Informations professionnelles :
    Activité : Chargé d'affaire
    Secteur : Finance

    Informations forums :
    Inscription : avril 2022
    Messages : 81
    Points : 114
    Points
    114
    Par défaut
    Je vous conseille de lancer ce genre de code la nuit, pour récupérer le résultat le lendemain.
    Je me demande bien à quoi peut servir ce genre de subdivision ?!!

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    15
    16
    17
    18
    19
    20
    21
    22
    23
    24
    25
    Sub TranchesDeDixMille()
        Dim sh As Worksheet
        Dim Debut, Cible As Double
        Dim k As Long
        Const Delta = 9999
     
        Set sh = ThisWorkbook.Sheets("Sheet5")
     
        Debut = sh.Cells(1, 8)
        Cible = sh.Cells(1, 9)
     
        k = 3
        With sh
            .Cells(k, 8) = Debut + 1
            .Cells(k, 9) = .Cells(k, 8) + Delta
            k = k + 1
     
            Do While .Cells(k, 9) <= Cible
                .Cells(k, 8) = .Cells(k - 1, 8) + (1 + Delta)
                .Cells(k, 9) = .Cells(k - 1, 9) + (1 + Delta)
                k = k + 1
            Loop
        End With
        Set sh = Nothing
    End Sub

  3. #3
    Community Manager

    Avatar de Malick
    Homme Profil pro
    Community Manager
    Inscrit en
    juillet 2012
    Messages
    8 803
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : Sénégal

    Informations professionnelles :
    Activité : Community Manager
    Secteur : Conseil

    Informations forums :
    Inscription : juillet 2012
    Messages : 8 803
    Points : 81 305
    Points
    81 305
    Billets dans le blog
    15
    Par défaut
    Bonsoir,

    Citation Envoyé par Belga16 Voir le message
    Je vous conseille de lancer ce genre de code la nuit, pour récupérer le résultat le lendemain.
    Je me demande bien à quoi peut servir ce genre de subdivision ?!!
    Il s'agit d'une répartition du Capital social d'une société par actions de 10000.

    Mais vous avez parfaitement raison , en fait le montant total du capital devra être divisé par 10000 pour avoir le nombre total d'actions à répartir ici 210 000 actions. ==> la répartition se présente ainsi :
    1------10000
    10001------21000
    210001-----31000
    etc.

    Je teste cela et vous reviens

    Vous avez envie de contribuer au sein du Club Developpez.com ? Contactez-nous maintenant !
    Vous êtes passionné, vous souhaitez partager vos connaissances en informatique, vous souhaitez faire partie de la rédaction.
    Il suffit de vous porter volontaire et de nous faire part de vos envies de contributions :
    Rédaction d'articles/cours/tutoriels, Traduction, Contribution dans la FAQ, Rédaction de news, interviews et témoignages, Organisation de défis, de débats et de sondages, Relecture technique, Modération, Correction orthographique, etc.
    Vous avez d'autres propositions de contributions à nous faire ? Vous souhaitez en savoir davantage ? N'hésitez pas à nous approcher.

  4. #4
    Community Manager

    Avatar de Malick
    Homme Profil pro
    Community Manager
    Inscrit en
    juillet 2012
    Messages
    8 803
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : Sénégal

    Informations professionnelles :
    Activité : Community Manager
    Secteur : Conseil

    Informations forums :
    Inscription : juillet 2012
    Messages : 8 803
    Points : 81 305
    Points
    81 305
    Billets dans le blog
    15
    Par défaut
    En adaptant le code comme suit, après test, je remarque que la boucle ne s'arrête pas une fois que le plafond est atteint soit 210 000.

    Nom : Sans titre.png
Affichages : 58
Taille : 21,9 Ko

    Le code en question :

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    15
    16
    17
    18
    19
    20
    21
    22
    23
    24
    25
    Sub TranchesDeDixMille()
        Dim sh As Worksheet
        Dim Debut, Cible As Double
        Dim k As Long
        Const Delta = 9999
     
        Set sh = ThisWorkbook.Sheets("Repartition_Capital_Social")
     
        Debut = sh.Cells(2, 1)
        Cible = sh.Cells(2, 2)
     
        k = 3
        With sh
            .Cells(k, 1) = Debut + 1
            .Cells(k, 2) = .Cells(k, 1) + Delta
            k = k + 1
     
            Do While .Cells(k, 2) <= Cible
                .Cells(k, 1) = .Cells(k - 1, 1) + (1 + Delta)
                .Cells(k, 2) = .Cells(k - 1, 2) + (1 + Delta)
                k = k + 1
            Loop
        End With
        Set sh = Nothing
    End Sub
    Je constate, après correction des montants initiaux (division par 10000), qu'une simple formule permettrait de faire cela

    Merci
    Vous avez envie de contribuer au sein du Club Developpez.com ? Contactez-nous maintenant !
    Vous êtes passionné, vous souhaitez partager vos connaissances en informatique, vous souhaitez faire partie de la rédaction.
    Il suffit de vous porter volontaire et de nous faire part de vos envies de contributions :
    Rédaction d'articles/cours/tutoriels, Traduction, Contribution dans la FAQ, Rédaction de news, interviews et témoignages, Organisation de défis, de débats et de sondages, Relecture technique, Modération, Correction orthographique, etc.
    Vous avez d'autres propositions de contributions à nous faire ? Vous souhaitez en savoir davantage ? N'hésitez pas à nous approcher.

  5. #5
    Membre régulier
    Homme Profil pro
    Chargé d'affaire
    Inscrit en
    avril 2022
    Messages
    81
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 34
    Localisation : Belgique

    Informations professionnelles :
    Activité : Chargé d'affaire
    Secteur : Finance

    Informations forums :
    Inscription : avril 2022
    Messages : 81
    Points : 114
    Points
    114
    Par défaut
    Effectivement une simple formule permet d'obtenir le résultat voulu.

    Si, néanmoins, vous voulez appliquer le code à d'autres combinaisons, il faudra l'adapter légèrement en mettant :
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    Do While True
       If .Cells(k, 2) > Cible then Exit Do
    en gardant le reste du code, car en effet, le code s'emballe avec l'ancienne version.

  6. #6
    Community Manager

    Avatar de Malick
    Homme Profil pro
    Community Manager
    Inscrit en
    juillet 2012
    Messages
    8 803
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : Sénégal

    Informations professionnelles :
    Activité : Community Manager
    Secteur : Conseil

    Informations forums :
    Inscription : juillet 2012
    Messages : 8 803
    Points : 81 305
    Points
    81 305
    Billets dans le blog
    15
    Par défaut
    Merci encore pour ton retour.

    Tant qu'on y est, autant finaliser le code pour d'autres utilisations

    Avec ce bloc intégrant le changement, Excel boucle sans s'arrêter

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    15
    16
    17
    18
    19
    20
    21
    22
    23
    Sub TranchesDeDixMille()
        Dim sh As Worksheet
        Dim Debut, Cible As Double
        Dim k As Long
        Const Delta = 9999
     
        Set sh = ThisWorkbook.Sheets("Repartition_Capital_Social")
     
        Debut = sh.Cells(2, 1)
        Cible = sh.Cells(2, 2)
     
        k = 3
        With sh
            .Cells(k, 1) = Debut + 1
            .Cells(k, 2) = .Cells(k, 1) + Delta
            k = k + 1
     
            Do While True
       If .Cells(k, 2) > Cible Then Exit Do
            Loop
        End With
        Set sh = Nothing
    End Sub
    Vous avez envie de contribuer au sein du Club Developpez.com ? Contactez-nous maintenant !
    Vous êtes passionné, vous souhaitez partager vos connaissances en informatique, vous souhaitez faire partie de la rédaction.
    Il suffit de vous porter volontaire et de nous faire part de vos envies de contributions :
    Rédaction d'articles/cours/tutoriels, Traduction, Contribution dans la FAQ, Rédaction de news, interviews et témoignages, Organisation de défis, de débats et de sondages, Relecture technique, Modération, Correction orthographique, etc.
    Vous avez d'autres propositions de contributions à nous faire ? Vous souhaitez en savoir davantage ? N'hésitez pas à nous approcher.

  7. #7
    Membre régulier
    Homme Profil pro
    Chargé d'affaire
    Inscrit en
    avril 2022
    Messages
    81
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 34
    Localisation : Belgique

    Informations professionnelles :
    Activité : Chargé d'affaire
    Secteur : Finance

    Informations forums :
    Inscription : avril 2022
    Messages : 81
    Points : 114
    Points
    114
    Par défaut
    Oui; j'ai corrigé ici, mais reste à adapter à votre situation:
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    15
    16
    17
    18
    19
    20
    21
    22
    23
    24
    25
    26
    27
    28
    29
    30
    31
    32
    33
    34
    Sub TranchesDeDixMille()
        Dim sh As Worksheet
        Dim Debut, Cible As Double
        Dim k As Long
        Const Delta = 9999
     
        Set sh = ThisWorkbook.Sheets("Sheet5")     'nom de feuille à changer
     
        Debut = sh.Cells(1, 8)  '(=H1)    à adapter; Cells(1,1) pour vous, je suppose.
        Cible = sh.Cells(1, 9)  '(=I1)      à adapter; Cells(1,2) pour vous, je suppose.
     
        If Cible = 0 Or Debut > Cible Then
            MsgBox "Veuillez vérifier le total à répartir !", vbCritical, "Erreur d'encodage"
            Exit Sub
        sh.Range(Cells(3, 8), Cells(Rows.Count, 9).End(xlUp)).ClearContents    'les numéros de colonnes 8 & 9 sont à adapter
     
        k = 3
        With sh
            .Cells(k, 8) = Debut + 1            '8 doit être 1 pour vous, à remplacer partout !
            .Cells(k, 9) = Debut + 1 + Delta    '9 doit être 2 pour vous, à remplacer partout !
            k = k + 1
     
            Do While True
                .Cells(k, 8) = .Cells(k - 1, 8) + (1 + Delta)
                .Cells(k, 9) = .Cells(k - 1, 9) + (1 + Delta)
                If .Cells(k, 9) >= Cible Then Exit Do
                k = k + 1
            Loop
        End With
        Set sh = Nothing
     
        MsgBox "La répartition en tranches de '" & (1 + Delta) & "' actions est terminée !", vbInformation, "Répartition en tranches"
     
    End Sub

  8. #8
    Community Manager

    Avatar de Malick
    Homme Profil pro
    Community Manager
    Inscrit en
    juillet 2012
    Messages
    8 803
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : Sénégal

    Informations professionnelles :
    Activité : Community Manager
    Secteur : Conseil

    Informations forums :
    Inscription : juillet 2012
    Messages : 8 803
    Points : 81 305
    Points
    81 305
    Billets dans le blog
    15
    Par défaut
    Bonjour,

    excellent

    beaucoup
    Vous avez envie de contribuer au sein du Club Developpez.com ? Contactez-nous maintenant !
    Vous êtes passionné, vous souhaitez partager vos connaissances en informatique, vous souhaitez faire partie de la rédaction.
    Il suffit de vous porter volontaire et de nous faire part de vos envies de contributions :
    Rédaction d'articles/cours/tutoriels, Traduction, Contribution dans la FAQ, Rédaction de news, interviews et témoignages, Organisation de défis, de débats et de sondages, Relecture technique, Modération, Correction orthographique, etc.
    Vous avez d'autres propositions de contributions à nous faire ? Vous souhaitez en savoir davantage ? N'hésitez pas à nous approcher.

  9. #9
    Membre éclairé Avatar de Alex020181
    Homme Profil pro
    Prestataire informatique développeur d'application Excel, Access, VBA
    Inscrit en
    juin 2012
    Messages
    410
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 41
    Localisation : France, Essonne (Île de France)

    Informations professionnelles :
    Activité : Prestataire informatique développeur d'application Excel, Access, VBA

    Informations forums :
    Inscription : juin 2012
    Messages : 410
    Points : 726
    Points
    726
    Par défaut
    Bonjour,

    Je sais que le fil est résolu mais je pense que la solution en PJ vous sera profitable.

    Citation Envoyé par Belga16 Voir le message
    Je vous conseille de lancer ce genre de code la nuit, pour récupérer le résultat le lendemain.
    Le PC aussi à le droit de dormir la nuit

    Plus sérieusement le code que je vous propose en PJ fait la répartition demandée () en 10 secondes montre en main.
    Il suffit de compléter les valeurs initiales (mt init, mt final et la tranche) et de cliquer sur le bouton.

    PS; j'ai fait au plus simple. Normalement il faudrait ajouter le nom de la feuille avec sheets(""), enlever les filtres, vérifier si l'utilisateur à bien saisi les 3 valeurs, vérifier si les saisies sont bien des nombres, ...

    Teste et dis-nous.
    Fichiers attachés Fichiers attachés
    C'est toujours sympa de savoir si on vous a aidé ou non. Pensez-y

    N'hésitez pas à marquer le sujet comme résolu le cas échéant.

  10. #10
    Community Manager

    Avatar de Malick
    Homme Profil pro
    Community Manager
    Inscrit en
    juillet 2012
    Messages
    8 803
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : Sénégal

    Informations professionnelles :
    Activité : Community Manager
    Secteur : Conseil

    Informations forums :
    Inscription : juillet 2012
    Messages : 8 803
    Points : 81 305
    Points
    81 305
    Billets dans le blog
    15
    Par défaut
    Salut Alex020181,

    Votre proposition fonctionne nickel aussi

    Excellente démonstration qui pourra servir à d'autres.

    Vous avez envie de contribuer au sein du Club Developpez.com ? Contactez-nous maintenant !
    Vous êtes passionné, vous souhaitez partager vos connaissances en informatique, vous souhaitez faire partie de la rédaction.
    Il suffit de vous porter volontaire et de nous faire part de vos envies de contributions :
    Rédaction d'articles/cours/tutoriels, Traduction, Contribution dans la FAQ, Rédaction de news, interviews et témoignages, Organisation de défis, de débats et de sondages, Relecture technique, Modération, Correction orthographique, etc.
    Vous avez d'autres propositions de contributions à nous faire ? Vous souhaitez en savoir davantage ? N'hésitez pas à nous approcher.

  11. #11
    Membre éprouvé
    Homme Profil pro
    ingénieur
    Inscrit en
    mars 2015
    Messages
    489
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Rhône (Rhône Alpes)

    Informations professionnelles :
    Activité : ingénieur
    Secteur : Finance

    Informations forums :
    Inscription : mars 2015
    Messages : 489
    Points : 1 296
    Points
    1 296
    Par défaut
    Bonjour
    Sans VBA avec la fonction SEQUENCE d'office 365

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    en A3   =SEQUENCE(B2/C2;;1;C2)
    en B3   =SEQUENCE(B2/C2;;C2;C2)
    ou B3   =A3#+C2-1
    Nom : Sequence.JPG
Affichages : 19
Taille : 89,9 Ko

    Stéphane

+ Répondre à la discussion
Cette discussion est résolue.

Discussions similaires

  1. [XL-2007] Calcul des droits par tranche et suivant montant de la transaction.
    Par Abdelinho dans le forum Excel
    Réponses: 5
    Dernier message: 18/03/2011, 18h25
  2. [Requête]Recherche par tranche
    Par cguedj dans le forum Requêtes et SQL.
    Réponses: 6
    Dernier message: 19/04/2007, 16h21
  3. [9i] découpage par tranche
    Par sygale dans le forum Oracle
    Réponses: 1
    Dernier message: 25/07/2006, 15h11
  4. Récupérer des enregistrements par tranche horaire
    Par olive_le_malin dans le forum SQL Procédural
    Réponses: 3
    Dernier message: 19/05/2006, 16h53
  5. Regroupement par tranche dans une requete SQL (MS SQL)
    Par AODRENN dans le forum MS SQL Server
    Réponses: 3
    Dernier message: 21/03/2006, 13h21

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo