Création d'une macro Fermé

Question

Bonjour,
Je souhaiterai créer une macro Excel me permettant, sur sélection de cellules, de modifier une date US (MM/JJ/AAAA) en date FR (JJ/MM/AAAA).
Je suis amené à traiter des dizaines de milliers de lignes dans mes tableurs et la solution "Données - Convertir - Délimité - Date : MJA" n'est plus viable.
Je voudrais donc créer une macro qui me fasse ce travail (avec touche de raccourci) sur des cellules que je sélectionnerais.
J'ai tenté de faire une macro enregistrée qui ne fonctionne pas car je dois justement avoir la possibilité de sélectionner librement les cellules que je souhaite transformer.
En vous remerciant par avance pour votre aide
bonne journée

michel_m · Answer

Bonjour, 
 
.."J'ai tenté de faire une macro enregistrée qui ne fonctionne pas car je dois justement avoir la possibilité de sélectionner librement les cellules que je souhaite transformer. "...

Bin montre la pour qu'on puisse t’aider

Stephane13 · Answer

Bonjour,
Voici la macro créée en mode enregistrement :
Sub DATEUS()
'
' DATEUS Macro
'
' Touche de raccourci du clavier: Ctrl+n
'
    Range("A2:A8").Select
    Selection.TextToColumns Destination:=Range("A2"), DataType:=xlDelimited, _
        TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
        Semicolon:=False, Comma:=False, Space:=False, Other:=False, FieldInfo _
        :=Array(1, 3), TrailingMinusNumbers:=True
End Sub

Par défaut elle fonctionne uniquement sur les cellules A2-A8
L'idée est qu'elle fonctionne sur des cellules que je veux sélectionner avec la souris

Merci pour votre aide
Bonne journée

michel_m · Answer

Bonjour

Bonjour

pour sélectionner le départ et l'arrivée ( à incorporer dans ta macro)

Dim Zone As Range, Cible As RangeZone = Application.InputBox(prompt:="Sélectionnez la zone à transposer", Type:=64)Cible = Application.InputBox(prompt:="Sélectionnez la cellule de destination", Type:=8)

ccm81 · Answer

Bonjour

Pour compléter la proposition de michel que je salue cordialement au passage, peux tu envoyer un bout de ton fichier et préciser le résultat attendu (en particulier : où veux tu envoyer la date modifiée). Utilises https://mon-partage.fr/ et joins le lien obtenu à ton prochain message

Cdlmnt

eriiic · Answer

Bonjour,

il faut traiter tes dates au moment de l'importation et pas après. Sinon tu risques d'avoir des mauvaises interprétations que tu ne peux plus détecter.
eric

gyrus · Answer

Bonjour,

Tu peux essayer ce code
Sub DATEUS()' Touche de raccourci du clavier: Ctrl+nDim Plage As Range, Cel As Range    Set Plage = Application.InputBox(prompt:="Sélectionnez la plage à convertir", Type:=8)    For Each Cel In Plage        If IsDate(Cel.Value) Then            Cel.NumberFormat = "dd/mm/yyyy"        End If    Next CelEnd Sub
Cordialement.

ccm81 · Answer

En attendant ton fichier, peut être ceci pourrait convenir
Public Sub OK()
Dim cel As Range, dus As String, dfr As String, d As Long
Application.ScreenUpdating = False
For Each cel In Selection
  dus = cel.Value
  dfr = Mid(dus, 4, 2) & "/" & Left(dus, 2) & "/" & Right(dus, 4)
  d = CDate(dfr)
  cel.Value = d
  cel.NumberFormat = "dd/mm/yyyy"
Next cel
End Sub

https://mon-partage.fr/f/TK54aqlj/

Cdlmnt