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 :

[VBA-E] incrémentation inversée


Sujet :

Macros et VBA Excel

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Membre averti
    Profil pro
    Inscrit en
    Janvier 2006
    Messages
    39
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Janvier 2006
    Messages : 39
    Par défaut [VBA-E] incrémentation inversée
    Re bounjour,
    Je cherche une solution pour incrémenter une série de données à partir d'une seule valeur, et dans l'ordre inverse d'une incrémentation normale.
    Je m'explique, dans une cellule, j'ai une valeur( par ex., la valeur 35)
    Dans la les cellules situés dessous, je voudrais crée une série qui va de 37 à 1.
    J'ai essayé Autofill avec le type xlfillseries, mais j'obtient 35,36,37,38,....
    Et je voudrais le contraire.
    J'ai essayé aussi avec une boucle For/Next, mais c'était pas concluant.
    Y'a quelqu'un qui a une idée?
    Merci d'avance
    :

  2. #2
    Membre averti
    Profil pro
    Inscrit en
    Avril 2005
    Messages
    44
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Avril 2005
    Messages : 44
    Par défaut
    et en décrementant tout simplement ta valeur a la main ? avec un truc du style :
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    do
    TaValeur= TaValeur-1
    .cells(i,j)=TaValeur
    i=i-1
    Loop until TaValeur >1

  3. #3
    Membre Expert Avatar de Megaxel
    Profil pro
    Inscrit en
    Mai 2003
    Messages
    1 187
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Mai 2003
    Messages : 1 187
    Par défaut
    Squelet, tu abuses: c'est pas dur, avec les tutoriels, et les précédents posts. Et tu ne nous donnes même pas le code que tu as essayé.
    Ca veut dire quoi, "mais c'était pas concluant" ?
    Allez, montre moi ce que tu as écris, parce que je ne veux pas te filer le code tout cuit comme ça sans que tu cherches à comprendre.

  4. #4
    Membre averti
    Profil pro
    Inscrit en
    Janvier 2006
    Messages
    39
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Janvier 2006
    Messages : 39
    Par défaut
    Et oui, j'abuse ....
    Mais j'ai quand même réussi mon truc avec çà.

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    For i = Compteur To 2 Step -1
    Compteur = Compteur - 1
    Ligne = Ligne + 1
    Cells(Ligne, 13) = Compteur
    Next
    Compteur est ma valeur de départ.
    C'était tout simple mais je n'avais pas mis le bon code pour Cells.

    Allez, à la prochaine pour un autre abus.
    Merci quand même.

  5. #5
    Membre Expert Avatar de Megaxel
    Profil pro
    Inscrit en
    Mai 2003
    Messages
    1 187
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Mai 2003
    Messages : 1 187
    Par défaut
    Salut, abuseur!
    Tu vois, tu y es arrivé, c'est bien!
    cependant, une petite remarque sur ton code:
    Si tu supprimes la ligne
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    Compteur = Compteur - 1
    et que tu remplaces
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    Cells(Ligne, 13) = Compteur
    par
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    Cells(Ligne, 13) = i - 1
    , ça change quoi?
    Bref, tu fais moins de calcul, et tu utilises vraiment le fait de compter à l'envers dans ta boucle "for... next".

  6. #6
    Membre averti
    Profil pro
    Inscrit en
    Janvier 2006
    Messages
    39
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Janvier 2006
    Messages : 39
    Par défaut
    Effectivement, tu as raison !

    Mais mes vieux neurones, en sont encore à comprendre le code, et pas à le rendre performant

    En tout cas, je te remercie pour cette précision, et tacherais de moins abuser.

    " Il n'y a guère au monde un plus bel excès que celui de la reconnaissance. "
    La Bruyère

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

Discussions similaires

  1. [VBA-E] Incrémentation automatique d'une valeur suite à l'insertion de ligne
    Par abdelghani_k dans le forum Macros et VBA Excel
    Réponses: 9
    Dernier message: 31/01/2007, 14h26
  2. [VBA-E] incrémenter des valeurs excel grâce à des boutons
    Par keiserjo dans le forum Macros et VBA Excel
    Réponses: 2
    Dernier message: 19/07/2006, 11h32
  3. [VBA-E]-incrémentation du nommage de fichier txt
    Par VBBBA dans le forum Macros et VBA Excel
    Réponses: 1
    Dernier message: 13/06/2006, 20h16
  4. [VBA-E] Incrémentation compteur lors du chargement de l'userform
    Par teaRz dans le forum Macros et VBA Excel
    Réponses: 12
    Dernier message: 09/06/2006, 12h19
  5. Réponses: 19
    Dernier message: 04/12/2005, 18h45

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