Macro Conversion données

Pierrot93

XLDnaute Barbatruc

• 19 Juillet 2010

• #2

Re : Macro Conversion données

Bonjour Emmanuel,

peut être qu'un petit bout de fichier, avec le type de donnée à convertir, nous aiderait à t'aider...

bon après midi
@+

 

Vote positif 0 Vote négatif

E

emmanuelavril

Guest

• 19 Juillet 2010

• #3

Re : Macro Conversion données

Ok,

Je vous joins le fichier avec la colonne sur laquelle je voudrais faire la macro correspondant à l'action "données/convertir..."
La macro enregistrée ne marche pas!

Merci beaucoup!

 

Pièces jointes

• fichier1.xls

  22 KB · Affichages: 228
• fichier1.xls

  22 KB · Affichages: 248
• fichier1.xls

  22 KB · Affichages: 246

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 19 Juillet 2010

• #4

Re : Macro Conversion données

Re,

essaye peut être ainsi :

Code:

    Columns("L:L").TextToColumns Destination:=Range("L1"), DataType:=xlFixedWidth, _
        FieldInfo:=Array(0, 4)

@+

 

Vote positif 0 Vote négatif

E

emmanuelavril

Guest

• 19 Juillet 2010

• #5

Re : Macro Conversion données

Parfait!

Merci beaucoup

++

 

Vote positif 0 Vote négatif

M

MaxThib

Guest

• 30 Mai 2015

• #6

Re : Macro Conversion données

Bonjour et merci pour tous ces précieux coup de main !

J'ai presque le même problème que emmanuelavril mais la solution de Pierrot93 ne fonctionne pas avec mon problème.
J'ai modifié le fichier initial en rajoutant la solution de Pierrot93
J'y ait aussi rajouté quelques données me posant problème (en rouge)

Ouvrez et vous comprendrez...

Merci de votre aide

 

Pièces jointes

• fichier2.xls

  32.5 KB · Affichages: 66
• fichier2.xls

  32.5 KB · Affichages: 64
• fichier2.xls

  32.5 KB · Affichages: 74

Vote positif 0 Vote négatif

Modeste

XLDnaute Barbatruc

• 31 Mai 2015

• #7

Re : Macro Conversion données

Bonjour MaxThib et bienvenue à toi,

Une solution à tester: avant d'exécuter la macro de conversion ...

> sélectionner la plage contenant les dates
> appuyer sur Ctrl+h (Rechercher-Remplacer)
> inscrire un '-' dans la zone Rechercher
> saisir un '/' dans la zone Remplacer
> cliquer sur Remplacer tout

 

Vote positif 0 Vote négatif

M

MaxThib

Guest

• 31 Mai 2015

• #8

Re : Macro Conversion données

Bonjour et Merci Modeste.

Non cela ne fonctionne pas. 🙁
en fait cela à l'air de fonctionner si je le fais manuellement (- remplacé par /).
Mais ci je l’intègre à la macro cela ne fonctionne plus.

C'est comme si les cellules avait été modifiées mais que l'affichage restait figé.
D'ailleurs ce qui est bizarre c'est que quand je double clique sur la cellule la date se transforme correctement (comme si l'affichage de la cellule se mettait à jour)

Voir doc joint pour mieux comprendre.

Merci.

 

Pièces jointes

• Fichier 3.xlsm

  17.1 KB · Affichages: 51

Vote positif 0 Vote négatif

ROGER2327

XLDnaute Barbatruc

• 1 Juin 2015

• #9

Re : Macro Conversion données

Bonsoir à tous.

À essayer dans le classeur Fichier 3.xlsm :​

Code:

Sub Macro5()
Dim i%, v()

  v = Array(Array("/", "-"), _
    Array("1", "janv"), Array("2", "févr"), Array("3", "mars"), _
    Array("4", "avr"), Array("5", "mai"), Array("6", "juin"), _
    Array("7", "juil"), Array("8", "août"), Array("9", "sept"), _
    Array("10", "oct"), Array("11", "nov"), Array("12", "déc"))

  With Intersect(Columns("B:B"), [B1].CurrentRegion)

    For i = 0 To 12
      .Cells.Replace What:=v(i)(1), Replacement:=v(i)(0), LookAt:=xlPart, _
        MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
    Next

    .TextToColumns Destination:=.Cells(1, 1), DataType:=xlFixedWidth, FieldInfo:=Array(0, 4)

    .NumberFormat = "d/mm/yyyy"

  End With

  Range("B1").Select '?

End Sub

ℝOGER2327
#7898

Samedi 14 Merdre 142 (Saint Sphincter, profès - fête Suprême Quarte)
12 Prairial An CCXXIII, 9,4905h - bétoine
2015-W22-7T22:46:37Z

 

Vote positif 0 Vote négatif

M

MaxThib

Guest

• 1 Juin 2015

• #10

Re : Macro Conversion données

Balaise Roger2327 ! 🙂
J'ai pas tout compris mais merci beaucoup ça fonctionne parfaitement !
Encore merci pour votre aide ;-)

 

Vote positif 0 Vote négatif