Modif Format Date.

pierrejean

XLDnaute Barbatruc

• 18 Avril 2017

• #2

Bonjour NICOALBERT

A tester:

Code:

Sub test()
Set c = Range("I2:K" & Range("I" & Rows.Count).End(xlUp).Row)
For Each cel In c
  If IsDate(cel) Then
    If cel.NumberFormat = "d-mmm" Then cel.NumberFormat = "dd-mm"
    If cel.NumberFormat = "mmm-yy" Then cel.NumberFormat = "mm-yy"
  End If
Next
End Sub

Qui devrait correspondre a ta demande mais qui me semble aboutir a des imprécisions

 

Vote positif 0 Vote négatif

N

NICOALBERT

XLDnaute Occasionnel

• 18 Avril 2017

• #3

Bonjour pierrejean ,

Merci pour ton aide , quand je lance la macro rien ne se passe 🙁

 

Vote positif 0 Vote négatif

N

NICOALBERT

XLDnaute Occasionnel

• 18 Avril 2017

• #4

En faite ce que je cherche c'est à modifier les valeurs dans les cellule ,

Par exemple :
09-déc devient 9-12
oct-17 devient 10-17

etc....

 

Vote positif 0 Vote négatif

Douds68160

XLDnaute Occasionnel

• 18 Avril 2017

• #5

Bonjour,
et comme ca?

 

Pièces jointes

• Sans titre.png

  44.8 KB · Affichages: 34

Vote positif 0 Vote négatif

pierrejean

XLDnaute Barbatruc

• 18 Avril 2017

• #6

Re
Vois sur ce fichier

 

Pièces jointes

• Convertion date.xls

  686 KB · Affichages: 28

Vote positif 0 Vote négatif