Modifier macro sélection (et extraction) de date à date...

[Christian]

Bonjour à tout le forum,

Je me permets de m'adresser à Véléda, (puisque c'est elle qui m'a faite la macro ci-dessous), mais tout autre intervenant(e) sera accepté(e)... lol.
Voici mon problème : la macro de Véléda fonctionne, bien sûr, très bien mais dans ma base de données en colonne A les dates inscrites sont au format américain soit ; 20031219.

Pourriez-vous modifier cette macro pour les dates sélectionnées dans cette col A avec ce fomat soient copier au format "normal" ; 19/12/2003 ?.

Par avance merci pour votre aide et j'en profite pour remercier tout les personnes ayant répondues initialement à cette demande.

Bien amicalement
Christian

MACRO ;
Option Explicit
Public Depart, Arrivee, Boucle, Maplage, Cherche1, Cherche2 As Variant

Private Sub ComboBox1_Change()
Cherche1 = CDate(ComboBox1.Value)
Set Maplage = F1.Range("A2", [A65536].End(xlUp))
With Maplage
Set Boucle = .Find(Cherche1)
Depart = Boucle.Address(0, 0)
ComboBox1 = Cherche1
End With
End Sub

Private Sub ComboBox2_Change()
Cherche2 = CDate(ComboBox2.Value)
Set Maplage = F1.Range("A2", [A65536].End(xlUp))
With Maplage
Set Boucle = .Find(Cherche2)
Arrivee = Mid(Boucle.Address, 3)
ComboBox2 = Cherche2
End With
Coller.Visible = True
End Sub

Private Sub Label3_Click()

End Sub

Private Sub UserForm_Initialize()
Boucle = F1.Range("A65536").End(xlUp).Row
Maplage = F1.Range("A2:A" & Boucle).Address
ComboBox1.RowSource = Maplage
ComboBox2.RowSource = Maplage
Coller.Visible = False
End Sub

Private Sub Annuler_Click()
Unload Me
End Sub

Private Sub Coller_Click()
F1.Range(Depart & ":E" & Arrivee).Copy F2.[A2]
F2.Activate
Unload Me
End Sub

 

[G'Claire]

hristian, le

orum

Attention, je pense que tu fait une pitite aigreur , cela n'est pas

eleda, mais notre petit

Bonne soirée, et @ la

rochaine, G'Claire,

 

[Vériland]

hi hi hi...Véléda...ah ben on ne la connait pas celle là...c'est vrai comme dit G'Claire ce serait plutôt Céléda...lol

Tiens j'en profite pour lui passer le bonjour à Céléda...puis à G'claire aussi bien sûr...

voilà...

puis tant qu'j'y suis à toi aussi...comme ça y'a pas d'jaloux...lol


Bon ceci dit, je reconnais bien ce code puisqu'il ressemble à la virgule près à celui que je t'avais fourni dans mon fichier Zone_Date_VL présent Lien supprimé...mais bon...tu as peut-être oublié de répondre ce jour

c'est pas le problème...

par contre il faut se mettre à la place des intervenants...car ton code ainsi proposé sur le post est difficile à reproduire sans les fonctions essentielles...comment veux-tu avoir des réponses...il faut savoir que ce code fait partie d'un userform, on ne va tout de même pas demander à chacun de le reproduire cet Userform...!!!

pour être clair, ta question aurait pu se traiter plus simplement sur l'autre fil...tu aurais certainement eu davantage de réponses là-bas...enfin bref!

Alors pour ton problème de convertion de date je te suggère d'utiliser cette macro/fonction que tu vas placer dans un module...

Sub ConvertionDate()
Dim cell As Variant
For Each cell In Selection
cell.Value = Convertir(cell.Value)
Next
End Sub

Function Convertir(Nb As Long) As Date
Dim An, Mois, Jour As Integer
An = Int(Nb / 10000)
Mois = Int((Nb Mod 10000) / 100)
Jour = Int(Nb Mod 100)
Convertir = DateSerial(An, Mois, Jour)
End Function

Le principe est simple...tu selectionnes la zone à convertir (dans la colonne A) et tu appelles la macro ConvertionDate qui va se charger de convertir le format 20031219 en 19/12/2003 grâce à la fonction...

je te propose cette solution car en fait la convertion effectuée n'a plus lieu de l'être par la suite...en fait tu le fais une fois et c'est réglé

Voilà pour moi...Bonnes Fêtes

PS 1 : Macro à copier depuis le forum auquel cas tu risques d'avoir les attributs gras du post dedans...

PS 2 :euh...me concernant c'est plutôt "Lui" et non "Elle"...lol

 

[Vériland]

--->> Lien supprimé

 

[Vériland]

Ouarf!...mdr...qu'est-ce qu'il lui est arrivé à mon pseudo...il veut se couper !!??!!...