Excel 2013

Bonjour,

comment je peux modifier une colone de type date : fixer la date de tous jour au 15

càd si la date par exemple 17092018-->15092018 sans changer le mois et l'année

y-t-il une formule que je peux l'appliquer svp

Bonjour,

Peux-tu modifier le titre du sujet ? Et mettre une description pertinente...

Essaie ceci.

ALT F8 et exécuter la procédure.

Cdlt.

Public Sub ConvertNumber()
Dim rng As Range, tbl, i As Long
    With ActiveSheet
        Set rng = .Cells(1).CurrentRegion
        tbl = rng.Offset(1).Resize(rng.Rows.Count - 1)
        For i = 1 To UBound(tbl)
            tbl(i, 1) = CLng(15 & Right(tbl(i, 1), 6))
        Next i
        .Cells(2, 1).Resize(rng.Count - 1).Value = tbl
    End With
End Sub

Bonjour,

pas tout compris, mais si vous mettez cette formule en colonne B :

=DATE(DROITE(A2;4);STXT(A2;SI(NBCAR(A2)-6=2;3;2);2);SI(GAUCHE(A2;NBCAR(A2)-6)*1>=15;15;1))

et que vous la tirez vers le bas, alors en colonne B s'affichera la date avec en "jour" 01 pour les dates allant du 1 au 14 et 15 pour les autres.

Maintenant s'il faut garder le format d'origine, il vous "suffira" de faire une redistribution des données pour avoir le résultat escompté.

@ bientôt

LouReeD

Bonsoir Jean-Eric...

Je suis passé juste après pour une histoire d'édition de faute de frappe !

Et en effet "Excel 2013" pour une histoire de "construction de date" il est vrai que ce n'est pas explicite... Sauf pour quelques curieux que nous sommes !

@ bientôt

LouReeD

Bonsoir tout le monde,

Un fifrelin plus courte que la proposition de LouReed:

=DATE(DROITE(A2;4);GAUCHE(DROITE(A2;6);2);SI(1*(GAUCHE(A2;NBCAR(A2)-6))<15;1;15))

U. Milité bonsoir,

c'est le : GAUCHE(DROITE(A2;6);2)

que je n'ai pas su trouver !

Hors c'est simple on prend les deux caractère de gauches des 6 caractères de droite !

Décidemment l'imbrication de formule n'est pas pour moi !

@ bientôt

LouReeD

Formule en gardant le format mais avec toujours la même règle, à savoir si jour <15 = 1 sinon = 15 :

=(SI(GAUCHE(A2;NBCAR(A2)-6)*1>=15;15;1)&DROITE(A2;6))*1

Le "fois 1" permet de transformer le texte en chiffre comme le format d'origine.

@ bientôt

LouReeD

Bonjour,

Merci à tous pour les réponses

Et je m'excuse si je n'ai pas bien mentionné un bon titre pour le sujet, vraiment j'ai pas fait attention.

Merci à vous pour vos remerciements 😉

@bientôt

LouReeD