trouver la décade d'une année

[ivgu1939]

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

[jacknicklaus]

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

=ENT(A1/10)*10

[ivgu1939]

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

[ivgu1939]

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

[A voir en vidéo sur Futura]

[invite948b37db]

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

[invite948b37db]

decade=left(ta_variable,3)*10

Moins moche en concaténant :
decade=LEFT(ta_variable,3) & 0

[ivgu1939]

ça fonctionne avec cette écriture

'copie de la décade en Q

 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.