découpage d'un nombre

[cmarechaux]

bonjour le Forum,

j'ai dans une cellule des valeurs de type suivant : 20070524. je cherche a remplacer ce chiffre dans la même cellule. par une date (24/05/2007).
je dois préciser que cela doit s'appliquer sur un tableau contenant de nombreuses lignes(pas tj le même nombre de ligne)

si quelqu'un a un bout de code VBA pour m'aider, je suis preneur !!!!!

merci d'avance

 

[Compte Supprimé 979]

Re : découpage d'un nombre

Salut CMarechaux,

Le bout de code qu'il te faut 😉

Si les valeurs à transformer sont dans la colonne A

Sub RemplaceDate()
  Dim Cel As Object, DerLig As Integer, MemDate As String
  Dim VJour As Integer, VMois As Integer, VAn As Integer
  DerLig = Sheets(1).Range("A65536").End(xlUp).Row
  For Each Cel In Sheets(1).Range("A1:A" & DerLig)
    MemDate = Cel.Value
    VJour = Right(MemDate, 2)
    VMois = Mid(MemDate, 5, 2)
    VAn = Left(MemDate, 4)
    Cel.Value = DateSerial(VAn, VMois, VJour)
  Next
End Sub

Voilà 😀

 

[cmarechaux]

Re : découpage d'un nombre

merci beaucoup,

ca correspond exactement a ce que je souhaitais et ça s'intègre parfaitement dans mon projet

a+
😀 😀 😀

 

[jp14]

Re : découpage d'un nombre

Bonsoir cmarechaux, BrunoM45

Une autre approche, sélectionner la colonne
menu données
convertir
Etape 3 sélectionner date et indiquer le format

Terminer

JP