découpage d'un nombre

cmarechaux · 23 Avril 2007

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 · 23 Avril 2007

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

Code:

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 · 24 Avril 2007

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 · 24 Avril 2007

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

découpage d'un nombre

cmarechaux

Guest

Compte Supprimé 979

Guest

cmarechaux

Guest

jp14

XLDnaute Barbatruc

Discussions similaires

découpage d'un nombre

cmarechaux

Guest

Compte Supprimé 979

Guest

cmarechaux

Guest

jp14

XLDnaute Barbatruc

Discussions similaires

Privacy & Transparency

Privacy & Transparency