Répondre à la discussion
Affichage des résultats 1 à 7 sur 7

trouver la décade d'une année

  1. #1
    ivgu1939

    trouver la décade d'une année

    Bonjour le forum,
    Un petit coup de main, svp, pour insérer dans ma macro le code pour créer la décade correspondante à l'année de la colonne de référence.
    Année (col B) > Décade (col Q)
    Lig2 1953 > 1950
    J'imagine qu'il faut remplacer le dernier chiffre par un zéro mais je bloque sur la réalisation.

    Dim dlig2 As Long, lig2 As Long

    dlig2 = Range("B" & Rows.Count).End(xlUp).Row
    For lig2 = 2 To dlig2
    Cells(lig2, 17) = Cells(lig2, 2)
    .....
    Next lig2

    Merci d'avance
    Cordialement

    -----


  2. Publicité
  3. #2
    jacknicklaus

    Re : trouver la décade d'une année

    Pour calculer la décade de l'année en A1:

    =ENT(A1/10)*10
    There are more things in heaven and earth, Horatio, Than are dreamt of in your philosophy.

  4. #3
    ivgu1939

    Re : trouver la décade d'une année

    excellent sur une feuille de calcul mais j'obtiens erreur de compilation dans mon code.
    peut être une petite explication pour remplacer mes pointillés.
    @+

  5. #4
    ivgu1939

    Re : trouver la décade d'une année

    Bonjour
    personne pour compléter mon petit code?
    Merci quand même
    @*

  6. #5
    cherbe

    Re : trouver la décade d'une année

    Bonjour
    Il me semble que VBA possède la fonction int() :
    decade=int(ta_variable/10)*10

    Sinon pas très orthodoxe car c'est une fonction texte mais ça devrait marcher quand même :
    decade=left(ta_variable,3)*10

    PS : ce serait bien d'indiquer le langage utilisé dans le titre
    Dernière modification par cherbe ; 18/01/2018 à 09h49.
    Pour avoir de l'argent devant soi, il faut en mettre de côté ! (proverbe lorrain)

  7. #6
    cherbe

    Re : trouver la décade d'une année

    Citation Envoyé par cherbe Voir le message
    decade=left(ta_variable,3)*10
    Moins moche en concaténant :
    decade=LEFT(ta_variable,3) & 0
    Pour avoir de l'argent devant soi, il faut en mettre de côté ! (proverbe lorrain)

  8. #7
    ivgu1939

    Thumbs up Re : trouver la décade d'une année

    ça fonctionne avec cette écriture

    'copie de la décade en Q
    Code:
     Dim dlig2 As Long, lig2 As Long
            dlig2 = Range("B" & Rows.Count).End(xlUp).Row
                For lig2 = 2 To dlig2
                    Cells(lig2, 17) = Left(Cells(lig2, 2), 3) & "0"
                Next lig2
    En te remerciant, cherbe, avec le plaisir de te retrouver.

Discussions similaires

  1. La différence entre décade et BCD
    Par Kalyas dans le forum Électronique
    Réponses: 4
    Dernier message: 01/04/2014, 08h47
  2. Boite a décade résistive
    Par frequi1 dans le forum Électronique
    Réponses: 21
    Dernier message: 02/10/2012, 00h21
  3. Compteur à décade 4017
    Par Poseidon88 dans le forum Électronique
    Réponses: 9
    Dernier message: 19/07/2012, 19h39
  4. Fabrication boite a decade
    Par Mkv dans le forum Électronique
    Réponses: 4
    Dernier message: 21/12/2009, 09h58
  5. Calcule d'une pente en dB par décade
    Par k_pass21 dans le forum Électronique
    Réponses: 13
    Dernier message: 08/06/2008, 13h07