Convertir dates MJA avec une macro

Bonjour,

J'ai fait une macro avec l'enregistreur et j'aimerais la modifier pour que lorsque j'appuie sur le raccourci CTRL +N que ce soit la sélection en cours qui soit converti et non pas la colonne G puisque cela peut se produire sur différentes colonnes dans mes rapports. Je ne suis pas trop habile à modifier le format d'une macro.

Merci beaucoup!

Sub ConvertirMJA()
'
' ConvertirMJA Macro
'
' Touche de raccourci du clavier: Ctrl+n
'
Columns("G:G").Select
Selection.TextToColumns Destination:=Range( _
"Tableau1[#Headers,[Invoice Date]]"), DataType:=xlFixedWidth, FieldInfo:= _
Array(0, 3), TrailingMinusNumbers:=True
End Sub

Configuration: Windows / Chrome 91.0.4472.77

1 réponse

  • Votes
  • Date
  • Date décroissante
  1. Bonjour

    A priori, en supprimant cette ligne
    Columns("G:G").Select
    ça devrait fonctionner

    Cdlmnt
    1. Malheureusement ça ne fonctionne pas. Aussi l'entête de colonne ne sera pas toujours Invoice date il faut donc changer plus que ça et la rendre très générique.